Temizle Butonu

Katılım
18 Mart 2022
Mesajlar
34
Excel Vers. ve Dili
2019 TÜRKÇE
Kod:
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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,269
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Hata verecek bir durum görünmüyor.

Hata veren dosyanızı paylaşırsanız inceleyip bilgi verebiliriz.
 
Katılım
18 Mart 2022
Mesajlar
34
Excel Vers. ve Dili
2019 TÜRKÇE
sorun çözüldü teşekkürler.

(Butonu kaldırıp yeniden ekledim. kodda sorun yokmuş.)
 
Katılım
18 Mart 2022
Mesajlar
34
Excel Vers. ve Dili
2019 TÜRKÇE
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.
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,269
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Böyle deneyiniz.

C++:
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
 
Katılım
18 Mart 2022
Mesajlar
34
Excel Vers. ve Dili
2019 TÜRKÇE
Böyle deneyiniz.

C++:
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.
 
Üst