Kod:
Private Sub TCNO_AfterUpdate()
Dim B, C As String
Dim stLinkCriteria1 As String
B = Me.TCNO.Value
stLinkCriteria1 = "[TCNO]=" & "'" & B & "'"
If DCount("*", "BAŞVURU", "TCNO='" & Me.TCNO & "'") > 0 Then
C = MsgBox("DİKKAT!...DAHA ÖNCE...*" _
& B & " * TC Nolu * " _
& B1 & " kişinin kaydı yapılmış " _
& vbCr & vbCr & " DEVAM ETMEK İSTİYORMUSUNUZ...", vbYesNo + vbQuestion, "..***..DİKKAT..***..")
If C = vbNo Then Undo: Exit Sub
If C = vbYes Then
MsgBox "KAYIT YAPILDI", vbOKOnly, "KAYIT TAMAM"
End If
End If
End Sub