Kaydet/güncelle Butonunda Mükerrer Kayıt Engelleme

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..

bu 4 koşulu da aynı anda sağlayan kayıt sayısını bulmak istiyorsanız 4 kriteri tek dcount() içinde kullanmalısınız, bu haliyle her koşul ayrı değerlendiriliyor

DCount("ders_id", "tbl_dersler", "dersinadi='" & Me.txtdersadi & "' and sinifi='" & Me.txtsinif & "' and alan_id=" & Me.cbalan.Column(0) & " and dali=" & Me.cbdal.Column(0))

Teşekkür ederim. Kod dizilimi doğrumu peki. Kodların satır sıralaması.

---

Private Sub kmtkaydet_Click()

On Error GoTo Err_kaydıkaydet_Click

If DCount("ders_id", "tbl_dersler", "dersinadi='" & Me.txtdersadi & "' and sinifi='" & Me.txtsinif & "' and alan_id=" & Me.cbalan.Column(0) & " and dali=" & Me.cbdal.Column(0)) >= 1 Then

MsgBox "Bu alanda ve sınıfıta, bu ders eklenmiştir.Lütfen kontrol ediniz.", vbCritical + vbOKOnly, "Ders Ekleme"

Me.txtdersadi.Undo

Else

    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

     DoCmd.SetWarnings False

     DoCmd.OpenQuery "srg_guncelle"

        DoCmd.SetWarnings True

    Me.listedersler.Requery

Exit_kaydıkaydet_Click:

    Exit Sub

Err_kaydıkaydet_Click:

    MsgBox Err.Description

    Resume Exit_kaydıkaydet_Click

    End If

 Me.listedersler.Requery

End Sub

düzgün çalışıp çalışmadığını aslında sizin kontrol etmeniz daha doğru; bu haliyle doğru gibi geliyor.

Tamamdır. Teşekkür ederim.