(02/01/2019, 11:55)ozanakkaya yazdı: Ö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.

Ozan bey çözümünüz için teşekkür ederim isimlendirmeleri yapıp işleyişle ilgili bilgilendireceğim teşekkür ederim.

o benim hatam düzgün çalışıp çalışmadığını anlamak için verilerle oynadım siz ürünler tablosunu düzeltirseniz sorun kalmaz

(03/01/2019, 10:49)haliliyas yazdı: o benim hatam düzgün çalışıp çalışmadığını anlamak için verilerle oynadım siz ürünler tablosunu düzeltirseniz sorun kalmaz

Halil Bey Gayet güzel çalışıyor sadece Sekmeye tıkladığınızda o sekmedeki ilk yada son ürüne resimdeki gibi atama yapıyor.

dilerim işinize yarar

(03/01/2019, 10:47)Oğuz Türkyılmaz yazdı:

(02/01/2019, 11:55)ozanakkaya yazdı: Ö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.

Ozan bey çözümünüz için teşekkür ederim isimlendirmeleri yapıp işleyişle ilgili bilgilendireceğim teşekkür ederim.

Ozan bey 3 sekme için yazdığınız kodu 6 sekme için aşağıdaki şekilde tamamladım. Fakat çözümde anlatamadığım bir yer var sanırım. Ben F_03_UrunGiris Formundan girdiğim ve kayıt kaynağı  T_03_UrunGiris Tablosu olan ürünlerin F_04_AdisyonFisindeki sekmelerde otomatikman çıkmasını sağlamak istiyorum.Ürün isimlerini Tabloda yarattıktan sonra birde formda buton etiketlerini aynı isimlerle isimlendirmek kullanıcı için ek yük getirecek. Halil bey çözümü otomatik olarak çıkacak şekilde sağladı. Bu kısmı onun çözümüyle kapatabiliriz. Emekleriniz için teşekkür ederim. 

Private Sub Form_Current()

Call GMenuButonlar
Call GYemekButonlar
Call GTatliButonlar
Call GSicakIcecekButonlar
Call GSogukIcecekButonlar
Call GAlkolluIcecekButonlar

End Sub

Private Sub Form_Open(Cancel As Integer)

Me.txtMasaNo = Form_F_01_MasaGiris!HangiMasa

End Sub

Sub GMenuButonlar()
On Error Resume Next

Dim rs As DAO.Recordset
Dim strSQL As String

strSQL = "SELECT UrunGrubu, * FROM T_03_UrunListesi WHERE (((UrunGrubu)='Menu'));"

Set rs = CurrentDb().OpenRecordset(strSQL)
rs.MoveFirst

GSayi = 1

Do Until rs.EOF

Controls("Komut" & GSayi).Caption = rs!UrunAdi
GSayi = GSayi + 1

rs.MoveNext
Loop

For GSayi2 = 1 To GSayi - 1

Controls("Komut" & GSayi2).Visible = True

Next

End Sub

Sub GYemekButonlar()

On Error Resume Next

Dim rs As DAO.Recordset
Dim strSQL As String

strSQL = "SELECT UrunGrubu, * FROM T_03_UrunListesi WHERE (((UrunGrubu)='Yemek'));"

Set rs = CurrentDb().OpenRecordset(strSQL)
rs.MoveFirst

GSayi = 51

Do Until rs.EOF

Controls("Komut" & GSayi).Caption = rs!UrunAdi
GSayi = GSayi + 1
rs.MoveNext
Loop

For GSayi2 = 51 To GSayi - 1

Controls("Komut" & GSayi2).Visible = True

Next

End Sub

Sub GTatliButonlar()

On Error Resume Next

Dim rs As DAO.Recordset
Dim strSQL As String

strSQL = "SELECT UrunGrubu, * FROM T_03_UrunListesi WHERE (((UrunGrubu)='Tatlı'));"

Set rs = CurrentDb().OpenRecordset(strSQL)
rs.MoveFirst

GSayi = 101

Do Until rs.EOF

Controls("Komut" & GSayi).Caption = rs!UrunAdi
GSayi = GSayi + 1
rs.MoveNext
Loop

For GSayi2 = 101 To GSayi - 1

Controls("Komut" & GSayi2).Visible = True

Next

End Sub
Sub GSicakIcecekButonlar()
On Error Resume Next

Dim rs As DAO.Recordset
Dim strSQL As String

strSQL = "SELECT UrunGrubu, * FROM T_03_UrunListesi WHERE (((UrunGrubu)='SicakIcecek'));"

Set rs = CurrentDb().OpenRecordset(strSQL)
rs.MoveFirst

GSayi = 151

Do Until rs.EOF

Controls("Komut" & GSayi).Caption = rs!UrunAdi
GSayi = GSayi + 1

rs.MoveNext
Loop

For GSayi2 = 151 To GSayi - 1

Controls("Komut" & GSayi2).Visible = True

Next

End Sub

Sub GSogukIcecekButonlar()
On Error Resume Next

Dim rs As DAO.Recordset
Dim strSQL As String

strSQL = "SELECT UrunGrubu, * FROM T_03_UrunListesi WHERE (((UrunGrubu)='SogukIcecek'));"

Set rs = CurrentDb().OpenRecordset(strSQL)
rs.MoveFirst

GSayi = 201

Do Until rs.EOF

Controls("Komut" & GSayi).Caption = rs!UrunAdi
GSayi = GSayi + 1

rs.MoveNext
Loop

For GSayi2 = 201 To GSayi - 1

Controls("Komut" & GSayi2).Visible = True

Next

End Sub

Sub GAlkolluIcecekButonlar()
On Error Resume Next

Dim rs As DAO.Recordset
Dim strSQL As String

strSQL = "SELECT UrunGrubu, * FROM T_03_UrunListesi WHERE (((UrunGrubu)='AlkolluIcecek'));"

Set rs = CurrentDb().OpenRecordset(strSQL)
rs.MoveFirst

GSayi = 251

Do Until rs.EOF

Controls("Komut" & GSayi).Caption = rs!UrunAdi
GSayi = GSayi + 1

rs.MoveNext
Loop

For GSayi2 = 251 To GSayi - 1

Controls("Komut" & GSayi2).Visible = True

Next

End Sub