[AccessD] Expiration Date

This is what happens:
 
-Record 1 Expires 11/03/2009 (DateEarlyExp)
-lblExpired shows "Some items will expire in 7 days"
 
-Record 2 expires 10/27/2009
-EarlyExpLabel (label next to DateEarlyExp field) shows Red & "Item
Expired"
-lblExpired does not show
 
-Record 3 expires 11/23/2009
-EarlyExpLabel is Red & shows "Item Expired" even though txtExpireDays
shows 27
-lblExpired shows "Some items will expire in 27 days"
 
It's all downhill after that. The fields & labels show & are red.
 
There is a text field on the form: txtExpireDays that has as the control
source: =DateDiff('d',Date(),NZ([DateEarlyExp],Date()+365))
 
If (txtExpireDays > 0 And txtExpireDays <= 31) Then
    Me.lblExpire.Visible = True
    Me.lblExpire.ForeColor = lngRed
    lblExpire.Caption = "Some items will expire in " & txtExpireDays & "
days"
    
ElseIf txtExpireDays < 1 Then
    Me.lblExpire.Visible = False
    Me.DateEarlyExp.ForeColor = lngRed
    Me.EarlyExpLabel.ForeColor = lngRed
    Me.EarlyExpLabel.Caption = "Item Expired:"
    
Else
    Me.lblExpire.Visible = False
    Me.DateEarlyExp.ForeColor = lngBlack
    Me.EarlyExpLabel.ForeColor = 8388608
    Me.EarlyExpLabel.Caption = "Early expiration:"
 
End If
 
***
If you mean you navigate to other records and they show that, then your
expired label isn't being required properly, even if the date
calculation may be.
 
 
Charlotte Foust
 
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
<http://databaseadvisors.com/mailman/listinfo/accessd> 
[mailto:accessd-bounces at databaseadvisors.com
<http://databaseadvisors.com/mailman/listinfo/accessd> ] On Behalf Of
Hollis,
Virginia
Sent: Tuesday, October 27, 2009 11:24 AM
To: accessd at databaseadvisors.com
<http://databaseadvisors.com/mailman/listinfo/accessd> 
Subject: [AccessD] Expiration Date
 
No. It is a Single Form.