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

Sayın Kanlitoprak;
Tablolarda mümkün olduğu ölçüde türkçe karekter kullanmayın kelimeler arasına boşluk koymayın tabloda resim yazısına istediğiniz yazıyı yazın formda oradaki yazı görünecektir buradaki hata türkçe ve boşluk karekterlerden kaynaklı iyi çalışmalr

teşekkürler