How to compute the age automatically on access if date of birth is already entered?

[Raizza Johnny]

Is this possible? What are the codes that are in doing this function?

[BHo15]

See if this helps...

http://allenbrowne.com/func-08.html

[twinnyfo]

Have you tried something like this:

Public Function WhatIsAge(dtDOB As Date) As String
    Dim intYears As Integer
    Dim intMonths As Integer
    Dim intDays As Integer
    intYears = Format(Date - dtDOB, "yy")
    intMonths = Month(Date - dtDOB) - 1
    intDays = Day(Date - dtDOB)
    WhatIsAge = "Age is " & _
        intYears & " years, " & _
        intMonths & " months, " & _
        intDays & " days."
End Function

[NeoPa]

You can use DateDiff('yyyy',Date(),[DoB]) to calculate the approximate number of years then check the result for rounding by comparing Date() with DateAdd('yyyy',EarlierResult,[DoB]).