MultiPage UserForm, set page in view on Show

[LuKate]

I have a 2 page MultiPage UserForm. When loaded page 1 shows by defult because that is the one that is on view within the VBA editor.

I know I can change it there so that page 2 would show when the user form loads. But I need page 1 to be the default show and have page 2 show just when the user form is called from one particular procedure. I hope that makes sense!

I have tried the following in both the procedure that calls the user form and also in the userform_initialize procedure:

frmEdCol.MPChart.Pages(pgChart).SetFocus

and:

frmEdCol.MPChart.Pages(2).SetFocus

frmEdCol, MPChart and pgChart are the names of the UserForm, MultiPage and page 2 respectively.

I also tried the same but without the Pages (i.e. MPChart(pgChart)

I am sure there must be a way to get this to work but it eludes me!

Any help or suggestions greatly apreciated.

 

[James006]

Hi,

From your explanation, it would appear that you only need to add a condition based on the instruction : Application.Caller

HTH

 

[tlowry]

Do these subs do what you want?

Sub showPage0()
    frmEdCol.MPChart.Pages(1).Enabled = False
    frmEdCol.MPChart.Pages(0).Enabled = True
    frmEdCol.MPChart.Value = 0
End Sub
Sub showPage1()
    frmEdCol.MPChart.Pages(0).Enabled = False
    frmEdCol.MPChart.Pages(1).Enabled = True
    frmEdCol.MPChart.Value = 1
End Sub

 

[Norie]

Put this in the procedure that should show page 2, before the code that actually shows the form,

frmEdCol.MPChart.Value = 1

and in design view set the Value property of the multipage to 0.