Convert Error 3420 to custom message does not work

[Jerry Maiapu]

I am trying to change the default error message "Object is invalid or no longer set" to a custome message.

This error occurs when a required data is blank in the record source of the form.
I have tried this but it does not work.

Private Sub Form_Error(DataErr As Integer, Response As Integer)
Const conErrRequiredData = 3420

    If DataErr = conErrRequiredData Then
        MsgBox ("One of the required number was not entered.Please enter the no. first.")
        Response = acDataErrContinue
    Else
        'Display a standard error message
        Response = acDataErrDisplay
    End If
End Sub

Any help would be appreciated.

[munkee]

Have you tried catching the error using different methods?

If Err.Number = 123 then
' Code to handle error 123
End if

I know this is doing the same as your codeu but it is worth a try

[NeoPa]

Try Custom Error Messages.

What you're trying now is along entirely the wrong lines I'm afraid.