TextBox içeriğini temizleme

[ocamsul]

Arkadaşlar merhabalar. Herkese iyi çalışmalar. dün siteye giriş sık sık baktım ancak bir sorun vardı zannedersem. Benim sorum şu aşağıdaki TextBox temizleme kodunu TextBox numarası belirtmek koşulu ile nasıl kullanabiliriz. zira

TextBox1.Value = " "

şeklinde alt alta çok uzun yazmaktansa aşağıdaki koda TextBoxların sadece numarasını belirterek kısa bir kod yazmak nasıl olur?

Private Sub CommandButton1_Click()
Dim txt As Integer
For txt = 1 To 8
Me.Controls("textbox" & txt).Value = ""
Next txt
End Sub

 

[Seyit Tiken]

Bu şekilde deneyin.

Private Sub CommandButton1_Click()
Me.TextBox1 = Empty
End Sub

 

[ocamsul]

Sn: Seyit Tiken ilginize teşekkür ederim. benim yapmak istediğim. örneğin TextBox 2,5,7,11,32 gibi seçerek, yüzden fazla textbox içinde seçimle temizleme yapan kısa bir kod olmasını istiyorum.

 

[Levent Menteşoğlu]

Eğer textbox isimleri ardışık gitmiyorsa aşağıdaki gibi deneyin.

Private Sub CommandButton1_Click()
For a = 0 To controls.count-1
if typename(controls(a))="TextBox" then controls(a)=""
Next
End Sub

 

[ocamsul]

Sn: leventm ilginize çok teşekkür ederim. Ancak; Benim yapmak istediğim diyelimki 50 adet textbox umuz var, bunlardan 25. 15. 21. textboxların içeriği temizlenecek. diğer seçilmemiş olanlar ise eski haliyle kalacak. yani içerikleri silinmicek.

 

[Levent Menteşoğlu]

Bu durumda textboxları altalta sıralayın.

textbox15=""
textbox21=""
textbox25""
.
.
.

 

[Seyit Tiken]

Fikir verme açısından aşağıdaki kodu kendinize göre değiştiriniz.

Private Sub CommandButton1_Click()
Controls("TextBox" & TextBox7.Value) = Empty
End Sub

Not : En alta bulunan Text'e, yukarıdaki herhangi bir Text'in sıra no'suna girin ve yandaki düğmeye basın. İlgili dosya ekte.

 

[ocamsul]

SN: Seyit Tiken verdiğiniz fikir gerçekten çok iyi yalnız bu örneği en sondaki text e ( 1.3.6.7.) şeklinde girerek temizleme imkanımız varmı? yani son text e hangi numaraları girersek o textleriin içeriğini temizleyecek.

 

[Mahmut Bayram]

Private Declare Function IsCharAlphaNumeric Lib "user32" Alias "IsCharAlphaNumericA" (ByVal cChar As Byte) As Long
Private Sub TextBox7_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Controls("TextBox" & IsCharAlphaNumeric(KeyAscii)) = Empty
End Sub

 

[ocamsul]

SN: Partner verdiğiniz kodu denedim; Ancak sadece 1. Text in içeriği temizlendi!!!

 

[kelkitli]

SN: Partner verdiğiniz kodu denedim; Ancak sadece 1. Text in içeriği temizlendi!!!

Sn.Leventm yazdığı kod ile textbox lar şu şekilde temizleniyor. İzinleriniz ile Dosya ekte

 

[kelkitli]

Özür yanlış dosya gönderdim

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz. Kırmızı renkli textboxa silinecek textbox nolarını girerken 5,8,11,25,33 şeklinde araya virgül ekleyerek giriniz. Umarım faydası olur.

 

[ocamsul]

Selamlar,
Ekteki örnek dosyayı incelermisiniz. Kırmızı renkli textboxa silinecek textbox nolarını girerken 5,8,11,25,33 şeklinde araya virgül ekleyerek giriniz. Umarım faydası olur.

üsdat süpersin. tam istediğim gibi çok teşekkür ederim.

 

[cancelik]

Korhan Bey Merhaba,
Sene 2007 de sunduğunuz çözümü benimle de paylaşır mısınız ?
Örnek dosya normal olarak silinmiş.

 

[AyYıldızım]

Korhan Bey, eklediğiniz dosya silinmiş, bende sadece seçili olan textboxların silinmesini yada sadece seçili olanların silinmemesini istiyorum, yardımcı olursanız sevinirim.

 

[Korhan Ayhan]

#13 nolu mesajımda ki dosyayı güncelledim. Tekrar deneyiniz.

 

[AyYıldızım]

Korhan Bey çok teşekkürler. Peki Korhan Bey bu kodlamayı 51 nolu textboxu kullanmadan direk temizle butonunun içerisine temizlenecek textboxları tanımlayabilirmiyiz.

 

[Korhan Ayhan]

Elbette tanımlayabilirsiniz...

 

[AyYıldızım]

Tamamdır Korhan Bey, hallettim teşekkürler