[Resolvido]Validar vários campos em um form para verificar se o novo registro é duplicado

Senhores,

Tenho uma tabela para registro de notas fiscais e gostaria de proibir duplicação de registro seguindo a seguinte combinação de campos:
Codfornecedor
tipoNF
NumeroNF
DataemissaoNF
ValorNF

Ou seja, para verificar se um registro de nota fiscal é duplicado gostaria validar a combinação completa dos campos Codfornecedor, tipoNF, NumeroNF, DataemissaoNF, ValorNF
Deste modo, um registro somente será considerado duplicado se todos os campos Codfornecedor, tipoNF, NumeroNF, DataemissaoNF, ValorNF forem iguais.

Talvez seja algo assim:

If DCount("*", "NomeDaTabela", "CodFornecedor=" & Me.CodFornecedor & " And tipoNF='" & Me.tipoNF & "' And NumeroNF=" & Me.NumeroNF & " And ValorNF=" & Me.ValorNF & " And DataemissaoNF=#" & Me.DataemissaoNF & "#") > 0 Then
MsgBox "Tudo isso aí que você digitou já existe.", vbCritical, "Atenção"
Else
Blá blá blá patati patatá...
End If

Criquio,
Coloquei o código ao sair do campo "numero doc", mas não funcionou, :

Private Sub NUMERO_DOC_Exit(Cancel As Integer)
If DCount("*", "GerarProtocoloitem", TIPO = " & Me.tipo & " And [NUMERO DOC] = " & Me.[numero doc] & " And [VALOR BRUTO] = " & Me.[valor bruto] & " And [DATA DOC] = "#" & Me.[DATA DOC] & "#") > 0 Then
MsgBox "Já existe documento para este fornecedor.", vbCritical, "Atenção"
DoCmd.CancelEvent
Else
Me.[VALOR BRUTO].SetFocus


'TIPO
'Data DOC
'NUMERO DOC
'VALOR BRUTO

End If

End Sub

Aparece alguma mensagem de erro? Tirando o campos data, todos os outros são numéricos? Campos tipo texto precisam estar entre aspas simples e duplas, campos tipo número apenas aspas duplas. E talvez se formatar a data assim tambem ajude: Format(Me.[DATA DOC], "mm/dd/yyyy"). E procure tirar esses espaços nos nomes dos campos. No lugar de DATA DOC, coloque txtDataDoc. Veja nesse pequeno tutorial o motivo:
http://maximoaccess.forumeiros.com/t1162-dicas-para-iniciantes-nomear-campos-e-elementos-de-um-sistema-em-access?highlight=iniciantes

Criquio,

Tirando o campo data e o campo valor bruto, os demais são texto.

Criquio,

Criei um BD de exemplo, com os campos todos no formato número com exceção do campo data e coloquei o código ao sair do campo valornf. É um pequeno BD, se vc puder dar uma olhada, pois não funcionou. Veja por favor, o bd anexo salvei em access 2003 para ficar acessível a todos.

Como eu disse anteriormente, para campos tipo texto, o campo que vem no critério precisa estar entre aspas simples e duplas: "Nome='" & Me.txtNome & "'

Tente aí.

Criquio,

Não consegui, veja por favor meu exemplo em anexo.

Darei uma olhada assim que o tempo me permitir, caso algum colega não o faça antes.

Estou a puxar o tópico para cima. se já tiver resolvido, agradeço o seu retorno.

Ainda não foi resolvido.

Como não houve retorno, o tópico passa a resolvido. Qualquer coisa reabra, por favor.

O código que o Criquio passou na mensagem n° 2 é a solução.

Eu testei aqui no exemplo repassado e funcionou.

Dilson,

Você poderia postar novamente o exemplo testado por você? pois por aqui não consigo usar o código informado pelo Criquio.

Donizeth será um prazer. No entanto, o exemplo está na minha máquina em casa.

Até logo mais a noite se não tiver solucionado, disponibilizo para você funcionando na perfeição de Criquio Calavera.

Olha ele aí:

Download

Dilson,

Mas a mensagem está aparecendo independente de ter a sequência duplicada ou não.

Como disse em meu tópico, o que eu gostaria de fazer era validar se um registro é duplicado, considerando a combinação de vários campos, e no exemplo os campos compinados são:

Codfornecedor
Tiponf
NumeroNF
DataemissaoNF
ValorNF

Deste modo se os cinco campos acima forem iguais a um registro já existente o access não deverá gravar o registro e emitirá uma mensagem.

Por fim, com o código que foi repassado não estou conseguindo atender o exposto acima.

Experimente:

Coloque no evento "Antes de atualizar" do campo "valornf"

On Error Resume Next
If DCount("*", "cadastronf", "CodFornecedor=" & Me.txtCodfornecedor & " And tiponf='" & Me.txtTiponf & "' And Numeronf=" & Me.txtNumeronf & " And Valornf=" & Me.txtValornf & " And dataemissaonf=#" & Me.txtDataemissaonf & "#") > 0 Then
MsgBox "Tudo isso aí que você digitou já existe.", vbCritical, "Atenção"
Cancel = True
Me.Undo
Else
Exit Sub
End If

Obrigado, o código resolveu meu problema.

Dilson,

Agora fui aplicar em minha realidade e deparei que tenho campos em duas tabelas e dois forms, deste modo tentei ajustar o código de:
On Error Resume Next
If DCount("*", "cadastronf", "CodFornecedor=" & Me.txtCodfornecedor & " And tiponf='" & Me.txtTiponf & "' And Numeronf=" & Me.txtNumeronf & " And Valornf=" & Me.txtValornf & " And dataemissaonf=#" & Me.txtDataemissaonf & "#") > 0 Then
MsgBox "Tudo isso aí que você digitou já existe.", vbCritical, "Atenção"
Cancel = True
Me.Undo
Else
Exit Sub
End If

Para o código:
On Error Resume Next
If DCount("*", "gerarprotocolocab", "cnpj=" & Forms.gerarprotocolocab.Me.CNPJ& " or cpf=" & Forms.gerarprotocolocab.Me.CPF) & DCount("*", "gerarprotocoloitem", "TIPO='" & Me.TIPO & "' And NUMERODOC=" & Me.NUMERODOC & " And VALORBRUTO=" & Me.VALORBRUTO & " And DATADOC=#" & Me.DATADOC & "#") > 0 Then

MsgBox "Tudo isso aí que você digitou já existe.", vbCritical, "Atenção"
Cancel = True
Me.Undo
Else
Exit Sub
End If

Onde os campos CNPJ, CPF, TIPO, NUMERODOC são do tipo texto.

Mas o access está retornando com a MsgBox "Tudo isso aí que você digitou já existe.", vbCritical, "Atenção".
A mensagem é retornada mesmo não estando a sequencia duplicada.

Como não houve retorno, o tópico passa a resolvido. Qualquer coisa reabra, por favor.