Skip to main content

AccessTr.neT


Bazı Verileri Kayıt Ederken Uyarı Almak

Bazı Verileri Kayıt Ederken Uyarı Almak

Çözüldü #1
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
.rar SORU20052014.rar (Dosya Boyutu: 735,39 KB | İndirme Sayısı: 16)
Cevapla
Çözüldü #2
main formundaki MATERIAL_CODES metin kutusunun güncelleştirme sonrasında olayına aşağıdaki kodu ekleyiniz.

Visual Basic Code
If DCount("*", "YASAK", "[MATERIAL_CODES]=" & Me.MATERIAL_CODES) <> 0 Then
MsgBox (Me.MATERIAL_CODES & " kodu yasak tablosunda bulunmaktadır.")
End If
End Sub
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
Çözüldü #3
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.
.rar testyorum70.rar (Dosya Boyutu: 736,75 KB | İndirme Sayısı: 6)
"Oyun bitince  şah ve piyon aynı kutuya atılır "
Son Düzenleme: 20/05/2014, 18:59, Düzenleyen: yorum70.
Cevapla
Çözüldü #4
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
Son Düzenleme: 21/05/2014, 09:11, Düzenleyen: siyahca.
Cevapla
Çözüldü #5
Hata penceresinde zaten belirtilmiş, üst üste iki tane end sub kodu var. birisini sil.
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
Çözüldü #6
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ığı
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da