For each Control in Userform

[matthew230]

Hi,

Can someone help me quickly with learning a new technique.

I want to be able to quickly update a number of controls on a userform.

I have manged to work out:

For each control in userform1.controls
control.enabled = false
next

etc.

Can I define a type of control, eg for all optionbuttons, labels or textboxes etc.

Also is there a way to define the value. I want to say for each checkbox, if it has a value = true then to enable the control.

I tried the following but it doesn't work

for each control in userform1.controls
if control.value = true then
control.enabled = true
else
end if
next

Many thanks for all your help.

Matt

 

[Case_Germany]

Hi,

Here is an example of some controls - the controls are emptied here:

Private Sub CommandButton1_Click()
    Dim ctrElement As Control
    For Each ctrElement In Controls
        Select Case TypeName(ctrElement)
            Case "TextBox": ctrElement = ""
            Case "CheckBox": ctrElement = False
            Case "ListBox", "ComboBox"
            If ctrElement.RowSource = "" Then
                ctrElement.Clear
            Else
                ctrElement.ListIndex = -1
            End If
        End Select
    Next
End Sub

Case_Germany