Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
12/02/2019 21:20
Konu Sahibi
Oğuz Türkyılmaz
Yorumlar
4
Okunma
397
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Oğuz Türkyılmaz

Oğuz Türkyılmaz

Aktif Üye
95272
Oğ.... Tü....
 51
 105
 531
 08/02/2018
0
 Antalya
 İşletmeci
 Ofis 2010 64 Bit
 22/04/2019,21:10
Çözüldü 
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]


Access Çekirgesi 
[Resim: img-cray.gif]



halily

halily

Uzman
65596
Ha....
 26
 1.157
 30/07/2014
209
 -
 
 Ofis 2019 64 Bit
 Bugün,22:32
çift tıklanma olay kodunu aşağıdaki ile değiştirip dener misiniz?

Visual Basic Code
1
2
3
4
5
6
Private Sub lstBekleyenMasa_DblClick(Cancel As Integer)

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

End Sub



...........
Oğuz Türkyılmaz

Oğuz Türkyılmaz

Aktif Üye
95272
Oğ.... Tü....
 51
 105
 531
 08/02/2018
0
 Antalya
 İşletmeci
 Ofis 2010 64 Bit
 22/04/2019,21:10
(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
1
2
3
4
5
6
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]



halily

halily

Uzman
65596
Ha....
 26
 1.157
 30/07/2014
209
 -
 
 Ofis 2019 64 Bit
 Bugün,22:32
(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.



...........
Oğuz Türkyılmaz

Oğuz Türkyılmaz

Aktif Üye
95272
Oğ.... Tü....
 51
 105
 531
 08/02/2018
0
 Antalya
 İşletmeci
 Ofis 2010 64 Bit
 22/04/2019,21:10
Teşekkür ederim Halil bey.


Access Çekirgesi 
[Resim: img-cray.gif]




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü İki Liste Kutusundan Aynı Tablo Üzerinde Güncelleme Yapmak Yunus Bozkurt 14 409 10/06/2019, 16:31
Son Yorum: Yunus Bozkurt
Çözüldü Raporda Sayfa Alt Bilgisi Liste Boyuna Göre Yapışık Olsun Yardım okumas 2 109 30/05/2019, 15:38
Son Yorum: okumas
Çözüldü Liste Kutusu Yada Açılan Kutu Hakkında programmer67 6 281 26/03/2019, 15:21
Son Yorum: programmer67
Çözüldü Liste Kutusunda Komutla Seçim zaferlacin 3 282 25/02/2019, 23:37
Son Yorum: zaferlacin
Çözüldü Liste Kutusunda Düzenleme Oğuz Türkyılmaz 6 311 12/02/2019, 20:15
Son Yorum: Oğuz Türkyılmaz

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.