Date Add Code

[gripper]

On my MS Access DB I have a form and on that form their is a date field named "txt_Date_Purchased".

I am trying to make an After Update code that will automatically add 365 days to this field and put the results in the field "txt_Expiration_Date".

Below is the code I constructed but it does not work. Can you guys see what I did incorrectly.


Private Sub txt_Date_Purchased_AfterUpdate()
Me.txt_Date_Purchased.Value = DateAdd("d", 365, Me.txt_Expiration_Date.Value)
End Sub

Thank you.

 

[Joe4]

Looks like you have you two fields backwards.
You are telling it to update "txt_Date_Purchased" after it "txt_Date_Purchased" updates!
Looks like an endless loop to me!

Don't you want to update "txt_Expiration_Date" after "txt_Date_Purchased" updates? If so, you need to switch those two fields in your formula.

 

[gripper]

That did the trick. Thank you very much.