AccessTr.neT

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

bukodu sen metin kutusunun günceleştirme sonrasına yazacaktın ..
kolay gelsin

teşekkür ederim.

Teşekkür hocam..