[Resolvido]Evitar Registo Duplicado

Boa tarde a todos os amigos do fórum:

Estou com algumas dificuldades em implementar/ajustar, na minha BD, uma instrução VBA, nomeadamente no formulário (Orçamentos), por forma a que não haja introdução de registos duplicados.
Este código está a funcionar corretamente no formulário (Clientes), mas não estou conseguindo ajustar e pôr a funcionar corretamente no formulário (Orçamentos), no campo (NumeroOrcamento), no evento: (Antes de Atualizar)

Dando o seguinte erro: "Run-Time Error "3464" Tipo de dados incorretos na expressão de critérios."

Se possível agradecia a vossa ajuda.

Este código encontra-se aqui no fórum, na área de códigos VBA, penso que, disponibilizado pelo amigo JPaulo.


Nota: Para funcionar corretamente a B.D. colocar a pasta (Base Dados Orcamentos) em C:\

zaffer, Boa tarde!!

Tente assim, evento após atualizar campo,

Código:

If DCount("Número_Orçamento", "[Orçamento]", "CodigoOrçamento = Forms!Orçamento!NumeroOrcamento") >= 1 Then
MsgBox "Número já cadastrado no sistema.", vbInformation, "ATENÇÃO!"
Cancel = True
Exit Sub
End If




Att;

Ney

Boa tarde Sidney
Em primeiro lugar quero agradecer a sua preciosa ajuda e a forma rápida como respondeu à minha dúvida.
Depois de ler as suas orientações, implementei o código tal como descrito.
Acontece que ainda existe um pequeno erro, que é o seguinte:
na linha (Cancel= True) dá erro, abrindo o VBA e informando ( VARIABLE NOT DEFINED)
Uma vez mais agradecia a sua ajuda, se possível.
Anexo printscreen do erro.

Obrigado pela sua ajuda e empenho, na minha dúvida.

Bom dia Sidney

peço desculpas em só agora responder ao seu último post, tenho tido bastante trabalho e só agora me foi possível vir aqui ao fórum.
Analisei as correções efetuadas, no código, agora está a funcionar na perfeição.
Uma vez mais quero agradecer o seu empenho e dedicação, em me ter ajudado a solucionar o problema.
Muito Obrigado pela sua ajuda.
Obrigado também ao fórum.

O fórum agrade, não esquece de colocar como RESOLVIDO.

abraço

att;

Ney

Uma vez mais, muito obrigado Sidney
E a todos os colaboradores do fórum.