[Resolvido]Impedir e Avisar se Registro Duplicado com mais de um critério na mesma tabela

Olá caros colegas,

Se possível, peço a vossa ajuda sobre como criar uma tela de aviso e impedir que o registro seja armazenado na tabela "tab_Abastecimento" caso todos os campos coincidirem de estarem duplicados, ou seja, para que o registro esteja correto, nenhuma das informações destes campos podem coincidir no mesmo registro.

Ex: Placa, Litros, Data Abastecimento, Hora Abastecimento, Valor Unit

Campos: dsPlaca(Texto), qtLitros(Número,Duplo), dtAbastecimento(Data/Hora), hrAbastecimento(Data/Hora), vlUnitario(Número,Duplo)


Grato desde já!

Boa tarde e bem-vindo ao fórum
Leia e respeite as regras do fórum
Movi-lhe a dúvida para esta sala. A sala de repositório não serve para tirar dúvidas

Sobre a sua dúvida, coloque no acontecimento AntesDeActualizar do formulário
If DCount("*", "tab_Abastecimento","dsPlaca='" & NomeControloPlaca &"' and qtLitros=" & NomeControloLitros &" and dtAbastecimento=#" & NomeControloAbastecimento &" and hrAbastecimento=" & NomeControloHora &" and vlUnitario=" & NomeControloValor)>0 then docmd.cancelevent

Olá Alexandre Neves,


Primeiramente obrigado por responder à pronta entrega.

Segundo, peço desculpas por postar em local errado, pois é a primeira vez que estou tirando dúvidas pessoalmente, na realidade até hj eu só estava acompanhando a turma e tenho o maior respeito por este fórum.

Sou iniciante no MS Access e não obtive sucesso no comando que me enviou, acho que fiz de errado no código ou é o BD que tem um campo a mais, no caso cdAbastecimento.

Também não se a ordem dos campos da tabela tem algo haver com a ordem dos códigos VBA

Segue o exemplo abaixo:

Bom dia
Coloque
If DCount("*", "tab_Abastecimento", "dsPlaca='" & txt_dsPlaca & "' and qtLitros=" & txt_qtLitros & " and dtAbastecimento=#" & txt_dtAbastecimento & "# and hrAbastecimento=#" & txt_hrAbastecimento & "# and vlUnitario=" & txt_vlUnitario) > 0 Then DoCmd.CancelEvent

Bom dia Alexandre,

Deu certo...

Muito obrigado! Deus te abençoe!

Ficaria melhor, quando cancelar o registo, limpar todos os campos
If DCount("*", "tab_Abastecimento", "dsPlaca='" & txt_dsPlaca & "' and qtLitros=" & txt_qtLitros & " and dtAbastecimento=#" & txt_dtAbastecimento & "# and hrAbastecimento=#" & txt_hrAbastecimento & "# and vlUnitario=" & txt_vlUnitario) > 0 Then
DoCmd.CancelEvent
txt_dsPlaca=null : txt_qtLitros=null : txt_dtAbastecimento=null : txt_hrAbastecimento=null : txt_vlUnitario=null
End If

Show de bola Alexandre Neves,


Tudo certo e melhor agora!

Mais uma vez obrigado!

A tempos estava procurando uma solução como esta para o meu projeto, enfim, me ajudou a resolver parte.