Salam B-Exceller,
Mau tanya.
Saya mau cari tahu nama control di masing-masing userform . Untuk itu saya mau
memanggil sub procedure dengan variable nama userform. Permasalahannya saya
tidak bisa memanggil berdasarkan nama userform.
Yang sudah saya lakukan adalah.
Contoh: ada 2 userform namanya formmaterial dan myform.
Private sub commandbutton1_click
Call listcontrol(“formmaterial”)
End sub
Private sub commandbutton2_click
Call listcontrol(“myform”)
End sub
Public sub listcontrol(strrform as string)
Dim c as controls
For each c in Me.controls ‘==>yang ini gagal, karena tidak boleh pakai Me..
Yang diinginkan adalah namauserform tergantung dari nama userform dari tiap
prosedur yang memanggil.
Msgbox c.name
Next c
End sub
Terima kasih. Semoga Allah membalas kebaikannya. Amiin...
Best Regards,
Tio
