Excel VBA Fetch All Control Type And Name From A UserForm

[kashif.special2005]

Hi,

I want to create a procedure where I will pass a userform object and that procedure will give me the all controls name and type related to that form, I have created below procedure but it is not working.

When I run procedure "Test2", in the line "Set myForm = FundInfoForm" it is firing the Initialize event of the form, which is I don't want, and in the procedure "PrintAllControlsInAForm" is printing only blank lines.

Please help me resolve this problem or please guide me how can i achieve this task.

Sub Test2()


    Dim myForm As msforms.UserForm
    
    
    Set myForm = FundInfoForm  [I][B]'Here it is firing the Initialize Event of this form[/B][/I]
    
    Call PrintAllControlsInAForm(myForm)


End Sub




Sub PrintAllControlsInAForm(msfTargetForm As msforms.UserForm)


    Dim msControl As msforms.Control
    
    For Each msControl In msfTargetForm.Controls
    
        Debug.Print mscontrols [I][B]'Here it is printing only blank lines in the Immediate window[/B][/I]
        
    Next msControl


End Sub

Thanks
Kashif

 

[dmt32]

Hi,

change this line

Debug.Print mscontrols

to this

Debug.Print msControl.Name

You will note that your original line of code you added "s" to your variable name which is one reason why you got a blank result. You can avoid such errors by adding
Option Explicit to top of your code page where you will be informed at compile time of missing variables.

Dave