Private Sub MATERIAL_CODES_AfterUpdate()

If DCount("*", "YASAK", "[MATERIAL_CODES]=" & Me.MATERIAL_CODES) <> 0 Then

MsgBox (Me.MATERIAL_CODES & " kodu yasak tablosunda bulunmaktadir.")

End If

End Sub

Kodu yukarıdaki şekilde kullandığınızda uyarı verir yani kod düzgün çalışır.

Private Sub MATERIAL_CODES_Click()



 End Sub 

yukarıdaki ifadeyi siliniz.

sorunum çözüldü.desteğiniz için çok teşekkür ederim

konu ile ilgili olarak yeni bir sorum oluştu.Şimdi ben kayıtları excelden tabloma dış veri yöntemiyle çekiyorum.Ancak Exceldeki kayıtlarım numaralardan oluşmasına rağmen 0 (sıfır) ile başlayan kodlar.

Excelde 0 ile başlayan kodların olduğu sütunu sayı formatına çevirdiğimde 0 rakamını siliyor.Bu sebepten dolayı mecburen metin yapmam gerekiyor.

Excelde sütun formatını metin yaptım Access tede tablomdaki alan formatınıda metin yaptım.Verileri çektim sorun yok. Ancak bu seferde kayıt ederken uyarı almıyorum yani en baştaki sizin bahsettiğiniz formül çalışmıyor.

Nasıl bir yol izlemeliyim ?

teşekkürler

yasak tablosundaki material codes alanın metin yaptığınızda önceki verdiğim kod çalışmaz, aşağıdaki kodu kullanman gerekir.

If DCount("*", "YASAK", "[MATERIAL_CODES]=" & "'" & Me.MATERIAL_CODES & "'") <> 0 Then

MsgBox (Me.MATERIAL_CODES & " kodu yasak tablosunda bulunmaktadır.")

End If

tekrar teşekkür ederim sizi uğraştırdım.sorunum çözüldü