I have the following on a form:
Private Sub DOB_Exit(Cancel As Integer)
[Age] = ((Date) - [DOB])
End Sub
DOB (date of birht) is a field on a table. Age is an unbound field. This correctly returns the age when I enter a DOB that should return 99 years old or less. But when I enter a DOB that should return 100 years old or more, the age resets to zero.
Any suggestions on how I can correct this?
Private Sub DOB_Exit(Cancel As Integer)
[Age] = ((Date) - [DOB])
End Sub
DOB (date of birht) is a field on a table. Age is an unbound field. This correctly returns the age when I enter a DOB that should return 99 years old or less. But when I enter a DOB that should return 100 years old or more, the age resets to zero.
Any suggestions on how I can correct this?