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

otomatik yapmaya çalışıyoruz 
ama kendi adıma konuşayım başarabilir miyim bilmiyorum

@ozanakkaya hocam sekmedeki butonları gizlemeyi falan yaptım da -kodla otomatik olarak- son aşamada urün tablosundan alanların değerini çekmeyi başarmadım
"Frm_hy" formunun kod sayfasını açınca en sonda tanımladığım "BtnCaption" fonksiyonu var
 ctl.Caption = rst.UrunAdi  galiba bu kısımda hata var 
Not: "BtnCaption" fonksiyonu dışındakiler sadece deneme amaçlı kod mantığını anlamak için

Function BtnCaption(TabAdi As String)

Dim ctl As Control

Dim strFormName As String

Dim db  As DAO.Database

Dim rst As DAO.Recordset

   Set db = CurrentDb

strFormName = "F_04_AdisyonFisi"

TabAdi = "TabCtl1189"

DoCmd.OpenForm strFormName, acViewDesign

x = 0

    For Each ctl In Forms(strFormName)

        If ctl.Parent.Name = TabAdi Then SekmeAdi = ctl.Name

        Set rst = db.OpenRecordset(" SELECT T_03_UrunListesi.UrunAdi, T_03_UrunListesi.UrunGrubu" & _

                              " FROM T_03_UrunListesi " & _

                              " WHERE (((T_03_UrunListesi.UrunGrubu)='" & SekmeAdi & "'));", dbOpenSnapshot)

        rst.MoveFirst

        If ctl.Parent.Name = SekmeAdi Then

        ctl.Caption = rst.UrunAdi  ' BURADA HATA VERİYOR ürün adını alamıyorum

        ctl.Visible = True

        If Not rst.EOF Then rst.MoveNext

        End If

    Next

End Function

(01/01/2019, 03:00)haliliyas yazdı: @ozanakkaya hocam sekmedeki butonları gizlemeyi falan yaptım da -kodla otomatik olarak- son aşamada urün tablosundan alanların değerini çekmeyi başarmadım
"Frm_hy" formunun kod sayfasını açınca en sonda tanımladığım "BtnCaption" fonksiyonu var
 ctl.Caption = rst.UrunAdi  galiba bu kısımda hata var 
Not: "BtnCaption" fonksiyonu dışındakiler sadece deneme amaçlı kod mantığını anlamak için

Function BtnCaption(TabAdi As String)

Dim ctl As Control

Dim strFormName As String

Dim db  As DAO.Database

Dim rst As DAO.Recordset

   Set db = CurrentDb

strFormName = "F_04_AdisyonFisi"

TabAdi = "TabCtl1189"

DoCmd.OpenForm strFormName, acViewDesign

x = 0

    For Each ctl In Forms(strFormName)

        If ctl.Parent.Name = TabAdi Then SekmeAdi = ctl.Name

        Set rst = db.OpenRecordset(" SELECT T_03_UrunListesi.UrunAdi, T_03_UrunListesi.UrunGrubu" & _

                              " FROM T_03_UrunListesi " & _

                              " WHERE (((T_03_UrunListesi.UrunGrubu)='" & SekmeAdi & "'));", dbOpenSnapshot)

        rst.MoveFirst

        If ctl.Parent.Name = SekmeAdi Then

        ctl.Caption = rst.UrunAdi  ' BURADA HATA VERİYOR ürün adını alamıyorum

        ctl.Visible = True

        If Not rst.EOF Then rst.MoveNext

        End If

    Next

End Function

Ürün Listesine 50 Adet Ürün ekleyerek Örneği güncelledim.

Örnek uygulamanızda, sadece Menü, yemek ve Tatlı sekmelerine işlem yapıldı. Bu sekmelerden de ilk 10 butona isimlendirme yapıldı, diğer isimlendirmeleri sizin yapmanız gerekiyor.

Menü sekmesinde Komut1 ile komut10 arası, Yemek sekmesinde Komut51 ile Komut60, Tatlı sekmesinde de Komut101 ile Komut110 arasındaki isimler verildi. Form açıldığında boş olan butonlar gizlenecektir.

@Oğuz Türkyılmaz  Oğuz bey kontrol eder misiniz?
isimlendirme ve buton görünürlüğü otomatik (form her açıldığında kontrol ediyor),
eklediğinizde görünür sildiğinizde kaybolur
not: yemek adları  uzun olduğundan butonlara sığmıyor

(03/01/2019, 00:03)haliliyas yazdı: @Oğuz Türkyılmaz  Oğuz bey kontrol eder misiniz?
isimlendirme ve buton görünürlüğü otomatik (form her açıldığında kontrol ediyor),
eklediğinizde görünür sildiğinizde kaybolur
not: yemek adları  uzun olduğundan butonlara sığmıyor

Çok teşekkür ederim çözümünüz için ilk baktığımda soğuk içecekler sekmesinde soğuk içeceklerle birlikte alkollü içeceklerin de yer aldığını gördüm alkollü içecekler sekmesi boş kodlarınıza baktığımda  anlayamadım tabiki