Replace standard error message with a custom error message

[Bradex]

Run-time error 2101: The setting you entered isn't valid for this property.

I want it to be replaced with a custom error message.

Is this the right code? It is not working for me.

Private Sub Form_Error(DataErr As Integer, Response As Integer)
Select Case DataErr
Case 2101
MsgBox "MY CUSTOM MESSAGE"
Response = acDataErrContinue


End Select
Active Control.Undo
End Sub

[Bob Fitz]

Try:

Private Sub Form_Error(DataErr As Integer, Response As Integer)
Select Case DataErr
Case 2101
  MsgBox "MY CUSTOM MESSAGE"
  Response = acDataErrContinue
End Select

Me.ActiveControl.Undo

End Sub

[Bradex]

It is still not working. I continue to get the error.

Do I have to replace ActiveControl with anything else?

[Bob Fitz]

Check that your code does actually fire.
Are you sure you are testing for the correct error number.

[rpeare]

I would test to see if it's even getting to your subform error function, it might have to be a public function to fire from the subform.

Have you tried doing the error trapping on the form itself instead?

i.e.

ON ERROR goto OMGWHATHAPPENED
.... your code here


OMGWHATHAPPENED:
debug.print err.number & err.description
select case err.number
case 2101
    'error handling for 2101 here
case XXXX

Case Else

End Select

[Missinglinq]

You're referring to the ActiveControl, but this error (the setting you entered isn't valid for this property) pops when you're attempting to set a property of a Control or other object, in code...not during data entry, which kind of sounds like your objective, here.

Are you, perhaps, wanting to change the error message if inappropriate data is entered in a Control...i.e. entering Text in a Number Field?

Linq ;0)>

[Bradex]

Check that your code does actually fire.
Are you sure you are testing for the correct error number.

This could be the reason. I assumed that the number carried in the error message is the error number. Am I right?
If I am wrong, how can I find the actual error number of the error?

[Bradex]

@Missinglinq

This error pops up when I click a button on my form. See here: Error while switching forms