<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
<META content="MSHTML 5.00.3314.2100" name=GENERATOR></HEAD>
<BODY>
<DIV><FONT face=Arial size=2><SPAN class=920580919-03092003>A project review
must be completed within 5 days. If a project review is over 5 days past due and
the status is Pending, a label shows "Past Due & the number of days it is
past due". The Past Due date is based on the date the record was entered into
the system.</SPAN></FONT></DIV>
<DIV><FONT face=Arial size=2><SPAN
class=920580919-03092003></SPAN></FONT> </DIV>
<DIV><FONT face=Arial size=2><SPAN class=920580919-03092003>Problem: I need the
past due label to show not the days past due from the DateEntered, but count the
days Over 5. For example, the project was entered 8/28/2003, once the project is
>= 5 days past 8/28/2003 or on 9/4/2003 the label shows this project is past
due 6 days. What I really need is the label to show it is past due 1
day, because they do have a 5 day grace period. I use this on forms & the
reports.</SPAN></FONT></DIV>
<DIV><FONT face=Arial size=2><SPAN
class=920580919-03092003></SPAN></FONT> </DIV>
<DIV><FONT face=Arial size=2><SPAN
class=920580919-03092003>Virginia</SPAN></FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=Arial size=2><SPAN
class=920580919-03092003>***************</SPAN></FONT></DIV>
<DIV><FONT size=2><FONT face=Arial><SPAN class=920580919-03092003>Used in the
query to de</SPAN><SPAN class=920580919-03092003>termine </SPAN><SPAN
class=920580919-03092003>the number of days past due:</SPAN></FONT></FONT></DIV>
<DIV><FONT size=2><FONT face=Arial><SPAN
class=920580919-03092003></SPAN>PastDue:
DateDiff("d",[DateEntered],Now())</FONT></FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=Arial size=2><SPAN class=920580919-03092003>OnCurrent of
the form:</SPAN></FONT></DIV>
<DIV>If DateEntered <= DateAdd("d", -5, Date) And StatusID = 1 Then 'Status
is pending and review is 5 days past
due.<BR> Me!DateEntered.ForeColor = lngRed
'Date entered is red<BR> Me!LateDate.Visible
= True ' Show the sad face<BR>
Me.DaysPastDue.Visible = True 'Show past due label<BR>
Else<BR> Me!DateEntered.ForeColor =
lngBlack 'Review is not past due, Date Entered is
black<BR> Me!LateDate.Visible = False
'No sad face<BR>
Me.DaysPastDue.Visible = False 'No past due label.<BR> End
If</DIV></BODY></HTML>