Soru TextBox Temizleme

[sirkülasyon]

Userformun Propertis bölümünün (name) kısmında TextBoxlara isim verildi. İsim verilmemiş olsaydı

Dim i As Integer
For i = 1 To 34
    Me.Controls("TextBox" & i).Value = ""
Next i

kodunu kullanarak temizleyecektim. Ancak, (name) kısmında TextBoxlara isim verildiği için yapamadım. Rica etsem Propertis bölümünün (name) kısmına isim verilen Textboxları nasıl temizleyebilirim?
Teşekkür Ederim.

 

[zozotr]

Ben böyle bir kod kullanıyorum. İşinize yarayabilir.

Private Sub CommandButton1_Click()
    Dim ctrl As Control
    For Each ctrl In Me.Controls
        If TypeName(ctrl) = "TextBox" Then
            ctrl.Text = ""
        End If
    Next ctrl
End Sub

 

[sirkülasyon]

Yok hata veriyor

 

[ÖmerFaruk]

@zozotr arkadaşın verdiği yöntem doğru.
Eğer hata alıyorsanız nasıl bir hata var onu söylemeli ya da dosyanızı paylaşmalı ya da en güzeli F8 ile size verilen kodun hangi satırda hatayla sonuçlandığını görebilirsiniz.

 

[sirkülasyon]

Run Time Error "9" hatası

 

[NBATMAN]

Run Time Error "9" hatası

Sn. sirkülasyon
bende denedim herhangi bir hata yok. Düzgün çalıştı.
5 textbox ekledim ve sırası ile adlarını ad, soyadı, tcno, tel ve adres olarak değiştirdim.
sonra formu çalıştırıp textboxlara veri girdim ve butonu tıkladığımda tüm textboxların içeriğini temizledi.

 

[sirkülasyon]

Sayın NBATMAN TextBoxlar sizinde belirttiğiniz şekilde "ad, soyadı, tcno, tel ve adres" gibi. Boş userformda uyguladım Temizliyor. Asıl dosyada hata veriyor. İlgi ve alakanız için
zozotr,
ÖmerFaruk,
NBATMAN,
Teşekkür ederim.

 

[ÖmerFaruk]

Textboxlardan herhangi birinde başka bir kod tetikleniyor olabilir.
F8 ile adımlayarak gidince görebilirsiniz.