Replacing default error message (duplicate index 3022) with a custom one

[MarcinM]

I assigned index on two table fields:
[orderID]
[CurrencyName]

The following code is to trap a duplicate index and replace default error message with a custom one.
PROBLEM: Although my custom error message appears, the default one also shows up.

Private Sub Form_Error(DataErr As Integer, Response As Integer)

Select Case 
'code here
 Case DataErr = 3022 ‘ duplicate index error
    MsgBox "My custome error message", vbOKOnly + vbExclamation, stMsgTitle            
    Response = acDataErrContinue
 End Select
'code here
End Sub
 

Shouldn’t

Response = acDataErrContinue

disable default error message?
How should be the code modified to prevent default error from displaying?

Thank you for hints.

[Seth Schrock]

Check out Custome Error Messages

[twinnyfo]

Try This:

DoCmd.SetWarnings False

before your code and

DoCmd.SetWarnings True

after your code.