This may or may not be the best way to do it but it works
this uses an after update and a form current with the same code good luck
Private Sub date1_AfterUpdate()
Select Case Me.date1
Case Date
Me.date1.BackColor = RGB(255, 0, 0)
Case Date - 1
Me.date1.BackColor = RGB(0, 255, 0)
Case Date -...