VBA: change label forecolor (Integer)

[Xlacs]

Hello,

I'm wondering if I'm doing this correctly because my label caption forecolor remains "red" given my code below.
Hoping some could enlighten me with the below code. Thank you!!

If Val(Me.lbl1.caption) < 85 Then
Me.lbl1.forecolor = RGB(255,0,0,)
Else
Me.lbl1.forecolor = RGB(0,0,0)

End If

I also tried

If Val(Me.lbl1) < 85 Then
    Me.lbl1.forecolor = RGB(255,0,0,)
    Else
    Me.lbl1.forecolor = RGB(0,0,0)
    
    End If

However, the result is regardless the value, the forecolor remains red.

 

[Micron]

Labels don't have values, so 2nd example will never work.
Can you show some examples of label captions where this doesn't work as expected to make sure there's no issue there as well?

 

[Xlacs]

Labels don't have values, so 2nd example will never work.
Can you show some examples of label captions where this doesn't work as expected to make sure there's no issue there as well?

You're right. What I mean is caption.

I don't have one, however, example of lbl1 caption is 80%. And my above code, does not recognize the statement

 

[Micron]

Hmm, well this works for me where the caption is 80% but I tested in Access. Shouldn't matter as the vba should work the same.

Function TestXlacsCode()
If Val(Me.Label176.Caption) < 85 Then
     MsgBox "Label caption is less than 85"
End If

End Function

Try this before your Val statement and check the output in the immediate window:
Debug.Print Val(Me.lbl1.Caption)

No, I don't use names like that in my code; this is a play db that somebody posted in a forum.
Love your user name!

EDIT - by any chance you turned off error handling?

 

[Xlacs]

Hmm, well this works for me where the caption is 80% but I tested in Access. Shouldn't matter as the vba should work the same.

Function TestXlacsCode()
If Val(Me.Label176.Caption) < 85 Then
     MsgBox "Label caption is less than 85"
End If

End Function

Try this before your Val statement and check the output in the immediate window:
Debug.Print Val(Me.lbl1.Caption)

No, I don't use names like that in my code; this is a play db that somebody posted in a forum.
Love your user name!

Will give this a try

 

[Micron]

Tried it in Excel - same code works. Our posts probably crossed & you didn't see my edit?
Yes, do try the debug thing.

 

[Xlacs]

Tried it in Excel - same code works. Our posts probably crossed & you didn't see my edit?
Yes, do try the debug thing.

hmm.. weird. but nothing is happening.. maybe Im doing this wrong

 

[Micron]

You didn't say, but this label is on a userform, yes?

Asked but not answered

EDIT - by any chance you turned off error handling?

and

Debug.Print Val(Me.lbl1.Caption)

result not reported? That's because code isn't running?

 

[Xlacs]

Hmm t

You didn't say, but this label is on a userform, yes?

Asked but not answered

and

result not reported? That's because code isn't running?

Hmm NO respond.

THis is how I code it. Do you think something is wrong here that triggers it?

Private Sub Userform_initialize()

Me.lbl1.caption = Format(Sheets("Sheet1").Range("D3").value, "0.00%"
Me.lbl2.caption = Format(Sheets("Sheet1").Range("D4").value, "0.00%"
.
.
.
        If Val(Me.lbl1.caption) < 85 Then
        Me.lbl1.forecolor = RGB(255,0,0,)
        Else
        Me.lbl1.forecolor = RGB(0,0,0)
    
    If Val(Me.lbl2.caption) < 85 Then
    Me.lbl2.forecolor = RGB(255,0,0,)
    Else
    Me.lbl2.forecolor = RGB(0,0,0)
    
    End If
    
    If Val(Me.lbl3.caption) < 85 Then
    Me.lbl3.forecolor = RGB(255,0,0,)
    Else
    Me.lbl3.forecolor = RGB(0,0,0)
    
    End If
    
    
        If Val(Me.lbl4.caption) < 85 Then
    Me.lbl4.forecolor = RGB(255,0,0,)
    Else
    Me.lbl4.forecolor = RGB(0,0,0)

 

[Xlacs]

You didn't say, but this label is on a userform, yes?

Asked but not answered

and

result not reported? That's because code isn't running?

Yes, In a userform