Database

Function Age(varBirthDate As Variant) As Integer
    Dim varAge As Variant

    If IsNull(varBirthDate) Then Age = 0: Exit Function

    varAge = DateDiff("yyyy", varBirthDate, Now)
    If Date < DateSerial(Year(Now), Month(varBirthDate), _
                         Day(varBirthDate)) Then
       varAge = varAge - 1
    End If
    Age = CInt(varAge)
End Function

Function GetAgesOfChildren(parentID As Integer) As String
 
    Dim sResult As String
    Dim sSql As String
    Dim conn As ADODB.Connection
    Dim rst As ADODB.Recordset
     
    Set conn = Application.CurrentProject.Connection
    Set rst = New ADODB.Recordset
     
    '--select statement uses the Age() function
    sSql = "Select Age(DOB) From tbl_Children Where l_Mem_ID = " _
               & parentID & " Order By Age(DOB)"
     
    '--open the recordset
    rst.Open sSql, conn
     
    sResult = ""
    '--loop through the recordset to create a concatentated string
    While Not (rst.EOF)
        If sResult <> "" Then sResult = sResult & ", "
        sResult = sResult & CStr(rst(0))
        rst.MoveNext
    Wend
     
    GetAgesOfChildren = sResult
     
    Set rst = Nothing
    Set conn = Nothing
 
End Function

Field--  Ages: GetAgesOfChildren([tbl_Customers].[l_Mem_id])
Table--
Total--  Expression