Kodlarda Bunlar.
Kod:
Private Sub TcNo_AfterUpdate()
If tcno = DLookup("[TcNo]", "[tblKisiler]", "[TcNo]=forms![frmKisiler]!TcNo") Then
MsgBox "Bu Personel Daha Önce Tanımlanmış..!", vbOKOnly, "Mükerrer Kayıt"
Exit Sub
Else
End If
End Sub