A
AnotherNewGuy
Access 2003
I have two forms, one for computers and one for printers. Each has a
Purchase Date and Warranty Expiration Date. On each, the warranty expiration
is calculated on the Before Update field of the Purchase date. Below is the
code for the computer form. Input is via a text box.
Private Sub Purchase_Date_BeforeUpdate(Cancel As Integer)
If IsNull(Me.[Warranty_Expiration]) Then
Me.[Warranty_Expiration] = DateAdd("yyyy", 3, Me.[Purchase_Date])
End If
End Sub
One the computer form, when the user tabs from the Purchase Date the
Warranty Expiration is highlighted black, and the calculated date is visible.
But on the Printer form, when the user tabs from the Purchase Date, the
Warranty Expiration is highlighted black with no date visible. If the user
tabs on or presses the back arrow the field is filled in. It's just not
visible.
I'll be darned if I can find the difference in the two forms other than the
warranty period for printers is typically 1 year. Ideas?
thx and Merry Christmas
I have two forms, one for computers and one for printers. Each has a
Purchase Date and Warranty Expiration Date. On each, the warranty expiration
is calculated on the Before Update field of the Purchase date. Below is the
code for the computer form. Input is via a text box.
Private Sub Purchase_Date_BeforeUpdate(Cancel As Integer)
If IsNull(Me.[Warranty_Expiration]) Then
Me.[Warranty_Expiration] = DateAdd("yyyy", 3, Me.[Purchase_Date])
End If
End Sub
One the computer form, when the user tabs from the Purchase Date the
Warranty Expiration is highlighted black, and the calculated date is visible.
But on the Printer form, when the user tabs from the Purchase Date, the
Warranty Expiration is highlighted black with no date visible. If the user
tabs on or presses the back arrow the field is filled in. It's just not
visible.
I'll be darned if I can find the difference in the two forms other than the
warranty period for printers is typically 1 year. Ideas?
thx and Merry Christmas