Public Sub DueDaysColor
Select Case me.txt_DueDays
Case 0
me.txt_DueDays.Backcolor = rgb(x, y, z) 'turquoise
Case 1
me.txt_DueDays.Backcolor = rgb(x, y, z) 'bright green
Case 2
me.txt_DueDays.Backcolor = rgb(x, y, z) 'yellow
Case 3
me.txt_DueDays.Backcolor = rgb(x, y, z) 'light orange
Case >4
me.txt_DueDays.Backcolor = rgb(x, y, z) 'red
case else
me.txt_DueDays.Backcolor = rgb(255, 255, 255) 'white
end select
End sub
|