Skip to main content

#EvdeKal


Liste Kutusundan Sekme Denetimlerindeki Formları Açmak

Oğuz Türkyılmaz
Oğuz Türkyılmaz
4
800

Liste Kutusundan Sekme Denetimlerindeki Formları Açmak

Çözüldü #1
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.
[Resim: do.php?img=8838]

[Resim: do.php?img=8839]

[Resim: do.php?img=8840]
[Resim: do.php?img=8841]
.rar Cactus_Cafe.rar (Dosya Boyutu: 169,55 KB | İndirme Sayısı: 3)
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#2
çift tıklanma olay kodunu aşağıdaki ile değiştirip dener misiniz?

Visual Basic Code
Private Sub lstBekleyenMasa_DblClick(Cancel As Integer)

Me.HangiMasa = Me.lstBekleyenMasa
DoCmd.OpenForm "F_04_AdisyonFisi"

End Sub

Cevapla
#3
(12/02/2019 23:21)haliliyas Adlı Kullanıcıdan Alıntı: çift tıklanma olay kodunu aşağıdaki ile değiştirip dener misiniz?

Visual Basic Code
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
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#4
(13/02/2019 19:04)Oğuz Türkyılmaz Adlı Kullanıcıdan Alıntı: 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 Adlı Kullanıcıdan Alıntı: 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 Adlı Kullanıcıdan Alıntı: Me.HangiMasa = xCaption
bulduğu değeri yani "2" değerini "hangimasa" metin kutusuna atıyor.
Cevapla
#5
Teşekkür ederim Halil bey.
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da