Temizle Butonu

[Programcı24]

Sub formtemizle()
Dim slc
For Each slc In Me.Controls
If TypeOf slc Is MSForms.TextBox Or TypeOf slc Is MSForms.ComboBox Then
slc.Text = ""
End If
Next
End Sub

slc.Text = "" ---> satırında hata veriyor.

Yardımcı olabilir misiniz. Teşekkürler

 

[Korhan Ayhan]

Hata verecek bir durum görünmüyor.

Hata veren dosyanızı paylaşırsanız inceleyip bilgi verebiliriz.

 

[Programcı24]

sorun çözüldü teşekkürler.

(Butonu kaldırıp yeniden ekledim. kodda sorun yokmuş.)

 

[Programcı24]

sorun çözüldü teşekkürler.

(Butonu kaldırıp yeniden ekledim. kodda sorun yokmuş.)

sorun tekrar oluştu
asıl problem şundan kaynaklanıyor

hatanın nedeni şu : form üzerinden combobax ın style özelliğini fmstyleDropDownCombo dan DropDownList yapınca bu hata oluşuyor.



ama ben combobaxa müdahale edilsin istemiyorum.

 

[Programcı24]

Hata verecek bir durum görünmüyor.

Hata veren dosyanızı paylaşırsanız inceleyip bilgi verebiliriz.

hatanın nedeni şu : form üzerinden combobax ın style özelliğini fmstyleDropDownCombo dan DropDownList yapınca bu hata oluşuyor.

 

[Korhan Ayhan]

Böyle deneyiniz.

Sub formtemizle()
Dim slc
For Each slc In Me.Controls
If TypeOf slc Is MSForms.TextBox Or TypeOf slc Is MSForms.ComboBox Then
slc.Value = ""
End If
Next
End Sub

 

[Programcı24]

Böyle deneyiniz.

Sub formtemizle()
Dim slc
For Each slc In Me.Controls
If TypeOf slc Is MSForms.TextBox Or TypeOf slc Is MSForms.ComboBox Then
slc.Value = ""
End If
Next
End Sub

Üstad Allah razı olsun çok teşekkürler kesin çözüldü sorun yardımınızla.