(24/01/2020, 09:44)accessman yazdı: birbirine benziyodur mutlaka ama asıl olay bence
Forms("Form2").Controls(opt)
string değerini almıyor gittiği fonksiyonda string olması lazım bunu
msgbox da
Forms("Form2").Controls(opt)
Forms("Form2").Controls(opt).Object
Forms("Form2").Controls(opt).Object.Name
hepsi hata veriyor
Denee deneye alttaki gibi yapınca oldu.
Sadece güncelle functionunu çalıştırmak kaldı o da form içinde olduğu için mesele.Bakalım artık.
Kod:
Dim frm As Form
Set frm = Forms("Form2")
MsgBox Forms(frm.Form.Name).ActiveControl.Name