Formdaki Butonlara İlişkisiz Tablodaki Ürünleri Atama Nasıl Yapılır.

1 2 3 4 5
31/12/2018, 15:44

berduş

@Oğuz Türkyılmaz  önce formunuza
aşağıdaki fonksiyonu ekleyin

Kod:
Private Function DegerAta()
Dim txtUrunAdi As String
Dim CurUrunFiyati As Currency
txtUrunAdi = Me.ActiveControl.Caption
CurUrunFiyati = DLookup("Fiyati", "T_03_UrunListesi", "UrunAdi='" & txtUrunAdi & "'")
MsgBox (txtUrunAdi & " - " & CurUrunFiyati) 'şişmdilik sadece mesaj gösteriyor
End Function

sonrada istediğiniz butonları seçip 
tıklandığında =DegerAta()


çalışır şimdilik sadece mesaj olarak gösteriyor ama yerine oturttuğunuzda yapmak istediğin işlemi yapar
31/12/2018, 16:20

Oğuz Türkyılmaz

Halil Bey Tabloya üç kayıt yaptım. Fonksiyonu tanımladım,Butonların tıklandığı olayına =DegerAta() uyguladım. Bu kayıtları Butonlara ( Komut812,Komut813,Komut814 )atamayı beceremedim. 

31/12/2018, 16:30

berduş

oğuz bey tabloya eklediğiniz yemek isimlerini butonun etiketine eklememişsiniz ki
bu 3 butonun etiketini yemek adlarıyla değiştirin çalışır
butonun adını değil etiketini yemek isimleriyle değiştireceksiniz

"ActiveControl" komutu aktif olan nesneyle ilgili bilgileri alır
mesela 
"Me.ActiveControl.Caption" aktif nesnenin etiket bilgilerini
"ActiveControl.name" aktif nesnenin adını
vs vs 

31/12/2018, 16:45

Oğuz Türkyılmaz

(31/12/2018, 16:28)ozanakkaya yazdı: - Tablonuzdaki veri eksik, hangi ürünün yemek, hangi ürünün sıcak içecek olduğunu belirtmeniz lazım.

- Formu ilk açtığınızda butonlar mevcut, ayrıca üstte menü, yemek, tatlı şeklindeki sekmeler de var, ilk açılışta komut812 veya 813'de ne yazacak??

Ozan bey ürünlerin tamamını tek bir sayfada gösteremediğim için yer darlığından sekmelere ayırdım, sekmelere ayırdığım zaman hangi ürünün hangi sekmeye ait olduğunu belirtmem yani gruplandırma yapmanın gerekli olduğunu bilmiyordum çünkü bir butona bir ürünün atanacağından buna gerek olmadığını düşündüm sekme sayfasının çalışma mantığını bilmiyorum. Şimdi Gruplandırır ve ürün hangi gruba ait belirtirim. Normalde örneğe göre Tablodaki sıraya göre menü sekmesinde 812 de ızgara köfte 813 te tost 814 te salata olması gerekiyor.
31/12/2018, 17:04

Oğuz Türkyılmaz

(31/12/2018, 16:30)haliliyas yazdı: oğuz bey tabloya eklediğiniz yemek isimlerini butonun etiketine eklememişsiniz ki
bu 3 butonun etiketini yemek adlarıyla değiştirin çalışır
butonun adını değil etiketini yemek isimleriyle değiştireceksiniz

"ActiveControl" komutu aktif olan nesneyle ilgili bilgileri alır
mesela 
"Me.ActiveControl.Caption" aktif nesnenin etiket bilgilerini
"ActiveControl.name" aktif nesnenin adını
vs vs 

1 saat önce

(31/12/2018 14:55)haliliyas Adlı Kullanıcıdan Alıntı: yazdı:veritabanındaki isimleri butona ad olarak mı atayacaksınız
yoksa butona bastığımızda butonla ayna ada sahip kayıttaki fiyatı mı alacak


" ürünün adını ve fiyatını alacak ve hemenyandaki altformdaki satıra 1 adet olarak aktarılacak halil bey.  "


Halil bey ben yukardaki anlattığım şekilde çalışacağını zannettiğim için yani butona tıkladığımda mesajda yazan değerlerin yandaki alt form satırına aktarılma işinide yaptığınızı düşündüğüm için olmadı dedim.
31/12/2018, 17:20

Oğuz Türkyılmaz

Ürünleri F_04_AdisyonFisi Formundaki Menü Yemek Tatlı vb.  sekmelere göre gruplandırarak örneğimi güncelledim.
1 2 3 4 5