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
