AfterUpdate

[7anthala]

i want to use the AfterUpdate to calculate the age using two textfieds

Private Sub Birthdate_AfterUpdate()
Me.AGE = DateDiff("yyyy", [Birthdate], Now()) + Int(Format(Now(), "mmdd") < Format([Birthdate], "mmdd"))
End Sub

but it wont work

 

[Frothingslosh]

Try this:

Private Sub Birthdate_AfterUpdate()
 
Dim AgeVal As Long
 
    AgeVal = DateDiff("yyyy", BDate, Date)
    If Date < DateSerial(DatePart("yyyy", Date), DatePart("m", Me.Birthdate), DatePart("d", Me.Birthdate)) Then AgeVal = AgeVal - 1
    Me.AGE = AgeVal
 
End Sub

 

[kevlray]

I am not an Access expert, but since when could you put a comparison in an assignment statement ( Int(Format(Now(), "mmdd") < Format([Birthdate], "mmdd")))

 

[7anthala]

i didnt work. if anybody knows what is the best way to automatic calculate the age in a form

 

[7anthala]

i tried this and it worked the way i needed
code:
Private Sub Birthdate_AfterUpdate()
Me.AGE.Value = DateDiff("yyyy", [Birthdate], Now()) + Int(Format(Now(), "mmdd") < Format([Birthdate], "mmdd"))

End Sub