Bazı Verileri Kayıt Ederken Uyarı Almak

Herkese uzun zaman sonra merhabalar,

Çok şey öğrenmiş olduğum sitenizde yeni bir soru sormak istiyorum.

Önce Veritabanımın mantığını açıklayayım ;

main1 formumdan main1 , main11 , main111 , main1111 tablolarına kayıt yapıyorum.

benim sorum şu ;

bu tablolarımın MATERIAL_CODES sütunlarına YASAK adlı tablomdaki verilerden herhangibirini giridiğimde kayıt ederken uyarı vermesini istiyorum.

Nasıl yapabilirim?

Sitede arattım ancak tam olarak bu soruyu nasıl aratacağımıda bilemedeğim için daha önce sorulmuş bir şey ise kusura bakmayın.En azından Daha önce sorulduysa o konuya yönlendirebilirseniz sevinirim.

teşekkürler iyi çalışmalar

main formundaki MATERIAL_CODES metin kutusunun güncelleştirme sonrasında olayına aşağıdaki kodu ekleyiniz.

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

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

End If

End Sub

Bende benzer soruyu sormuştum, bir bakın beğenirseniz !

---

Sn.Ozanakkaya, son anda gördüm mesajınızı, ama göndermeden de edemedim
Ben olsam, Sn.Ozanakkaya'nın kodunu kullanırdım.

kodu aşağıdaki gibi ekledim ancak hata alıyorum

Option Compare Database

Private Sub Form_Open(Cancel As Integer)
DoCmd.GoToRecord , , acNewRec
End Sub

Private Sub MATERIAL_CODES_AfterUpdate()
If DCount("*", "YASAK", "[MATERIAL_CODES]=" & Me.MATERIAL_CODES) <> 0 Then
MsgBox (Me.MATERIAL_CODES & " kodu yasak tablosunda bulunmaktadır.")
End If
End Sub
End Sub

Private Sub MATERIAL_CODES_Click()

End Sub


hata pencereside ;

compile error:
Only comment map appear after End Sub,End function,or End Property

Hata penceresinde zaten belirtilmiş, üst üste iki tane end sub kodu var. birisini sil.

Ozan bey bu seferde herhangibir veri kayıt etmeye çalıştığımda aşağıdaki hatayı veriyor ;

Run-time Error '3464'
Ölçüt ifadesinde veri türü uyuşmazlığı