Hi
It is still returning a Null value.. I have no idea what I have missed :|
This is the code I have
Private Sub Form_Current()
Dim intAge As Integer
intAge = DateDiff("yyyy", [DOB], Date) 'calculate age in years
If DateSerial(Year(Date), Month([DOB]), Day([DOB])) Then intAge = intAge - 1...