Hide err 2501

[hbeer444]

Please help I am trying to stop the err msg 2501 after the cancelling the open event - I tried on error resume next - didn't work
Help

access 2003 VBA

the following is a simplified example in a form's module:

Option Compare Database
Option Explicit

Private Sub Form_Open(Cancel As Integer)

if msgbox("Don't open the Form?",vbOKCancel) = vbCancel then
Cancel = True
Exit Sub
end if

...other stuff here

end sub


Thanks kindly in advance!

 

[MStef]

Try next:

Private Sub Form_Open(Cancel As Integer)
On Error go to ErrOpen
if msgbox("Don't open the Form?",vbOKCancel) = vbCancel then
Cancel = True
GoTo OpenExit
end if

...other stuff here

OpenExit:
Exit Sub

ErrOpen:
If Err <> 2501 Then
MsgBox Err.Description
End If
Resume OpenExit
end sub

 

[hbeer444]

Thanks but it doesn't work:

When the code finishes

OpenExit:
Exit Sub

the error msg still shows.

I've tried everything I know!

 

[boblarson]

In order to stop the Error 2501, you need to use an error handler on the event that OPENED the form, not the form that is opening.

 

[hbeer444]

Awesome - thanks

 

[MStef]

Thanks boblarson, I forgot it.