06/08/2009, 17:25
SADIK54
Arkadaşlar aşağıdaki linkte mükerrer kayıt ile ilgili sn.CELEYCO' nun cevaplamış olduğu bir örnek var ancak burada sayısal değere göre mükerrer kayıt engellemesi yapılmış ben bir form sayfasında renkleri giriyorum aynı rengi yazdığımda beni uyarmasını istiyorum. bu kodu bir türlü uyarlayamadım ne yapmam gerekir yardımcı olurmusunuz.
Dim SID As String
SID = Me.[renk].Value
stLinkCriteria = "[renk]=" & "'" & SID & "'"
If DCount("[renk]", "ANATABLO", stLinkCriteria) > 0 Then
Cancel = False
MsgBox "Girmekte Oldugunuz " _
& SID & " Renk Daha Önce Kaydedilmiş." _
& vbCr & vbCr & "Lütfen Kayıtları Kontrol Ediniz.", vbInformation _
, "Mükerrer Kayıt"
DoCmd.Close
End If
https://accesstr.net/konu-mukerrer-varsa...3%bckerrer
Dim SID As String
SID = Me.[renk].Value
stLinkCriteria = "[renk]=" & "'" & SID & "'"
If DCount("[renk]", "ANATABLO", stLinkCriteria) > 0 Then
Cancel = False
MsgBox "Girmekte Oldugunuz " _
& SID & " Renk Daha Önce Kaydedilmiş." _
& vbCr & vbCr & "Lütfen Kayıtları Kontrol Ediniz.", vbInformation _
, "Mükerrer Kayıt"
DoCmd.Close
End If
https://accesstr.net/konu-mukerrer-varsa...3%bckerrer