TEMİZLE BUTONU

[Programcı24]

Temizle butonuna tıkladığımda sadece txtboxları temizliyor ben hem textboxları hemde comboboxları komple temizlemek istiyorum. Combobox lar için nasıl kod eklemeliyim? Teşekkürler.

Private Sub CommandButton2_Click()

Dim ctl

cevap = MsgBox("Form temizlenecek. Emin misiniz?", vbYesNo, "TEMİZLE")

If cevap = vbYes Then
For Each ctl In Me.Controls
If TypeOf ctl Is MSForms.TextBox Then
ctl.Text = ""
End If
Next
End If

End Sub

 

[ÖmerBey]

Merhaba,
If sorgunuzu aşağıdaki gibi değiştirip deneyiniz.

If TypeOf ctl Is MSForms.TextBox Or TypeOf ctl Is MSForms.ComboBox Then

 

[Programcı24]

Merhaba,
If sorgunuzu aşağıdaki gibi değiştirip deneyiniz.

If TypeOf ctl Is MSForms.TextBox Or TypeOf ctl Is MSForms.ComboBox Then

çok teşekkürler hocam sayenizde problem çözüldü.

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar...