Label.Forecolor

[SSgtBarry]

I use to be able to make a labe.forecolor change (in access 2003) when another object property change. Example:

If a CheckBox = true then
Lable1.forcolor = .88888


else label.forcolor = .22222.
End if

In the newer Access, the color codes are "#C0C0C0" or "#EB15C etc.

The old code doesn't work. What can I use in the newer Access?

[ssanfu]

You can't have a decimal in front of the number.
I converted the numbers you gave from Hex to Decimal and the code works.

#EB15C should be #0EB15C (three groups of 2)

#0EB15C = RGB(12, 177, 92) = 12632256
#C0C0C0 = RGB(192, 192, 192) = 6074536

This is the code I used to check the colors

Private Sub Check13_Click()
    Dim Color1 As Long
    Dim Color2 As Long

    Color1 = RGB(12, 177, 92)
    Color2 = RGB(192, 192, 192)
    If Me.Check13 Then
        Me.Case_name_Label.ForeColor = Color1
    Else
        Me.Case_name_Label.ForeColor = Color2
        
    End If
End Sub

You can use:
Me.Case_name_Label.ForeColor = Color1 (Color1 set in code)
or
Me.Case_name_Label.ForeColor = RGB(12, 177, 92)
or
Me.Case_name_Label.ForeColor = 12632256


If you want colors 88888 and 22222, don't use the decimals in front or behind the numbers

Private Sub Check13_Click()

    If Me.Check13 Then
        Me.Case_name_Label.ForeColor = 88888
    Else
        Me.Case_name_Label.ForeColor = 22222       
   End If
End Sub

[SSgtBarry]

Awesome! Thank you very much!!!

[SSgtBarry]

I'm still a little confused. The colors I want to use are #ED1C24 and #BFBFBF.

"In an old project" this is the code I used to change a fore.color of a label:

If [Discount] = 1 Then
Label471.ForeColor = -2147483630
Else: Label471.ForeColor = 8421504
End If

With the newer color codes that Access uses, I don't get results but instead errors.

"How can I convert the newer codes by myself" for all future uses?

Also: what are the translations of the two colors that I want to use?

Please!!!! and Thanks!

[June7]

#ED1C24 appears to be a reddish hue (#FF0000 is pure red) - RGB(237,28,36)

Can discover the RGB codes by setting property of textbox then opening the color palette Custom tab.

#BFBFBF = RGB(191,191,191)

Lots of sources on web for color charts http://www.cloford.com/resources/colours/500col.htm

The property field will accept either the Hex or Access code.

[ssanfu]

I fixed your code and it works. My check box control name is Check26

Private Sub Check26_Click()
    If Me.Check26 Then
        Me.Label24.ForeColor = -2147483630
    Else
        Me.Label24.ForeColor = 8421504
    End If
End Sub

If your check box name is "Discount", then you should use

    If Me.Discount = True Then
        Label471.ForeColor = -2147483630
    Else   ' do not use the colon here
        Label471.ForeColor = 8421504
    End If

You could use

If Me.Discount = -1 Then

since by definition in Access by MS
TRUE = -1 and
FALSE = 0.

BTW, in Excel,
TRUE = 1 and
FALSE = 0.

In actuality,
FALSE = 0 and
TRUE = Not FALSE.... which means any non zero number.


If you want to test it, bind a check box control to a number field. Enter records of 0, -1, 1000, -5000.
I use this to create reports where I don't want to display the $ amount, but indicate that that they have a value in the field.


The colon ( : ) was used in the past to allow multiple statements on one line. It use has been deprecated.
In VBA I have only seen its use as a label indicator in code, mostly in Error handling code to indicate where to go when an error occurs.