ComboBox ve TextBox'lardaki verileri temizlemek

[yavuz829]

Merhaba arkadaşlar ComboBox ve TextBox'lardaki verileri temizlemek için bir kod arıyorum. Yardımcı olursanız sevinirim.

 

[Orion1]

Buyurun.

Dim nesne As Object
For Each nesne In Me.Controls
    If TypeName(nesne) = "TextBox" Or TypeName(nesne) = "ComboBox" Then
        nesne.Value = ""
    End If
Next

 

[yavuz829]

Private Sub Komut27_Click() Temizle Butonu
YAPILANISLEM: ComboBox Temizlenecek
ADEDI : TextBox Temizlenecek
SATISFIYATI : TextBox Temizlenecek

Hocam yazdığınız kodun nesne kısmına yukarıdaki açıklamaları nasıl eklemem gerekiyor. Kodlardan anlamadığım için yapamadım.

Private Sub Komut27_Click()
Dim nesne As Object
For Each nesne In Me.Controls
If TypeName(ADEDI, SATISFIYATI) = "TextBox" Or TypeName(YAPILANISLEM) = "ComboBox" Then
YAPILANISLEM , ADEDI, SATISFIYATI.Value = ""
End If
Next
End Sub

Bu şekilde uyguladım TypeName hata veriyor.

 

[Korhan Ayhan]

Nesnelerinizin adı yukarıdaki gibiyse aşağıdaki kodu kullanabilirsiniz.

YAPILANISLEM = ""
ADEDI = ""
SATISFIYATI = ""

 

[yavuz829]

Hocalarım ikinize de çok, çok teşekkürler.

 

[vardar07]

Hocam bu şekilde uyguladım butona tıkladığımız zaman verileri temizlemiyor.

Arkadaşım herhangi bir upload sitesine örnek dosyanızı yükleyin görerek cevap verilsin.
Tabiki sizce sakıncası yoksa.

 

[yavuz829]

Hocam altın üye olmadığım için dosya yüklemesi yapamıyorum. Orion1 hocam ve Korhan AYHAN hocalarım sorunumu hal ettiler. İlgilendiğiniz için çok teşekkürler.