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..
Kod:
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_dersler", "alan_id=" & Me.cbalan.Column(0))
kural4 = DCount("ders_id", "tbl_dersler", "dali=" & Me.cbdal.Column(0))
If kural1 >= 1 And kural2 >= 1 And kural3 >= 1 And kural4 >= 1 Then
MsgBox "Aynı alan ve dal ve sınıf için aynı isimle ders eklidir.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