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.

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.

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

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: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.

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