tckimlikno

[erkalim]

arkadaşlar iyi günler forma aynı tc kimlik numarasının girmemesi için yineleme yok şeklinde girdim ancak aynı numara girildiğinde şöyle bir mesaj gelmesini istiyorum "Bu T.C.kimlik numarası daha önce kayt edilmiş" şeklinde mesajla uyarılması için ne gibi bir kod yazmalıyım yardımlarınız için teşekürler

 

[celoy]

Sayın erkalim
Aşağıdaki bu kodu tc no metin kutusuna kodlayınız,olması lazım

Private Sub No_BeforeUpdate(Cancel As Integer)
Dim SID As String
Dim stLinkCriteria As String
SID = Me.[TC NO].Value
stLinkCriteria = "[TC NO]=" & "'" & SID & "'"
If DCount("[TC NO]", "Tablo1", stLinkCriteria) > 0 Then
MsgBox SID & " Bu TC NO Daha Önce Girilmiş." _
& vbCr & vbCr & "Lütfen Kayıtları Kontrol Ediniz.", vbInformation _
, "....DİKKAT..."
Me.Undo
Else
Exit Sub
End If
End Sub

 

[erkalim]

tşk

kardeşim çok teşekkür ederim eline sağlık kodu uyguladım ve problem çözüldü çok sağol