Multipage bug?

Hi everyone,

I've got this piece of code that checks ListBoxes on different MultiPage tabs and asks confirmation from the user before continuing. However, if you don't want to continue it takes you back to the Page that has the missing info.

Problem is, the Page displays blank on my PC without any of the controls. If I select another tab and then the first one again everything is fine.

Any help would be appreciated. Thanks!

Private Sub MultiPage1_Change()
Dim Pg As MSForms.Page
Dim PageControls As Object
Dim num As Integer

    If MultiPage1.Value = 8 Then
        For Each Pg In MultiPage1.pages
            If Pg.Visible = True Then
                For Each PageControls In Pg.Controls
                    If TypeName(PageControls) = "ListBox" Then
                        If PageControls.ListCount <= 1 Then
                            If MsgBox("Missing entries in: " + Pg.Caption + vbCrLf + vbCrLf + "Continue?", vbYesNoCancel) = vbYes Then
                                Unload Me
                                Value.Show
                            Else
                                MultiPage1.Value = Pg.Index
                                Exit Sub
                            End If
                        End If
                    End If
                Next
            End If
        Next
    End If
End Sub

Hi Jazzer,

Tried Repaint. Didn't work

Tried Unloading and Re-loading the userform. Didn't work

Here is the userform file. When clicking on the "Done" tab it executes the above mentioned code.

It's got some sensitive content sorry

Just import the attachment in VBA

I am able to reproduce the behavior but have not been able to find a cause. It does appear to correctly activate the button for page 0 (named Page 1) but it still shows the "Done" page (not Page1 with no controls) until you manually change pages. I confirmed this by adding a label to the "Done" page.

I have not seen a control like this. I have used multipage controls using tabs, but not buttons. I suppose it is possible that there is a bug in the implementation.

Unfortunately the same happens if the MultiPage style is set to Tabs. It seems that the code is also suspended in some way because if you choose the "Done" tab after the page index is set, the code is not executed

Sorry Norie. Value is another userform. But that is not the problem. When prompted after clicking on "Done" select "No"

I recommend against using Value as the name of anything you create. It is also the default attribute of many objects. VBA allows it, but it could create ambiguous code that may not resolve how you expect.

It is not causing your problem, however.

Thanks for the tip. It's an easy change as I haven't really started with that userform yet

It's a known bug, you can't change the page of a multipage in the multipage's change event

Hi Jazzer, I plan on removing it soon anyway.

For anyone else coming here searching for a solution I used the following workaround. Instead of a message box for confirmation I used another Userform to ask for confirmation:

Private Sub MultiPage1_Change()
Dim Pg As MSForms.Page
Dim PageControls As Object
Dim num As Integer

    If MultiPage1.Value = 8 Then
        For Each Pg In MultiPage1.pages
            If Pg.Visible = True Then
                For Each PageControls In Pg.Controls
                    If TypeName(PageControls) = "ListBox" Then
                        If PageControls.ListCount <= 1 Then
                            Continue.Label4.Caption = Pg.Index
                            Continue.Label2.Caption = Pg.Caption
                            Unload Me
                            Continue.Show vbModal
                            Exit Sub
                        End If
                    End If
                Next
            End If
        Next
    End If
End Sub

and then the following code for the three Userform buttons "Yes", "No", "Cancel":

Public PageInd As Integer

Private Sub CommandButton1_Click()
Unload Me
Unload Estate
EstateV.Show vbModal
End Sub

Private Sub CommandButton2_Click()
Unload Me
Estate.MultiPage1.Value = PageInd
Estate.Show vbModal

End Sub

Private Sub CommandButton3_Click()
Unload Me
Estate.MultiPage1.Value = PageInd
Estate.Show vbModal
End Sub

Private Sub UserForm_Activate()
PageInd = CInt(Label4.Caption)
End Sub

Hope this helps someone else.