Hello,
I have a table named CUSTOMERS with a field named DOB. It has a
mm/dd/yyyy format. It displays dates of birth.

I would like to add on a form two text boxes named txtDOB and txtAGE.

The txtDOB will have as record source the table CUSTOMERS and the
field DOB.
I would like to add the unbound txtAGE control to convert the Date of
birth to Age.
Can any one tell me how and where I should write the the code? Thanks.

jprma (AT) tin (DOT) it (Paolo) wrote in message news:<9f41a860.0308120133.3ebe5544 (AT) posting (DOT) google.com>...
First, to set the field for the DOB, you can use the forms wizard to
help with that, by simply selecting the table and that field.
Otherwise you can add the field and change the record source.

As for your second question, what are you wanting to convert the date
to?

Thanks,
yes, what I need is simply convert the date of birth to age/months.
thanks.
janthony (AT) harrahs (DOT) com (janthony) wrote in message news:<41de23b5.0308120720.7b932f6e (AT) posting (DOT) google.com>...

You are welcome to use the following code. It will return an age in
years only so you might want to adapt it.

You could either use the code behind the form and call it at form open
or create a module that you would then be able to use elsewhere.

code:

Function AgeNow(DOB As Date) As Integer
'calculates age in years based upon date of birth
If DOB > 0 Then

If DatePart("m", DOB) < DatePart("m", Date) Or (DatePart("m", DOB)
= DatePart("m", Date) And DatePart("d", DOB) < DatePart("d", Date))
Then
'they've already had their birthday this year
AgeNow = DateDiff("yyyy", DOB, Date)
Else: AgeNow = DateDiff("yyyy", DOB, Date) - 1

End If
End If

End Function

Hope this helps, it is probably not the neatest way of doing it but it
works.

Paul

jprma (AT) tin (DOT) it (Paolo) wrote in message news:<9f41a860.0308122316.2b86b619 (AT) posting (DOT) google.com>...