VBA control button to navigate multipage according to one of the parameters entered in the text box.

[Jyyyyyyyy]

Hi all,

I'm developing a form with multipages. I have designed it to be General info - Site 1 - Site 2 - Site 3 -.....

There's a textbox that need input from the users, regarding the Site where the material is produced. Different site has different info and setup.

Instead of navigating by clicking on the tab itself, the users would like to navigate by clicking the "Next" button, and the page will navigate according to the value of textbox "Site".

I've tried to use If-Else with GoTo, the results isnt going well.

May I have your help or suggestion to implement this?

 

[aRandomHelper]

Maybe something like this:

Private Sub CommandButton1_Click()
    Dim i As Long
    For i = 0 To Me.MultiPage1.Pages.Count - 1
        If Me.MultiPage1.Pages(i).Caption = Me.TextBox1.Value Then
            Me.MultiPage1.Value = i
        End If
    Next
End Sub

Replace the Button, MultiPage and Textbox names accordingly.

 

[dmt32]

Hi welcome to forum

see if this code will do what you want

Private Sub CommandButton1_Click()
    Dim LastPage As Long, Index As Long
    Index = Val(Me.TextBox1.Value) - 1
    With Me.MultiPage1
        LastPage = .Pages.Count - 1
        .Value = IIf(Index > LastPage, LastPage, IIf(Index < 0, 0, Index))
    End With
End Sub

I have assumed users will just enter a numeric value from 1 to last page number to select required Page?

Change control names as required

Dave