hem TC hem de Dosya numarası aynı ise mi uyarı verecek?

---

kaydetme butonuna da ekleyebilirsiniz TC ve dosyano metin kutularından çıkıldığında olayına da

Dim SayKayit As Integer

SayKayit = DCount("*", "tblŞahısBilgileri", [Tc Kimlik No] & "=" & Me.txtTcKimlikNo & " and " & "DosyaNo='" & Me.txtDosyaNo & "'")

 If SayKayit > 0 Then MsgBox (" Aynı TC ve Dosya No Var")

exit sub ' exit sub fonksiyondan çıkmanızı sağlar