ForeColor & BackColor Using Date Field

[Wolfgrin]

Hi,

I have set up a report In Access 2003 where there are 2 check boxes I refer to to change the color of the Date of that record. That part is working.

I also need to Change the color of the date feild when the date in the field is 3 days or more older. I am currently using the following code.

Any Suggestions?
Thanks In Advance,
Ray

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Dim lngBlack As Long
Dim lngRed As Long, lngGreen As Long, lngWhite As Long, lngYellow As Long
    lngRed = RGB(255, 0, 0)
    lngBlack = RGB(0, 0, 0)
    lngGreen = RGB(60, 116, 44)
    lngWhite = RGB(255, 255, 255)
    lngYellow = RGB(255, 255, 0)
 
 If Check65 = -1 Then
     Me!Date.ForeColor = lngWhite
     Me!Date.BackColor = lngGreen
     Else
     Me!Date.ForeColor = lngBlack
     Me!Date.BackColor = lngWhite
 
 If Check49 = -1 Then
     Me!Date.ForeColor = lngBlack
     Me!Date.BackColor = lngYellow
        Else
     Me!Date.ForeColor = lngBlack
     Me!Date.BackColor = lngWhite
 
If Me.[Date Evaluated].Value = Now() + 3 Then
     Me!Date.ForeColor = lngBlack
     Me!Date.BackColor = lngRed
        Else
     Me!Date.ForeColor = lngBlack
     Me!Date.BackColor = lngWhite
 
    End If
    End If
    End If
 End Sub