Kod:
Private Sub Komut4_Click()
Dim SayKayit As Integer
SayKayit = DCount("*", "Tablo2", [harf_id] & "=" & Me.harf_id & " and " & "tarih='" & Me.tarih & " and " & "sayı='" & Me.sayı & "'")
If SayKayit > 0 Then MsgBox (" Aynı Harfe Aynı Tarih ve Sayı Verilmiştir ")
Exit Sub ' exit sub fonksiyondan çıkmanızı sağlar
End Sub