temizle kodu

[excellcan]

Forumda emei geçen herkese merhaba. Arkadaşlar UserForm üzerindeki textboxların içeriğini temizlemenin pratik bir yolu var mıdır ? UserForm2 isimli bir çalışmamda 185 tane textbox 5 tane de combobox'ım var. TEMİZLE isimli commandbutton'a bunlların her birinin ismini tek tek yazıp =" " yazmanın dışında daha pratik bir yöntem arıyorum. Formda görmüş olduğum bir kodu şu şekilde kendime uyarladım ama sonuç vermedi.

For i = 1 To 185
Controls("TextBox" & i).Text = ""
Next i

İlgilenen arkadaşlara şimdiden teşekkürler.

 

[hamitcan]

TextBox isimleri aynı olmayabilir.

 

[excellcan]

TextBox isimleri aynı olmayabilir.

Hocam sizin cevabınızdan kodun doğru olduğunu ama çalışmamasının sebebinin textbox isimlerinin farklı olması olduğunu anlıyorum. Textboxların isimlerinde bir farklılık yok hocam. Şöyle ki hepsi Textbox1 , Textbox2...Textbox185 diye. Faydası olacak mı bilmiyorum ama pek sık görmediğim bir hata uyarısı veriyor oldukca da uzun bir hata uyarısı.

 

[hamitcan]

O zaman başka bir hata var demektir.

 

[excellcan]

O zaman başka bir hata var demektir.

Buldum hocam. Sizin dediğiniz gibi.

 

[excellcan]

O zaman başka bir hata var demektir.

Hocam çok çok teşekkürler sorun çözüldü . Ama yine de merak ediyorum. Varsayalım ki bütün textboxlarımızın ismi farklı. Bu durumda ne yapmak gerekecekti ? Tek tek textbox isimlerinin karşısına ="" mu yazacaktık?

 

[Ömer]

Hocam çok çok teşekkürler sorun çözüldü . Ama yine de merak ediyorum. Varsayalım ki bütün textboxlarımızın ismi farklı. Bu durumda ne yapmak gerekecekti ? Tek tek textbox isimlerinin karşısına ="" mu yazacaktık?

Merhaba,

Alternatif olarak aşağıdaki gibi kullanabilirsiniz.

    Dim nesne As Control
    
    For Each nesne In Me.Controls
        If Left(nesne.Name, 7) = "TextBox" Or _
            Left(nesne.Name, 8) = "ComboBox" Then
            Controls(nesne.Name) = ""
        End If
    Next nesne

.

 

[Altay3555]

Buldum hocam. Sizin dediğiniz gibi.

Selam,
Buldum hocam demekle olmuyor,konuyu okuyan maalesef merak içinde neyi nasıl buldu diye.Arşimet de buldum diyerek çıplak olarak hamamdan dışarıya çıktığında herkes ne bulduğunu merak ediyordu.Sonunda onu öğrendik ama,sizden......

 

[hamitcan]

Selam,
Buldum hocam demekle olmuyor,konuyu okuyan maalesef merak içinde neyi nasıl buldu diye.Arşimet de buldum diyerek çıplak olarak hamamdan dışarıya çıktığında herkes ne bulduğunu merak ediyordu.Sonunda onu öğrendik ama,sizden......

Buradan anlaşılan, ilk mesajdaki kodun çalıştığı diye düşünüyorum.

 

[excellcan]

Selam,
Buldum hocam demekle olmuyor,konuyu okuyan maalesef merak içinde neyi nasıl buldu diye.Arşimet de buldum diyerek çıplak olarak hamamdan dışarıya çıktığında herkes ne bulduğunu merak ediyordu.Sonunda onu öğrendik ama,sizden......

Aslında anlaşılmayan bir durum yok. Yine de yanlış anlaşılmaya mahal verdiğim için özür dilerim. Gerek Hamitcan hocamın gerekse Ömer hocamın verdiği kodlar çalışıyor. Ben arada bazı text boxları sildiğim için ve bunun da farkında olmadığım için hata uyarısı alıyormuşum. Mevzu bundan ibaret.