Conditional Formatting with more than 3 conditions

[cactuspete13]

I have been searching the internet for the last few days, looking for a solution to this and can't figure this out. I am trying to set up a code that allows for more than three conditions on conditional formatting. I have picked up a lot on VBA coding while doing this but still can't figure it out. I have copied the coding I am using below. It right now works only in that it color codes the entire column based off the last selected option. Can someone assist me in getting it to color code each record instead of the column?

Private Sub Company_BeforeUpdate(Cancel As Integer)
Select Case Company
Case "A"
Me.Company.BackColor = 123456
Case "B"
Me.Company.BackColor = 234561
Case "C"
Me.Company.BackColor = 345612
Case "D"
Me.Company.BackColor = 456123
Case "E"
Me.Company.BackColor = 561234


Case "F"
Me.Company.BackColor = 612345
End Select

End Sub

[Bob Fitz]

Perhaps the following link will help:
http://www.access-programmers.co.uk/...d.php?t=154634

[cactuspete13]

I have already explored that one, as well as a number of others. I couldn't find the coding in there to get the job done unless it is hiding.

[ssanfu]

There is no coding - that is the beauty of it. No code required!

Open the table "TblStatus". Double click on one of the fields that has "bitmap image".
Then open the query "QryAddendances".