Multipage Sayfa Geçişleri

[baykan_m]

Merhaba Arkadaşlar,

Userform üzerinde oluşturduğum Multipage sayfasında 7 adet sayfa var. Sayfa geçişleri için

MultiPage1.Value = MultiPage1.Value +1

kodunu kullanıyorum. Ancak son sayfada (7) tekrar butona bastığımda +1 sayfa olmadığı için hata veriyor. Ben son sayfada tekrar butona bastığımda 1 nolu sayfaya geçsin istiyorum. Bir türlü yapamadım bunu.

Yardımcı olan arkadaşlara şimdiden çok teşekkür ederim.

İyi çalışmalar.

 

[cems]

Private Sub CommandButton1_Click()
 MultiPage1.Value = MultiPage1.Value + 1
End Sub

Private Sub CommandButton2_Click()
 MultiPage1.Value = MultiPage1.Value - 1
End Sub

Ya da 7ci sayfadan 1ci sayfaya dönmek istiyorsanız index numarası yolu :

MultiPage1.Pages(0).Caption

Dener misiniz ?
Indeks 0 daima MultiPage denetimi ilk sayfa anlamına gelir. Dosya olmadığından 7 tane üzerinde denemedim ancak , eksi ile geri gidiyor ya da index numarası kullanın ve bunları kendi dosyanızda sınayınız.

 

[PLİNT]

Merhaba
Sn. cems 'in kodlarına alternatif olarak; aşağıdaki gibi olabilir.

If MultiPage1.Value = 6 Then MultiPage1.Value = 0: Exit Sub
MultiPage1.Value = MultiPage1.Value + 1

Veya butonda başka kodlarda varsa,

If MultiPage1.Value = 6 Then MultiPage1.Value = 0: goto atla
MultiPage1.Value = MultiPage1.Value + 1
atla: