Next and back buttons in multipage userform

[espenskeie]

Hi

I have placed next and back buttons in the userform. I have a total of 8 pages.

The problem is that page 2 and 4 is not active. And I cannot see why. In the properties of the pages the data is exactly the same at all pages.

Are there errors in my code?

Private Sub cmdNext_Click()

    MultiPage1.Value = MultiPage1.Value + 1
    
End Sub

Private Sub cmdBack_Click()
    Dim intPage As Integer
    intPage = MultiPage1.Value
    Do
        intPage = intPage - 1
        If intPage = 0 Then Exit Do
    Loop While Not MultiPage1.Pages(intPage).Enabled
    MultiPage1.Value = intPage
End Sub
 
Private Sub MultiPage1_Change()
     
    If MultiPage1.Value = 0 Then
        cmdNext.Enabled = True
        cmdBack.Enabled = False
    ElseIf MultiPage1.Value = (MultiPage1.Pages.Count - 1) Then
        cmdNext.Enabled = False
        cmdBack.Enabled = True
    Else
        cmdNext.Enabled = True
        cmdBack.Enabled = True
    End If
     
End Sub

Regards
Espen

 

[bensonsearch]

it may be something in their properties, like if enabled or visible.

 

[espenskeie]

Thanks, I found an error further down where someone had disabled page 1 and 3, in reality it was 2 and 4 that wasn't visible.

Now it is working fine

Regards Espen

 

[Mike_CS]

Thanks, I found an error further down where someone had disabled page 1 and 3, in reality it was 2 and 4 that wasn't visible.

Now it is working fine

Regards Espen

Hi, Just used this code so thanks for this Espen.

I would also like to mention that the multipages begin at '0' so multipage1 that you can see is, in excel terms, multipage0.

This is why 1 and 3 is to the outside looking in 2 and 4. It is the number you can see minus 1.

Just thought i'd put this on here for people in the future. It is still being viewed and used nearly 9 years later.

Thanks again