Is there a way to test if a control exists on a userform?

[Ryan H]

I have a sub (ClearUserform) that is called by several userforms. Sometimes
the control may not be on the userform passed to ClearUserform, thus I get an
error. So I added the On Error Resume Next statement to quickly work around
the error. Is there a way to test if the control exists on the userform
passed to the sub.

Sub MySub()
Call ClearUserform(Userform1)
End Sub

Sub ClearUserform(MyForm As UserForm)

On Error Resume Next
MyForm.TextBox1 = ""

' i have other controls list here

On Error GoTo 0

End Sub

 

[Bob Phillips]

Why not pass the control to the ClearForm macro?

 

[Dave Peterson]

Or if you're clearing all the textboxes on that passed userform...

Option Explicit
sub ClearUserForm(myform as userform)
dim ctrl as control
for each ctrl in myform.controls
if typeof ctrl is msforms.textbox then
ctrl.value = ""
end if
next ctrl
end sub

But you could do something like this:

Option Explicit
Sub ClearUserForm(myform As UserForm)
Dim ctrl As Control

Set ctrl = Nothing
On Error Resume Next
Set ctrl = myform.TextBox1
On Error GoTo 0

If ctrl Is Nothing Then
'do nothing
Else
ctrl.Value = ""
End If
End Sub


But I think Bob's idea is much better. And if you're using the same module to
clear lots of types of controls, you could use typeof to determine how to clear
it.

 

[Ryan H]

Because the number of controls on each userform to clear varies from 4 to 25.
I'd like to make my ClearUserform sub universal for all userforms. This way
I just send over the userform and not have to list out all the controls.

 

[Gary Keramidas]

maybe something like this

For s = 0 To .Frame1.Controls.Count - 1
If .Frame1.Controls(s).Name Like "OptionButton*"
Then