Formda Etikete Tıklandığında Tabloya Kayıtlı Değerler Mesajbox'ta Nasıl Gösterilir.

1 2
14/01/2019, 11:51

Oğuz Türkyılmaz

F_01_MasaGiris Formunda 17 numaralı masanın rezervasyon bilgilerinin 17 numaralı ( R ) sarı etikete tıklandığında mesajboxta göstermek istiyorum. Mesajı gösteriyorum ama bilgileri çekemedim. Tablodan bilgileri almak için, tüm masaların rezervasyon bilgilerini her masa için  ayrı ayrı olay yordamına girmeden bir fonksiyon olarak yapmak amacım.
14/01/2019, 13:37

ozanakkaya

Forma 

Public Function RezervKontrol(ByRef GMasNo As Integer)

Dim GKimlikNo As Integer
Dim GKisi As String
Dim GSaat As Date

GKimlikNo = Nz(DLookup("Kimlik", "T_90_RezervasyonBilgi", "[MasaNo]=" & Nz(GMasNo, 0) & " AND clng([Tarih])='" & CLng(Date) & "'"), 0)

If GKimlikNo <> 0 Then

'GTarih
GSaat = Dlookup ("Saat", "T_90_RezervasyonBilgi", "[Kimlik]=" & GKimlikNo)
GKisi = Dlookup ("AdiSoyadi", "T_90_RezervasyonBilgi", "[Kimlik]=" & GKimlikNo)

MsgBox "Masa ..... Tarihinde, Saat " & GSaat & " e Sn; " & GKisi & " 'e  rezerve edilmiştir. ", vbExclamation

End If


End Function

Kodu ekle, Etiket17R'nin tıklandığında olayına

=RezervKontrol("17")

şeklinde kod ekle, diğer etiketlerin tıklandığında olayına etiket ismine göre kod eklemelisiniz.

Ayrıca, bu tür sorularınıza cevap yazarak çözüm buluyoruz, umarım siz birşeyler kapıyorsunuz.
14/01/2019, 14:58

Oğuz Türkyılmaz

Ozan Bey İlginiz için teşekkür ederim, Yavaş yavaş bir şeyler öğreniyorum en azından karşılaştığım aynı tarz sorunlarda ne yapabileceğimi önceki çözümlere bakıp düzeltebiliyorum. Sorun şu ki sürekli yeni birşeyler yaptığımdan benzer sorunlar pek çıkmıyor.
=RezervKontrol("17") hata veriyor, ayrıca rezervasyon Mesajınıda görüntüleyemiyorum .  Dosya yı ekte gönderiyorum.Teşekkürler
14/01/2019, 15:03

ozanakkaya

tıklandığında olayından kastım, tıklandığında özelliğine yazılacak, = ile başlayan kod olay yordamı olarak yazılmaz, butonun tıklandığında özelliğine yazılır


14/01/2019, 15:24

Oğuz Türkyılmaz

(14/01/2019, 15:03)ozanakkaya yazdı: tıklandığında olayından kastım, tıklandığında özelliğine yazılacak, = ile başlayan kod olay yordamı olarak yazılmaz, butonun tıklandığında özelliğine yazılır


Teşekkür Ederim Ozan bey. Tamamdır.
14/01/2019, 15:27

berduş

dilerim işinize yarar
dosya eksikleri nedeniyle güncellenmiştir
1 2