objects in active userform

[rgandy]

i would like to iterate thru all drop down boxes and text boxes in the current active userform

i imagine the syntax is something like..

for each blahblah in userforms(activeuserform)
blahblah.value = ""
next blahblah

does anyone know the exact syntax? thanks

 

[PHV]

A starting point:
For Each objForm In UserForms
If objForm.Visible Then
For Each objControl In objForm.Controls
MsgBox "Form=" & objForm.Name & ", Control=" & objControl.Name
Next
End If
Next

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[rmikesmith]

Assume Userform named Userform1

Sub LoopUserformControls()
Dim Ctrl As Control

   For Each Ctrl In Userform1.Controls
     If TypeName(Ctrl) = "TextBox" Then
     ' Do stuff
     ElseIf TypeName(Ctrl) = "ComboBox" Then
     ' Do other stuff
     End If
   Next Ctrl
End Sub

Regards,
Mike