AccessTr.neT
Bazı Verileri Kayıt Ederken Uyarı Almak - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Bazı Verileri Kayıt Ederken Uyarı Almak (/konu-bazi-verileri-kayit-ederken-uyari-almak.html)

Sayfalar: 1 2


Bazı Verileri Kayıt Ederken Uyarı Almak - siyahca - 20/05/2014

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


Cvp: Bazı Verileri Kayıt Ederken Uyarı Almak - ozanakkaya - 20/05/2014

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



Cvp: Bazı Verileri Kayıt Ederken Uyarı Almak - yorum70 - 20/05/2014

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 Img-grin

Ben olsam, Sn.Ozanakkaya'nın kodunu kullanırdım.


Cvp: Bazı Verileri Kayıt Ederken Uyarı Almak - siyahca - 21/05/2014

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


Cvp: Bazı Verileri Kayıt Ederken Uyarı Almak - ozanakkaya - 21/05/2014

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


Cvp: Bazı Verileri Kayıt Ederken Uyarı Almak - siyahca - 21/05/2014

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ığı