[Resolvido]Impedir registos com campos duplicados

Boa noite
copiei do Mestre VieiraSoft o seguinte código para impedir de inserir dados num formulário que já existem na tabela.
O 1º campo OBRA_NOB é Numero e decimal
O segundo é texto
no 2º funciona na perfeição
no 1º dá erro na linha Cancel = True
Alguem me pode ajudar por favor?
---------------------------------
Private Sub OBRA_NOB_AfterUpdate()
   If (Not IsNull(DLookup("[OBRA_NOB]", "OBRAS_SERVER", _
   "[OBRA_NOB] =" & Me!OBRA_NOB))) Then
   MsgBox "Já existe um registo de obra com o número..." & OBRA_NOB.Value, vbInformation, "Aviso"
   Cancel = True 'Cancela o evento
   Me!OBRA_NOB.Undo 'desfaz a digitação.
   End If

End Sub
----------------------------------------------
Private Sub ORCAM_NOB_BeforeUpdate(Cancel As Integer)

   If (Not IsNull(DLookup("[ORCAM_NOB]", "OBRAS_SERVER", _
   "[ORCAM_NOB] ='" & Me!ORCAM_NOB & "'"))) Then
   MsgBox "Já existe um orçamento registado com o número..." & ORCAM_NOB.Text, _
   vbInformation, "Aviso"
   Cancel = True 'cancela o evento.
   Me!ORCAM_NOB.Undo 'desfaz a digitação.
   End If

End Sub

Boa Noite

Tente o seguinte:

Substitui

Cancel = True  por Exit Sub ou Exit Function


Tente e veja se dá certo

Abraços

E interessante o amigo postar o Erro que apresenta, e o que pretende... Pois se que apenas Voltar ao estado de Novo Registro (limpara tudo que foi sigitado) coloque:
Me.Undo

Caro Fabio Paes,
obrigado pela sua disponibilidade,
aqui vai o erro que dá

Compile error:
Variable not defined

também experimentei o Me.Undo, limpa o campo mas foca o campo seguinte.

Entao, apos o .undo mova o Foco para o campo que pretende...

Já percebi.... bastou colocar o código no beforeupdate e não no afterupdate.
de qualquer modo obrigado