Prevent DoCmd Cancel Message From Appearing

[Dalan]

Although I have used the code below to suppress the DoCmd cancel
action message from appearing on lots of other actions such as preview
and print, I have not been able to get to work on a BeforeUpdate Event
Procedure. There is nothing elaborate about the event, however, there
is an initial message box stating that if one field contains data then
a second one must also, and then after clicking okay, the
DoCmdMenuItem action box is displayed.

Any suggestions on addressing this problem will be appreciated.
Thanks.
Private Sub Form_BeforeUpda te (Cancel As Integer)
Exit_Form_Befor eUpdate:
Exit Sub

Err_Form_Before Update:

Const conErrDoCmdCanc elled = 2501
If (err = conErrDoCmdCanc elled) Then
Resume Exit_Form_Befor eUpdate
Else
MsgBox err.description
Resume Exit_Form_Befor eUpdate
End If

End Sub

[Salad]

Dalan wrote:

Although I have used the code below to suppress the DoCmd cancel
action message from appearing on lots of other actions such as preview
and print, I have not been able to get to work on a BeforeUpdate Event
Procedure. There is nothing elaborate about the event, however, there
is an initial message box stating that if one field contains data then
a second one must also, and then after clicking okay, the
DoCmdMenuItem action box is displayed.

Any suggestions on addressing this problem will be appreciated.
Thanks.

Private Sub Form_BeforeUpda te (Cancel As Integer)

Exit_Form_Befor eUpdate:
Exit Sub

Err_Form_Before Update:

Const conErrDoCmdCanc elled = 2501
If (err = conErrDoCmdCanc elled) Then
Resume Exit_Form_Befor eUpdate
Else
MsgBox err.description
Resume Exit_Form_Befor eUpdate
End If

End Sub

What are you ":canceling " in the before update event? Are you calling a
routine that recalls the BeforeUpdate event? Cancel is used to inform
Access whether or not the record can be saved.

Here is some example code:
Private Sub Form_BeforeUpda te(Cancel As Integer)
On error GoTo Err_Routine

'assume the save operation will fail validation checks
Cancel = True
If IsNull(Me.Field 1) then
msgbox "Field1 is required."
me.field1.setfo cus
Elseif Me.Field2 <> 1 and Me.Field2 <> 2 then
msgbox "Field2 must be a 1 or 2
me.field2.setfo cus
elseif Msgbox("Are you sure you want to save
changes?",vbYes No,"ConfirmChan ges) = vbYes then
'validation checks passes and user confirmed save
Cancel = False
endif

Exit_Routine:
Exit Sub

Err_routine
msgbox Err.description
Resume Exit_Routine
End Sub