cancel pop up

[tizwaz]

I have code on the onopen event of my form so that if there are no records it gives a message and cancels the open form event. How can I stop it giving me the system message saying the opoen form event was cancelled after my own message?

 

[PWise]

instead of canceling the event try

docmd.Close acForm ,me.name

 

[Remou]

It is quite common to trap such an error.

On Error GoTo TrapErr
DoCmd.OpenForm "frmForm"

ExitHere:
Exit Sub

TrapErr:
If Err.Number = 2501 Then
    'Event cancelled
    Err.Clear
    Resume ExitHere
Else
    'Error
End If
End Sub