Opening a Userform from within Userform

[ZilchSr]

My directive is to use a button called "Legend" on a userform called "PlatformData" to open another userform called "PlatformLegend". Both userforms are for viewing existing data only, I don't wish to hide the first userform, and as far as I am aware, it doesn't matter if is it modeless or modal because I don't need to perform any actions while either userform is being viewed other than the ability to unload them. My issue is that I am able to get the second userform opened and viewed, however, none of the initialization code is executing (not even a simple MsgBox function), and is showing just the bare userform (all of my controls are dynamically added with VBA code). What am I doing wrong here?


Here is the relevant code for the first userform called "PlatformData" that has the "Legend" button to be used to view the second userform:

Private Sub CommandButton1_Click()
    ' OK button to unload PlatformData userform
    Unload Me
    Exit Sub
End Sub

Private Sub CommandButton2_Click()
    ' Legend button to show PlatformLegend
    Worksheets("Home").Activate
    PlatformLegend.Show
End Sub

Private Sub Userform_Initialize()
    MsgBox "Blah blah blah blah this is my first userform blah blah blah"
End Sub

Here is the relevant code for the second userform called "PlatformLegend":

Sub Userform2_Initialize()
    MsgBox "Show me my controls!"
    Dim ccControl As Control
    Set ccControl = Me.Controls.Add("Forms.Label.1", "LegendTest", True)
    With ccControl
        .Caption = "Hello"
        .Top = 42
        .Left = 12
        End With
End Sub

Any feedback would be greatly appreciated, and thank you in advance.

 

[Caribeiro77]

Welcome to the board...
You can create another button in your "PlatformData" userform with the code:


PlatformLegend.show

 

[ZilchSr]

Welcome to the board...
You can create another button in your "PlatformData" userform with the code:


PlatformLegend.show

Thank you so much for the quick feedback! The second Sub in my code shown above does just that. The issue is that PlatformLegend userform IS "showing", but with none of its VBA code (shown in my coding above, second section) executing.

 

[mikerickson]

Try moving the PlatformLegend Intialize event code from Intialize to Activate.

Part of your problem is from your using run-time controls. If PlatformLegend's Label was created at design time, your problem wouldn't exist.

 

[ZilchSr]

Try moving the PlatformLegend Intialize event code from Intialize to Activate.

Part of your problem is from your using run-time controls. If PlatformLegend's Label was created at design time, your problem wouldn't exist.

I changed

Sub Userform2_Initialize()

to

Sub Userform2_Activate()

and the same result was returned.
Unfortunately, all of the controls intended for PlatformLegend are conditional (I'm sorry that I didn't include that in my sample code above), and therefore, must remain created during run-time

 

[mikerickson]

I just caught it. The code for the initialize event is put in the Sub Userform_Initialize() , no matter what the name of the user form. Remove the 2 from the name of the sub.


Rather than creating controls at run-time, its far more stable to create them at design time and make the necessary ones visible as needed. Linking event code to run time controls is a bit unstabalizing unless you use Class modules.

 

[ZilchSr]

I mistakenly thought VBA aggregated all userforms in the project, which necessitated the ordinal. You, sir, are a scholar and a gentleman! Your solution worked like a charm. Thank you so much!