Textbox'ların icerisini temizleme

[bage]

Arkadaşlar Merhaba;
Bilgi girdiğim cok fazla TextBox'lar var.
ComboBox1'de farklı bir secenegi sectigim zaman ornegin sadece txtolcum ile baslayan butun TextBox'ların icerisi
nasıl temizleyebilirim.

Simdiden yardımlarınız icin tesekkur ederim...

 

[Seyit Tiken]

Aşağıdaki gibi deneyiniz.

Private Sub ComboBox1_Click()
For a = 1 To 4
If Me.ComboBox1.Text = "txtolcum" Then Me.Controls _
("TextBox" & a) = ""
Next
End Sub

 

[Haluk]

Alternatif:

    Dim Ctrl As Control
    For Each Ctrl In Me.Controls
        If TypeName(Ctrl) = "TextBox" And Ctrl.Name Like "txtolcum*" Then
            Ctrl.Value = Empty
        End If
    Next

 

[bage]

Sayın Haluk (Raider),
cok tesekkur ediyorum.
Kısa ve net bir cozum, tam size gore...