I have a small access database which my department enters review information into all day.
Last week for April Fools I added the code below to randomly set the background color below for some (and for three of the guys to always set it to hot pink).
Private Sub Associate_LostFocus()
Select Case Associate
Case "Mary Anderson", "Kelly Wright"
Me.Section(acDetail).BackColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256)
Case "Nick Dormer", "Shawn Justice", "Earl Onstott"
Me.Section(acDetail).BackColor = RGB(255, 105, 180)
Me.Section(acDetail).BackColor = RGB(238, 238, 209)
This turned out to be a big hit, and I now have a request from them to alternate between a list of 5-10 specific colors (they are picking them out at the moment!!!).
Is there an small, easy code I can use instead of above to acomplish this?
Thanks in advance