[Resolvido]Registro Duplicado

Tenho um Formulario em modo de folha de dados com este codigo para registros duplicados:
Private Sub CodigoVenda_BeforeUpdate(Cancel As Integer)

If (Not IsNull(DLookup("[CodigoVenda]", "EquipamentoConj", _
"[CodigoVenda] ='" & Me!CodigoVenda & "'"))) Then
MsgBox "Este Equipamento já está cadastrado...", vbInformation, "Cadastro de Equipamentos"
Me.CodigoVenda.Undo
Cancel = True 'cancela o evento.
'Me!CodigoVenda.Undo 'desfaz a digitação.
End If

End Sub
Ao terminar o codigo abre uma outra caixa de mensagem dizendo assim : "nenhum registro atual"
O que posso fazer para não aparecer esta mensagem

Olá Eduardo,

Tente assim com tratamento de erros:

Private Sub CodigoVenda_BeforeUpdate(Cancel As Integer)
On Error GoTo TrataErro
If (Not IsNull(DLookup("[CodigoVenda]", "EquipamentoConj", _
"[CodigoVenda] ='" & Me!CodigoVenda & "'"))) Then
MsgBox "Este Equipamento já está cadastrado...", vbInformation, "Cadastro de Equipamentos"
Me.CodigoVenda.Undo
Cancel = True 'cancela o evento.
'Me!CodigoVenda.Undo 'desfaz a digitação.
End If

Exit_CodigoVenda_BeforeUpdate:
Exit Sub
TrataErro:
MsgBox Err.Description
Resume Exit_CodigoVenda_BeforeUpdate
End Sub

Caro Guy esta mensagem aparece apos ter saido da sub,porque dentro do codigo ja existe tratamento de erro

Olá Eduardo,

Testei aqui o seu código simulando toda a situação e não aconteceu nada. Já depurou o seu código para saber em qual linha aparece o erro? Esta mensagem pode ser uma mensagem de erro ou resposta a um comando que seu código passa.

Teste no final do seu código essa linha:

DoCmd.SetWarnings False

Se persistir o problema, talvez seja preciso postar o código para uma análise mais apurada.

Ok vou verificar depois retorno

Olá Eduardo,

Se tudo estiver certo no seu código, coloque assim o mesmo:

DoCmd.SetWarnings False
Seu código...
DoCmd.SetWarnings True