mükerrer kayıt

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

Örneği İnceleyiniz.Ayrıca Mutlaka " Yapılmaması Gereken Ölümcül Hatalar " Bölümünü Okuyunuz.Tablo Oluşturuken Alan İsimleri Arasında Boşluk Bırakmayınız ve Türkçe Karakter Kullanmayınız.

Kayt girilmiş uyarısından sonra bir sonraki adıma geçiyor Doşru tc girmeye zorlamak için kodu nasıl kullanmak lazım .Tamam bu tc var ozaman tekrar kayıt yapılmasın yeni tc yazmak gereksin.

Sn.sonerdursun ve Sn.kanlitoprak Basit Bir Örnek Hazırladım Kontrol Ediniz.

teşekkürler sorun çözülmüştür