Soru Userform Nesne

[sirkülasyon]

On Error Resume Next
For Each i In Me.Controls
If TypeName(i) = "TextBox" Or TypeName(i) = "ComboBox" Then i.Value = ""
If TypeName(i) = "OptionButton" Or TypeName(i) = "CheckBox" Then i.Value = False
Next i
ListBox1.Selected(ListBox1.ListIndex) = False

Ustam Form üzerinde nesneler dolu ise yukarıda ki kod ile temizliyorum. Ola ki, nesneler boş iken temizle düğmesini çalıştırdığımızda "temizlenecek veri yoktur" mesajı vererek işlemi hata vermeden sonlandırmasını nasıl sağlayabilirim?

 

[askm]

Aşağıdaki şekilde deneyin.

On Error Goto Hata
For Each i In Me.Controls
If TypeName(i) = "TextBox" Or TypeName(i) = "ComboBox" Then i.Value = ""
If TypeName(i) = "OptionButton" Or TypeName(i) = "CheckBox" Then i.Value = False
Next i
ListBox1.Selected(ListBox1.ListIndex) = False
Hata: 
MsgBox "Temizlenecek veri yoktur", vbCritical,"UYARI!"

 

[sirkülasyon]

Çok teşekkür ederim.