frm_sahıs formundaki tc kimlik no alanı daha önce kayıt girildiyse beni uyarsın istiyorum aşagıdaki kodu TC KİMLİK NO metin kutusunun güncelleştirme sonrasına ekledim fakat daha önce girdiğim kayıt olsada olmasada uyarı veriyor bir türlü işin içinden çıkamadım yardımlarınızı bekliyorum

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