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
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