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

1 2 3 4 5
31/12/2018, 23:25

berduş

otomatik yapmaya çalışıyoruz 
ama kendi adıma konuşayım başarabilir miyim bilmiyorum
01/01/2019, 03:00

berduş

@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, 20:47

Oğuz Türkyılmaz

(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.
02/01/2019, 11:55

ozanakkaya

Ö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.
03/01/2019, 00:03

berduş

@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, 10:46

Oğuz Türkyılmaz

(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
1 2 3 4 5