Thanks for the prompt reply, I tried taking one of the close parens off, but to no avail.
Private Sub DOB_AfterUpdate()
DoCmd.RunSQL 'UPDATE tblDemographics SET tblDemographics.Age = DateDiff("yyyy",[DOB],Now())+Int(Format(Now(),"mmdd")<Format([DOB],"mmdd"))'
End Sub
Same error with the...