+- 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ığı: Liste Kutusundan Sekme Denetimlerindeki Formları Açmak (/konu-liste-kutusundan-sekme-denetimlerindeki-formlari-acmak.html)
Liste Kutusundan Sekme Denetimlerindeki Formları Açmak - Oğuz Türkyılmaz - 12/02/2019
Merhabalar.
F_01_MasaGiris Foröumdaki Liste kutusundaki masa numarasına tıklandığında Sekme Denetimlerinde dolu konumda bekleme modunda bulunan ilgili Masa numarasına ait F_04_AdisyonFisi Ekranının açılmasını sağlamaya çalışıyorum. Kimlik alanından ulaşmaya çalıştığımda Liste kutusunda masa içeriğindeki siparişlerin çeşitleri ve karşılığında fiyatları geliyor. Hali hazırda ise masa numarasının yanında siparişlerin toplamı istendiği gibi görülüyor. Çözmem gereken sıkıntı liste kutusunda herhangi bir masa üzerinde çift tıklandığında beklet pozisyonuna alınmış ve T_02_MasaListesi tablosunda dolu olarak işaretlenmiş masanın F_04_AdisyonFisi formunda ekrana gelmemesi.
Cvp: Liste Kutusundan Sekme Denetimlerindeki Formları Açmak - berduş - 12/02/2019
çift tıklanma olay kodunu aşağıdaki ile değiştirip dener misiniz?
Private Sub lstBekleyenMasa_DblClick(Cancel As Integer)
Me.HangiMasa = Me.lstBekleyenMasa
DoCmd.OpenForm "F_04_AdisyonFisi"
End SubCvp: Liste Kutusundan Sekme Denetimlerindeki Formları Açmak - Oğuz Türkyılmaz - 13/02/2019
(12/02/2019, 23:21)haliliyas yazdı: çift tıklanma olay kodunu aşağıdaki ile değiştirip dener misiniz?
Private Sub lstBekleyenMasa_DblClick(Cancel As Integer)
Me.HangiMasa = Me.lstBekleyenMasa
DoCmd.OpenForm "F_04_AdisyonFisi"
End Sub
Halil Bey teşekkür ederim burası beni çok uğraştırdı. Aşağıdaki Kodu anlayamıyorum. Değişkeni belirledikten sonraki süreci ve kırmızı satırı çözemedim.
Public Function HandleClick(ByRef ctl As Control)
Dim xCaption As String
xCaption = Replace(Controls(ctl.Name).Caption, " ", "")
Me.HangiMasa = xCaption
Cvp: Liste Kutusundan Sekme Denetimlerindeki Formları Açmak - berduş - 13/02/2019
(13/02/2019, 19:04)Oğuz Türkyılmaz yazdı: Public Function HandleClick(ByRef ctl As Control)masa numaralarının olduğu etikete tıklanma olayı
(13/02/2019, 19:04)Oğuz Türkyılmaz yazdı: xCaption = Replace(Controls(ctl.Name).Caption, " ", "")tıklanan etiketin -ctl.name ile- adını alıp, etiketindeki resim yazısını mesela masano=" 2" ise " 2" deki boşlukları silip sadece rakamı alıyor
(13/02/2019, 19:04)Oğuz Türkyılmaz yazdı: Me.HangiMasa = xCaptionbulduğu değeri yani "2" değerini "hangimasa" metin kutusuna atıyor.
Cvp: Liste Kutusundan Sekme Denetimlerindeki Formları Açmak - Oğuz Türkyılmaz - 13/02/2019
Teşekkür ederim Halil bey.