[حل شده] یوزرفرم

[Ilbar]

سلام دوستان یه دستور vba میخوام ک تمام تکست باکس های و کمبوباکس های یوزرفرم پاک شود

[iranweld]

با سلام

کد ذیل را تست کنید

Private Sub CommandButton1_Click()
Dim iCtrl As Long
For iCtrl = 0 To Me.Controls.Count - 1
If TypeName(Me.Controls(iCtrl)) = "TextBox" Or TypeName(Me.Controls(iCtrl)) = "ComboBox" Then
Me.Controls(iCtrl) = ""
End If
Next iCtrl
End Sub

[Ilbar]

بسیار عالی