Pageler arası geçiş

[ahmett46]

Slm. Arkadaşlar,

Private Sub CommandButton23_Click()
On Error Resume Next
Me.MultiPage1.Value = Me.MultiPage1.Value + 1
End Sub

kodlarıyla ileri doğru pageler arasında geçiş yapıyorum. Eğer 3 page varsa bu kodları kullanarak ileri doğru 3 pageye de ulaşıyorum. ama 3. pageden sonra

Private Sub CommandButton23_Click()
On Error Resume Next
Me.MultiPage1.Value = Me.MultiPage1.Value - 1
End Sub

kodlarını kullanarak geriye doğru geçiş yapıyorum. Tek bir butonla ileri geri yapmamız mümkün mü? Yani 3. pageye geldiğimde butona tekrar tıkladığımda 1. pageye dönebilirmiyiz. Teşekkürler..

 

[Orion1]

Aşağıdaki kodlar işinizi görür.

Dim say As Byte
Private Sub CommandButton23_Click()
a = Array(0, 1, 2, 1, 0)
If say = 4 Then
    say = 1
    Else
    say = say + 1
End If
MultiPage1.Value = a(say)
End Sub

 

[ahmett46]

Teşekkürler Üstad

 

[Orion1]

Teşekkürler Üstad

Rica ederim.