(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