AccessTr.neT

Tam Versiyon: Bazı Verileri Kayıt Ederken Uyarı Almak
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
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ü
Sayfalar: 1 2