I have the following code that is used to determine a person's age as
of the run date. I'm receiving an error message in my query related to
this function "Invalid use of null." I checked the values in the field
bdate, and they are all populated and are all less than (older) than
the current date. Can't seem to figure out what's causing the error.

Function yourAge(bdate) As Integer

Dim DateToday As Variant
DateToday = Date


If Month(DateToday) < Month(bdate) Or (Month(DateToday) = _
Month(bdate) And Day(DateToday) < Day(bdate)) Then
yourAge = Year(DateToday) - Year(bdate) - 1
Else
yourAge = Year(DateToday) - Year(bdate)
End If


End Function

Add a block around all your code (except the DIM statement):
If IsDate(bDate) Then

An example of how to write such a function:
http://allenbrowne.com/func-08.html

--
Allen Browne - Microsoft MVP. Perth, Western Australia
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.


"Coll" <col_mcmanus (AT) hotmail (DOT) com> wrote