error handling for dateadd function to return to previous value

[kelkan]

I am tracking certifications by expiration date and class date in a form. I have it set up in vba for afterupdate action in the CLASSCOMPLETED field for the following:

Dim STRDATE As String
STRDATE = DateAdd("M", Me.FREQUENCY, Me.CLASSDATE)


If CLASSCOMPLETED = "YES" Then
EXPIRATIONDATE = STRDATE

End If

This works great, but if the user changes the CLASSCOMPLETED back to "NO" for some reason, I want the EXPIRATIONDATE to revert to the original date. I assume that I do that through error handling or Else If function but I do not know how to write it. Can anyone help?

[June7]

You mean if the user changes back to "NO" in the same session with the record? Because once the record and its edits are committed to table the old value is gone.

Review http://msdn.microsoft.com/en-us/libr.../ff821779.aspx

Try:

If ClassCompleted = "Yes" Then
ExpirationDate = strdate
Else
ExpirationDate.Undo
End If

ClassComplete is a text or Yes/No datatype?

[kelkan]

CLASSCOMPLETED is a text field. I tried Else EXPIRATIONDATE.Undo and got error message "method not found"

[June7]

If you want to provide db for analysis, follow instructions at bottom of my post.

[Missinglinq]

As June7 said, this has to be done during a single entering/editing of the Record, because once the data is saved/committed there is no retrieving the old data.

Is there any reason that you have to actually see the date change, at the time that 'Yes' is entered into ClassCompleted? If not, you could simply place your original code in the Form_BeforeUpdate event. You won't see the change when it's made (unless this is a Datasheet or Continuous View Form) but it will be there when you return to the Record, and the change will only be there if ClassCompleted = 'Yes' when the Record is saved.

Linq ;0)>