hide all labels on a form if caption is empty?

[jinx_uk_98]

Hi All,

Can anyone tell me the best way to set the visable properties of all labels to false if the caption is empty?

On a similar note, anyone know how I can set the caption to all labels on a form to empty?

Many thanks
Kev

 

[pcc]

first answer

Private Sub UserForm_Initialize()
For Each ctl In UserForm1.Controls
If ctl.Name Like "Label*" Then
UserForm1.Controls(ctl.Name).Visible = Not (UserForm1.Controls(ctl.Name).Caption = "")
End If
Next ctl
End Sub

second

Private Sub UserForm_Initialize()
For Each ctl In UserForm1.Controls
If ctl.Name Like "Label*" Then
UserForm1.Controls(ctl.Name).Caption = ""
End If
Next ctl
End Sub

 

[BrianB]

I have combined the 2 to avoid repetition

Private Sub UserForm_Initialize()
    For Each ctl In UserForm1.Controls
        If TypeName(ctl) = "Label" Then
            ctl.Caption = ""
            '-
            If ctl.Caption = "" Then
                ctl.Visible = False
            End If
            '-
        End If
    Next ctl
End Sub