çoklu textboxları temizlemek

[musculus]

Kullanmış olduğum userformda 44 adet textbox var.Temizle butonuna basınca hepsini temizlemek istiyorum kısa yoldan yapmaya çalıştım ama olmadı.Bende mecburen uzun yoldan tek tek yazarak temizliyorum.Bunun kısa yolu var mı ?

for a=1 to 44
textbox&a.value=""
next a

Bu kodlar çalışmıyor.

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub CommandButton1_Click()
For i = 1 To 44
Controls("textbox" & i) = ""
Next
End Sub

 

[Orion1]

Kaç tane textbox varsa temizler.

For Each txt In Me.Controls
    If Left(txt.Name, 7) = "TextBox" Then
        txt.Value = ""
    End If
Next

 

[musculus]

teşekkür

Sayın Evren Gizlen yardımlarınız için teşekkür ederim kodlar çalışıyor.
Sayın N.Ziya Hiçdurmaz size de yardımlarınız için teşekkür ederim fakat kodlar ekteki hatayı verdi

 

[musculus]

pardon hatayı yeni ekledim

 

[N.Ziya Hiçdurmaz]

Yanıt

Kırmızı işaretli sayı kadar textbox olmalı

For i = 1 To [COLOR="Red"]44[/COLOR]

 

[musculus]

textbox sayısı 44 ama arada 4 adet textbox'u silmiştim.yani aradan 5-11-17 ve 20.textboxlar yok ondan olabilir.

Sayın Evren textbox kodlarınız combobox'a uyarlamaya çalıştım ama temizlemiyor.Nerede hata yapıyorum acaba

For Each cmb In Me.Controls
If Left(cmb.Name, 8) = "combobox" Then cmb.Value = ""
Next

 

[Orion1]

textbox sayısı 44 ama arada 4 adet textbox'u silmiştim.yani aradan 5-11-17 ve 20.textboxlar yok ondan olabilir.

Sayın Evren textbox kodlarınız combobox'a uyarlamaya çalıştım ama temizlemiyor.Nerede hata yapıyorum acaba

For Each cmb In Me.Controls
If Left(cmb.Name, 8) = "combobox" Then cmb.Value = ""
Next

aşağıdaki gibi denermisiniz.

If Left(cmb.Name, 8) = "[B][COLOR="Red"]ComboBox[/COLOR][/B]" Then cmb.Value = ""

 

[musculus]

Dikkatsizliğimden utandım. Sayın Evren ve sayın N.Ziya ilginiz ve bilgileriniz için teşekkür ederim

 

[Orion1]

Estafurullah.
İyi çalışmalar.