getting error 2115

[Ted]

when i try to run this piece of vba, i get the said error which is helpfully
said to occur because "The macro of runction set to the Before Updae or
Validation Rule property for this field is preventing <name of form went
here> from saving the data in the form".

the offending code is:

Private Sub Frame1_BeforeUpdate(Cancel As Integer)
Dim lngRetVal As Long
ToggleColor
If Me.Dirty = True And Me.Frame1.OldValue <> 5 And Me.Frame1 = 5 And _
IsNull(Me.SequenceNum) Then
lngRetVal = MsgBox("You are attempting to code this Px as 'Off Study'.
Sequence Number is Required!" _
, vbOKOnly + vbCritical, "Critical")
Me.Frame1.Value = Me.Frame1.OldValue <---line with 'problem'
End If
End Sub

what macro or function or validation rule?

does the solution come to mind to anyone or at least a way to tackle
diagnosing the 2115?

-ted

 

[guido via AccessMonster.com]

Replace offending code with:
Cancel=True
Me!Frame1.Undo

 

[Ted]

Voila et merci!