Formdaki Butonlara İlişkisiz Tablodaki Ürünleri Atama Nasıl Yapılır. - Baskı Önizleme +- 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. - Oğuz Türkyılmaz - 03/01/2019 (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. 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. Cvp: Formdaki Butonlara İlişkisiz Tablodaki Ürünleri Atama Nasıl Yapılır. - berduş - 03/01/2019 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 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, 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. Cvp: Formdaki Butonlara İlişkisiz Tablodaki Ürünleri Atama Nasıl Yapılır. - berduş - 03/01/2019 dilerim işinize yarar Cvp: Formdaki Butonlara İlişkisiz Tablodaki Ürünleri Atama Nasıl Yapılır. - Oğuz Türkyılmaz - 04/01/2019 (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. 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 |