MS Access

These are MS Access-specific VBA tips:

Colourise an Access report field (MS Access) — when dumping a stoplight (i.e., red-amber-green) status indicator field to an Access report, I like to colourise the field. Put the following code in the VBA for your report object to cause the red-yellow/amber-green-blue field to be colourised by the report. Note, the report assumes that you are presenting only one letter (i.e., one of, "RYAGB?" in the field; where "?" is for an Unknown value). Also, replace "[Stoplight Short]" with the name of your field in the report. By way of explanation regarding blue: I use blue in my status reports to indicate completed items.

Option Compare Database

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
    Const ColorRed As Long = 255
    Const ColorAmber As Long = 65535
    Const ColorBlue As Long = 16711680
    Const ColorGreen As Long = 13434828
    Const ColorWhite As Long = 16777215
    Const ColorBlack As Long = 0
    
    Const BackStyleTransparent As Long = 0
    Const BackStyleNormal As Byte = 1

    Select Case Me![Stoplight Short]
        Case "B"
            Me![Stoplight Short].ForeColor = ColorWhite
            Me![Stoplight Short].BackColor = ColorBlue
            Me![Stoplight Short].BackStyle = BackStyleNormal
        Case "G"
            Me![Stoplight Short].ForeColor = ColorBlack
            Me![Stoplight Short].BackColor = ColorGreen
            Me![Stoplight Short].BackStyle = BackStyleNormal
        Case "Y", "A"
            Me![Stoplight Short].ForeColor = ColorBlack
            Me![Stoplight Short].BackColor = ColorAmber
            Me![Stoplight Short].BackStyle = BackStyleNormal
        Case "R"
            Me![Stoplight Short].ForeColor = ColorWhite
            Me![Stoplight Short].BackColor = ColorRed
            Me![Stoplight Short].BackStyle = BackStyleNormal
        Case "?"
            Me![Stoplight Short].ForeColor = ColorBlack
            Me![Stoplight Short].BackColor = ColorWhite
            Me![Stoplight Short].BackStyle = BackStyleTransparent
        Case Else
            Me![Stoplight Short].ForeColor = ColorBlack
            Me![Stoplight Short].BackColor = ColorWhite
            Me![Stoplight Short].BackStyle = BackStyleTransparent
    End Select
End Sub

Other Resources

See the page that linked to this one for other VBA resources I have found helpful.