Aviso/Formulário

Bom dia

Estou utilizando o codigo abaixo para impedir a duplicidade de registro,porem a MsgBox "Dados já cadastrados" não aparece e sim uma mensagem do access.
Agradeço a possível ajuda no sentido de que a mensagem"Dados ja cadastrados" prevaleça.



Option Compare Database
DoCmd.SetWarnings False
Private Sub Form_Error(DataErr As Integer, Response As Integer)
If DataErr = 3022 Then
   Response = acDataErrContinue
   MsgBox "Dados Já Cadastrados"
   Me.Undo
End If
End Sub
DoCmd.SetWarnings True

Tente assim.

Código:

Option Compare Database
  Private Sub Form_Error(DataErr As Integer, Response As Integer)
  DoCmd.SetWarnings False
    If DataErr = 3022 Then
      Response = acDataErrContinue
    MsgBox "Dados Já Cadastrados"
    Me.Undo
 DoCmd.SetWarnings True
End If
End Sub


A proposito, seja bem vindo ao forum!