@
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()
![[Resim: do.php?imgf=154626035936021.jpg]](https://accesstr.net/resim/do.php?imgf=154626035936021.jpg)
çalışır şimdilik sadece mesaj olarak gösteriyor ama yerine oturttuğunuzda yapmak istediğin işlemi yapar
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.
![[Resim: do.php?imgf=154626217815661.jpg]](https://accesstr.net/resim/do.php?imgf=154626217815661.jpg)
![[Resim: do.php?imgf=154626236327571.jpg]](https://accesstr.net/resim/do.php?imgf=154626236327571.jpg)
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
![[Resim: do.php?imgf=154626288256131.jpg]](https://accesstr.net/resim/do.php?imgf=154626288256131.jpg)
(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.
Ürünleri F_04_AdisyonFisi Formundaki Menü Yemek Tatlı vb. sekmelere göre gruplandırarak örneğimi güncelledim.
Özür, Ozan beyin uyarısındaki konuyu ( Bir ürünün sekmelerdeki hangi içeriğe ait olduğuna dair tabloda alanı yaratıp örneği güncelleyeceğim. Sonradan sıkıntı yaşamayalım.