Private Sub TC_KİMLİK_NO_AfterUpdate()
Dim SID As String

SID = Me.[TC_KİMLİK_NO].Value
stLinkCriteria = "[TC_KİMLİK_NO]=" & "'" & SID & "'"
If DCount("[TC_KİMLİK_NO]", "tbl_sahıs", stLinkCriteria) > 0 Then
Cancel = False
MsgBox "Girmekte Oldugunuz " _
& SID & "tc Daha Önce Kaydedilmiş." _
& vbCr & vbCr & "Lütfen Kayıtları Kontrol Ediniz.", vbInformation _
, "Mükerrer Kayıt"
DoCmd.Close
End If

End Sub