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ü