+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Formdaki Butonlara İlişkisiz Tablodaki Ürünleri Atama Nasıl Yapılır. (/konu-formdaki-butonlara-iliskisiz-tablodaki-urunleri-atama-nasil-yapilir.html)
Cvp: Formdaki Butonlara İlişkisiz Tablodaki Ürünleri Atama Nasıl Yapılır. - berduş - 31/12/2018
otomatik yapmaya çalışıyoruz
ama kendi adıma konuşayım başarabilir miyim bilmiyorum
Cvp: Formdaki Butonlara İlişkisiz Tablodaki Ürünleri Atama Nasıl Yapılır. - berduş - 01/01/2019
@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 FunctionCvp: Formdaki Butonlara İlişkisiz Tablodaki Ürünleri Atama Nasıl Yapılır. - Oğuz Türkyılmaz - 01/01/2019
(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.
Cvp: Formdaki Butonlara İlişkisiz Tablodaki Ürünleri Atama Nasıl Yapılır. - ozanakkaya - 02/01/2019
Ö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.
Cvp: Formdaki Butonlara İlişkisiz Tablodaki Ürünleri Atama Nasıl Yapılır. - berduş - 03/01/2019
@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
Cvp: Formdaki Butonlara İlişkisiz Tablodaki Ürünleri Atama Nasıl Yapılır. - Oğuz Türkyılmaz - 03/01/2019
(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
