Private Sub AlanAdı_AfterUpdate()

Dim SID As String



SID = Me.[AlanAdı].Value

stLinkCriteria = "[AlanAdı]=" & "'" & SID & "'"

If AlanAdı= Dlookup ("[AlanAdı]", "[TabloAdı]", "[AlanAdı]=forms![FormAdı]!AlanAdı") Then

MsgBox "Girmekte Oldugunuz " _

& SID & " Nolu TC Kimlik Numarası Daha Önce Kaydedilmiştir." _

& vbCr & vbCr & "Lütfen Kayıtları Kontrol Ediniz.", vbInformation _

, "Kayıt Kontrol"

Undo



Exit Sub

End If

End Sub

Yukarıdaki Kodları Kullanarak İstediğiniz Alanı Kontrol Edebilirsiniz.