"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
