General Next Page button for tab control?

[Guest]

Hello,

Is there a way to program a Next Page button for a tab control that can be
put in the form's header and that'll go to the next page, regardless of what
page I am on?

Thank you.

 

[Guest]

Yes its possible, but why do it?
Its a good idea to stay away from non-standard user-interfaces.

Dorian

 

[Guest]

I want to do it because it would be helpful and save people some scrolling.
Can you help me with the programming?

 

[Guest]

The Tab Control for the example below has 5 pages. The Pages collection
index starts at 0. The Value property of the Tab Control contains the index
number of the current page.

Private Sub Command6_Click()
Dim lngPageNo As Long

lngPageNo = Me.TabCtl0.Value
If lngPageNo = 4 Then
lngPageNo = 0
Else
lngPageNo = lngPageNo + 1
End If
Me.TabCtl0.Pages(lngPageNo).SetFocus
End Sub

 

[Guest]

Works great, thank you very much!

The Tab Control for the example below has 5 pages. The Pages collection
index starts at 0. The Value property of the Tab Control contains the index
number of the current page.

Private Sub Command6_Click()
Dim lngPageNo As Long

lngPageNo = Me.TabCtl0.Value
If lngPageNo = 4 Then
lngPageNo = 0
Else
lngPageNo = lngPageNo + 1
End If
Me.TabCtl0.Pages(lngPageNo).SetFocus
End Sub