Skip to main content

AccessTr.neT


Formdaki Butonlara İlişkisiz Tablodaki Ürünleri Atama Nasıl Yapılır.

Oğuz Türkyılmaz
Oğuz Türkyılmaz
28
4780

Formdaki Butonlara İlişkisiz Tablodaki Ürünleri Atama Nasıl Yapılır.

#20
@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
.rar Cactus Cafe_hy6.rar (Dosya Boyutu: 103,72 KB | İndirme Sayısı: 2)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Cvp: Formdaki Butonlara İlişkisiz Tablodaki Ürünleri Atama Nasıl Yapılır. - Yazar: berduş - 01/01/2019, 03:00
Task