Kod:
Private Sub txt_babaadi_AfterUpdate()
Dim varmi As Integer
varmi = DCount("*", "tablo1", "[baba adı]= '" & Me.txt_babaadi & "'" & "And [adı]= '" & Me.txt_adi & "'" & "And [soyadı]= '" & Me.txt_soyadi & "'")
If varmi > 0 Then
If MsgBox("Bu veri daha önce girilmiş, devam edilsin mi?", _
vbYesNo) = vbNo Then
Cancel = True
Me.txt_babaadi = ""
End If
End If
End Sub