Change Text box background color when checkbox is checked

[NikoTheBowHunter]

On my form there is a text box that all our notes get entered into called [Notes History]. I would like to add a new checkbox to my form for defective items. So that when the box is checked the background color for [Notes History] changes from the default gray to red. When its unchecked the background goes back to the default gray.



How would this be done? I would imagine something with the "on client event" for the check box but as I have little knowledge of this I turn to you good peeps

checkbox name would be [DEFECTIVE]
Text box for notes is named [Notes History]

[NikoTheBowHunter]

Well I thought I had it figured out...

If Me.DEFECTIVE = True Then
[Notes History].BackColor = 255
Else
[Notes History].BackColor = BFBFBF
End If
End Sub

When the checkbox is clicked it does change to red as desired but when its unchecked the text box goes black and not back to the default gray. Any ideas?

[Bulzie]

If Me.DEFECTIVE = True Then

[Notes History].BackColor = 255

Else

[Notes History].BackColor = 12566463

End If

http://www.endprod.com/colors/

[davegri]

Setting color properties with VBA is a complex enterprise. IF you want to use the # notation, you have to convert it first to a decimal number. Here's a function to do that:

Public Function fcnHexColToRGB(ByVal hexColor As String) As String
    On Error GoTo fcnHexColToRGB_Error
    'Example HexColor = "#00FF1F"
    Dim Red As String
    Dim Green As String
    Dim Blue As String
    hexColor = Replace(hexColor, "#", "")
    Red = Val("&H" & Mid(hexColor, 1, 2))
    Green = Val("&H" & Mid(hexColor, 3, 2))
    Blue = Val("&H" & Mid(hexColor, 5, 2))
    fcnHexColToRGB = RGB(Red, Green, Blue)
        'The output is an RGB value
    On Error GoTo 0
    Exit Function
fcnHexColToRGB_Error:
    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure fcnHexColToRGB"
End Function

If you plug in your value "#BFBFBF", you will get 12566463.

So the working code would be

Else
[Notes History].BackColor = 12566463

[Micron]

simple if using constants
BackColor = vbred

[NikoTheBowHunter]

Thank you for the replies!!! converting/using the decimal version worked like a charm!! Knew this was the right place to come to. Thank you again everyone for your help!!! cheers!