TC Kimlik No girilmiş ise uyarsın

[tahsink]

Selamlar,

Sosyal Yardımlaşma ve Dayanışma Vakfında çalışıyorum. Bir tabloda kişinin TC_kimlik ve ES_TC_kimlik diye iki alan var, TC kimlik alanına girilmiş bir veri ES_TC_kimlik alanına girililirse "bu kayıt daha önce girilmiş" diye bir uyarı versin istiyorum. Böyle bir örnek buldum fakat sağlıklı çalıştıramadım.

Şöyle bir kod yaptım:

Public Sub uyari()
Dim SD1, SD2, C As String

Dim stLinkCriteria1, stLinkCriteria2 As String
SD1 = Me.tc_kimlik_no.Value
SD2 = Me.esinin_tc_kimlik_no.Value

stLinkCriteria1 = "[tc_kimlik_no]=" & "'" & SD1 & "'"
stLinkCriteria2 = "[esinin_tc_kimlik_no]=" & "'" & SD2 & "'"

If DCount("*", "kisiler", "tc_kimlik_no='" & Me.tc_kimlik_no & "' or esinin_tc_kimlik_no='" & Me.esinin_tc_kimlik_no & "' ") > 0 Then
C = MsgBox("DİKKAT!...BU TC NUMARASI DAHA ÖNCE GİRİLMİŞ" _
& vbCr & vbCr & " DEVAM ETMEK İSTİYORMUSUNUZ...", vbYesNo + vbQuestion, "..***..DİKKAT..***..")
If C = vbYes Then
DoCmd.GoToControl "tc_kimlik_no"
ElseIf vbNo Then
DoCmd.GoToControl "tc_kimlik_no"
End If

End If
End Sub

 

[Taruz]

Merhaba..

En basitinden bu kodla istediğiniz denetimi sağlayabilirsiniz..:

If DCount("*", "kisiler", "TC_kimlik='" & Me.esinin_tc_kimlik_no & "' ") > 0 Then MsgBox "Bu veriden var!"

esinin_tc_kimlik_no metin kutusunun Özellikler / Olay / Güncelleştirme Öncesinde olay yordamına yazmalısınız..

 

[tahsink]

Sayın Taruz, ekteki örneğe bunu uygulayabilir misiniz? Benim Access bilgim fazla değil. Tşk.

 

[herdogan]

TC kutucuklarını özellikler bölümünden "güncelleştirme öncesinde" bölümünü inceleyiniz

 

[tahsink]

Çok teşekkürler.