I have a report that pulls data from a table and has the values of Red, Green, Blue, White, Yellow, Purple, Gold. I want the background behind each of those colors to be that color. So if the report shows Blue, then the text is Black in color but the background behind it is blue.

Here is my code thus far:

Select Case Me.PreviousStatus.Value
Case "Blue"
    Me.PreviousStatus.BackColor = 16711680
Case "Green"
    Me.PreviousStatus.BackColor = RGB(0, 255, 0)
Case "Red"
    Me.PreviousStatus.BackColor = RGB(255, 0, 0)
Case Else
    Me.PreviousStatus.BackColor = vbWhite
End Select

I assume you are putting this on the Detail section's On Format event. Is this working for you? If not, what errors are being thrown?

I think your readers may have a hard time with seeing black letters against at least that green value.


mmcdonal

Look it up at: http://wrox.books24x7.com

Actually, in trying this out, I find you want to specify the same color values. Use the Back Color color picker and insert the values you would have show up in the code, like this:

Select Case Me.Color
    Case "Blue"
        Me.Color.BackColor = 16711680
    Case "Red"
        Me.Color.BackColor = 255
    Case "Green"
        Me.Color.BackColor = 65280
    Case Else
        Me.Color.BackColor = 16777215
End Select

This worked the way you want it to.

mmcdonal

Look it up at: http://wrox.books24x7.com

As MMcDonal points out, what exactly is the error or problem? I also suggest using intrinsic constants.

Select Case Me.PreviousStatus
Case "Blue"
    Me.PreviousStatus.BackColor = vbBlue
Case "Green"
    Me.PreviousStatus.BackColor = vbGreen
Case "Red"
    Me.PreviousStatus.BackColor = vbRed
Case Else
    Me.PreviousStatus.BackColor = vbWhite
End Select


Greg Serrano
Michigan Dept. of Environmental Quality, Air Quality Division