Formda bulunan "yeni kayıt" ve Kaydet/güncelle" butonlarım var.
Kaydet/güncelle butonunda 4 alana göre mükerrer sorgulaması yapmak istiyorum. Dört alan eşitse mesaj versin ve kayıt gerçekleşmesin istyorum. Yapmaya çalıştım ama..

[code]Private Sub kmtkaydet_Click()
On Error GoTo Err_kaydıkaydet_Click

kural1 = DCount("ders_id", "tbl_dersler", "dersinadi='" & Me.txtdersadi & "'")
kural2 = DCount("ders_id", "tbl_dersler", "sinifi='" & Me.txtsinif & "'")
kural3 = DCount("ders_id", "tbl_ders

merhaba arkadaşlar,
eklediğim örnekteki forma altform ekledim. eklenen formdaki verinin FORM ÜZERİNDEN silinememesini değiştirilememesini istiyorum (TABLOYU SADECE İZLEMEK İÇİN KULLANACAĞIM, VERİ DEĞİŞTİRİLMESİNİ İSTEMİYORUM), ayrıca listeden seçtiğim kaydın id numarasının ve hisse adının üst kısımdaki metin kutusuna gelmesini nasıl sağlayabilirim, hiç altform kullanmadım, yardımcı olabilirmisiniz?
AMACIM EKLENEN ALTFORMUN SADECE VERİLERİNİN İZLENEBİLMESİ,
ALTFORM ÜZERİNDE SAĞ TIKLANARAK KAYDA A

Merhaba userform üzerinden veri kaydı gerçekleştiriyorum. Ancak aynı kaydı defalarca yapıyor. 2. kez kaydetmeye çalıştığımızda kaydı gerçekleştirmesin ve karşıma bir uyarı penceresi çıkarsın istiyorum.

Kaydet butonunun kodları şu şekilde

[code]

Dim baglan As New Connection
Dim rs As New Recordset

baglan.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\master.accdb;"
rs.Open "SELECT * FROM personel where id", baglan, adOpenKeyset, adLockPessimist

Ekte gönderdiğim dosya da giriş  butonuna bastığımızda açılan giriş kutusuna yandaki barkodu yazıp kaydet butonuna bastığımızda kayıt yapıyor. Mükerrer kayıt önlemek için yazdığım kod da sadece ilk kayıt için uyarı veriyor diğer kayıtlar içinde bu uyarıyı almak için kodu ne şekilde düzenlemeliyim. şimdiden teşekkür ediyorun.