[AccessD] Birthday in table

John Bartow john at winhaven.net
Fri Jun 15 10:05:21 CDT 2007


Lembit I just checked my Op.Lic. App to see how it handled Feb 29. It worked
fine. I put this code in the lost focus event:

'check if applicant is 21 or over - display age if not
 Dim intAge As Integer
 intAge = Year(Now()) - Year(Me.txtBirthdate)
   Me.txtAge = "Age: " & intAge
   If intAge < 21 Then
      Me.txtAge.Visible = True
   Else
      Me.txtAge.Visible = False
   End If 

BTW I don't force the issue if the applicant is under 21 because in some
places they can still serve alchohol even though they can't drink what they
serve. I just display their age if it's less than 21.

HTH,
John B.




More information about the AccessD mailing list