Here is the SQL for the qryPatientToCalcAge:
SELECT IIf(DatePart("m",[tblPatient]![DOB])=DatePart("m",Date()) And DatePart("d",[tblPatient]![DOB])=DatePart("d",Date()),CInt((DateDiff('d',[tblPatient]![DOB],Date())/365.25)),CInt((DateDiff('d',[tblPatient]![DOB],Date())/365.25)-0.5)) AS Age...