[Resolvido]Alterar Mensagem Padrão no Access

No meu Access 2013 este código não está funcionando ! Quero trocar a mensagem padrão do Access no erro 3022.
Obrigado!

Private Sub Form_Error(DataErr As Integer, Response As Integer)
Const conErro = 3022
Dim strMensagem As String

If DataErr = conErro Then
Response = acDataErrContinue
strMensagem = "Duplicação não autorizada..."
MsgBox strMensagem, vbCritical
End If
End Sub

Algo parecido com isso...

On error goto fim

fim:

If err.number = 3022 then
msgbox"Duplicação não autorizada " & vbcrlf & _
"Entre em contato com o administrador !!", vbcritical, "AVISO..."
end if

Olá Silvio.
Ainda não funcionou, onde estou errando? Fiz assim:

No modo design do formulário, Aba evento, linha Ao ocorrer erro, coloquei este código:

Private Sub Form_Error(DataErr As Integer, Response As Integer)
Const conErro = 3022
Dim strMensagem As Strin
If err.number = 3022 then
msgbox"Duplicação não autorizada " & vbcrlf & _
"Entre em contato com o administrador !!", vbcritical, "AVISO..."
end if
End Sub

Quando ocorre o erro 3022, abre uma janela assim:
Erro em tempo de execução ‘3022’
As alterações solicitadas para a tabela não foram .......................................

Coloque do modo que está no Evento Ao Abrir do formulário em questão.


on error goto fim
fim:
If err.number = 3022 then
msgbox"Duplicação não autorizada " & vbcrlf & _
"Entre em contato com o administrador !!", vbcritical, "AVISO..."
end if

Infelizmente não funcionou. O erro 3022 é para um campo com número, que na tabela está Indexado Sim (Duplicação não autorizada)
Quero mudar a mensagem padrão do Access. A mesagem padrão é esta:

Erro em tempo de execução ‘3022’
As alterações solicitadas para a tabela não foram .......................................

Poste as partes envolvidas aqui para uma melhor analise.

Segue um pequeno banco de dados, apenas para o caso. Abrindo o formulário, escrevi novamente o que preciso.
Obrigado Silvio

Carlos..boa tarde.

veja o link de um colega nosso aqui do fórum....
youtube.com/watch?v=Ucp1MgVwZp4 = copie e cole no navegador.

Silvio, funcionou perfeitamente.
Muito Obrigado!

No link o código não está mais disponível para download, tive que copiar assistindo o vídeo, para quem quiser está aí:

Private Sub VendaCli_NrOrc_BeforeUpdate(Cancel As Integer)

Dim Busca As String
Dim StLinkCriteria As String
Dim rsc As DAO.Recordset
Set rsc = Me.RecordsetClone
Busca = Me.VendaCli_NrOrc.Value
StLinkCriteria = "VendaCli_NrOrc" ' " & Busca & " ' "
If DCount("VendaCli_NrOrc", "Tab_80VC", StLinkCriteria) > 0 Then
Me.Undo
MsgBox "Atenção, Orçamento " _
& Busca & " JÁ EXISTE." _
& vbCr & vbCr & "ESCOLHA OUTRO.", vbInformation_, "duplicado"

'rsc.FindFirst StLinkCriteria
End If
'Set rsc - Nothing

End Sub

Boa tarde...

Show de bola...mais um aprendizado para você.

Abraços.