Multipage Hakkında (makro)

[elvis]

Arkadaşlar ekte bulunan dosyada ; userform üzerine yerleştirdiğim multipage1 menü tablosu var. Bu Sayfaların içlerinde de ayrı ayrı textboxlar var. Benim istediğim Gelen evrak isimli sayfaya tıklayınca , sayfanın içerisinde bulunan textboxların içlerinin silinmiş olarak görüntülenmesini sağlayamak. Bunu makro ile yapamadım. Gelen evrak isimli sayfaya makro yazamadım. Bu konuda acil yardımlarınızı bekliyorum. İyi çalışmalar.

 

[elvis]

dosya eklemeyi unutmuşum

dosya ektedir.

 

[halit3]

aşaığıdaki kodu denermisiniz

Private Sub MultiPage1_Click(ByVal Index As Long)
ad = MultiPage1.Pages(Index).Caption
If ad = "Giden evrak" Then
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
End If
End Sub

 

[elvis]

Teşekkürler hocam. Harikasınız! Sağolun.

 

[Ayhan Ercan]

Merhaba
Sayın halit3'ün affına sığınarak;

Click olayında bunu yapmak pek sağlıklı olmayabilir

Alternatif olarak aşağıdaki kodarı düşünebilirsiniz..

Private Sub MultiPage1_Change()
Select Case MultiPage1.Value
Case 0: TextBox1 = "": TextBox2 = "": TextBox3 = ""
Case 1: TextBox4 = "": TextBox5 = "": TextBox6 = ""
Case 2: TextBox7 = "": TextBox8 = "": TextBox9 = ""
End Select
End Sub

 

[elvis]

Değerli hocalarım tekrar teşekkürler. Son olarak bişey daha isteyebilir miyim?
textboxlar ve comboboxları Dim ile tanımlayıp (iki farklı şekilde) for next döngüsü oluşturabilir miyiz? eğer bu şekilde olursa daha pratik birşey olacak. Nedenine gelince benim çalışma kitabımda (fazla yer kapladığından ekleyemedim) 140 tane textbox, 20 tane de combobox var. Bu konuda da yardımlarınızı bekliyorum. İlginiz için tekrar teşekkürler.

 

[Ayhan Ercan]

Merhaba

Textbox1, Textbox2,........Textbox140 'ı aşağıdaki gibi for next döngüsünde (Textboxların İçlerini temizlemede) kullanabilirsiniz..:

For i = 1 to 140
Controls("Textbox" & i) = ""
Next i

 

[elvis]

Teşekkürler hocam.

 

[Ayhan Ercan]

Teşekkürler hocam.

Rica ederim.
İyi Çalışmalar... k::

 

[sece02]

Merhabalar,
Farklı userformlarla yaptığım bir programı tek bir userform ile multipage yardımı ile yapmak istiyorum.
Örnek olabilecek eski çalışmalar forumdan silinmiş.Multipage hakkında çok açıklayıcı bir bilgiye de rastlayamadım.Sizin çalışmanızın bir örneği olsa çok işe yarayacak.
Bir örnek dosya eklerseniz sevinirim.

Sevgi ve saygı ile iyi çalışmalar.
Dostçakalın.