Skip to main content

AccessTr.neT


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

Oğuz Türkyılmaz
Oğuz Türkyılmaz
8
1856

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

Çözüldü #1
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.
.rar Catus Cafe MSG BOX.rar (Dosya Boyutu: 139,5 KB | İndirme Sayısı: 3)
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#2
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.
Cevapla
#3
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.Img-grin

=RezervKontrol("17") hata veriyor, ayrıca rezervasyon Mesajınıda görüntüleyemiyorum .  Dosya yı ekte gönderiyorum.Teşekkürler
.rar Catus Cafe MSG BOX.rar (Dosya Boyutu: 142,03 KB | İndirme Sayısı: 1)
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#4
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

[Resim: do.php?img=8678]
Cevapla
#5
(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

[Resim: do.php?img=8678]

Teşekkür Ederim Ozan bey. Tamamdır.
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#6
dilerim işinize yarar
dosya eksikleri nedeniyle güncellenmiştir
.rar Catus Cafe MSG BOX_hy4_1.rar (Dosya Boyutu: 118,99 KB | İndirme Sayısı: 6)
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task