Userform - Labelcontrol with value get frame (VBA)

[jammerdk]

Hi Guys

I'm currently using this piece of VBA code give certain labels in my userform a frame.

Dim oCtrl As Control

For Each oCtrl In Me.Controls
If TypeName(oCtrl) = "lbl" Then
oCtrl.BorderStyle = 1
End If
Next oCtrl

I'd like to include if labels caption contains a value..

Hope you're able to lead me on the way

 

[Norie]

Perhaps.

Dim oCtrl As Control

    For Each oCtrl In Me.Controls
        If TypeName(oCtrl) = "lbl" Then
            If oCtrl.Caption Like "*value*" Then
                oCtrl.BorderStyle = 1
            End If
        End If
    Next oCtrl

 

[Rick Rothstein]

Hi Guys

I'm currently using this piece of VBA code give certain labels in my userform a frame.

Dim oCtrl As Control

For Each oCtrl In Me.Controls
If TypeName(oCtrl) = "lbl" Then
If oCtrl.Caption <> "" Then oCtrl.BorderStyle = 1
End If
Next oCtrl

I'd like to include if labels caption contains a value..

Hope you're able to lead me on the way

What you are asking is not clear. Perhaps what I show in red above is what you are after.

 

[jammerdk]

In general this is what I'm trying to achieve.

If Me.lblMax1.Caption = "" Then Me.lblMax1.BorderStyle = fmBorderStyleNone
If Me.lblMax2.Caption = "" Then Me.lblMax2.BorderStyle = fmBorderStyleNone
.
.
.
.
If Me.lblMin1.Caption = "" Then Me.lblMin1.BorderStyle = fmBorderStyleNone
If Me.lblMin2.Caption = "" Then Me.lblMin2.BorderStyle = fmBorderStyleNone
.
.
.
I just want to cycle through all label controls instead of have to do it 1 by 1 as there quite a few label controls located in my userform.

 

[My Aswer Is This]

Try this:

Private Sub CommandButton2_Click()
Dim ctrl As MSForms.Control
 
    For Each ctrl In Me.Controls
    
        If TypeOf ctrl Is MSForms.Label Then
            If ctrl.Caption = "" Then ctrl.BorderStyle = fmBorderStyleNone
        End If
    Next ctrl
End Sub