[Resolvido]Fórmula avisa texto duplicado, mas em seguida o código do pedido é excluído junto. Como corrigir isso?

Olá,

OBJETIVO:
Não quero que o CodPedido seja cancelado ao digitar um dado duplicado somente ser Avisado.

A fórmula:
Private Sub Empresa_BeforeUpdate(Cancel As Integer)
   On Error Resume Next
   Dim Busca As String
   Dim stLinkCriteria As String
   Dim rsc As DAO.Recordset

Busca = Me!Empresa.Value
stLinkCriteria = "Empresa= '" & Busca & "'"
If DCount("Empresa", "Pedido", stLinkCriteria) > 0 Then
Me.Undo
Cancel = True
MsgBox "Atenção" + vbCrLf & Busca & vbCrLf + " já existe.", vbInformation, "Duplicado"

End If
Set rsc = Nothing
End Sub

Quando eu digito uma empresa já existente sou informado sobre a duplicação.

Porém após o "AVISO" o CodPedido é excluído automaticamente.

Questão corriqueira neste fórum. Veja a explicação na mensagem do link abaixo
https://www.maximoaccess.com/t1396-resolvidoduvida-sobre-numeracao-automatica#9625

Olá, Ivan

Obrigado pela ajuda.

No meu caso esse problema de numeração automática não se deve a fórmula que coloquei para avisar um texto duplicado.

Não existe outra fórmula que só Avisa que o dado já existe?

retire a linha me.undo do código.

Como dica, tente sempre entender o que cada linha que você usar em seus aplicativos fazem.

Olá, Ivan

Deu certo. Muito Obrigado pela dica.