[Resolvido]Impedir duplicidade com 2 ou mais critérios

Boa tarde,


Gostaria de saber como posso adaptar esse código para que me permita não salvar nada se já estiver salvo na tabela um determinado registro, por exemplo, neste código, se a placa já estiver cadastra, aparece uma msgbox, mas estou querendo adaptar para pegar mais de um critério, por exemplo, se a placa X estiver cadastrada na tabela referente ao mês de Maio, se eu fizer outro lançamento, com a mesma placa, e o mesmo mês, quero que não permita salvar.


Dim Resultado As VbMsgBoxResult

If DCount("*", "Tbl_Cadastro_Frotas", "PLACA =""" & Me!Placa & """") >= 1 Then

Resultado = MsgBox("Placa " & Me!Placa & " já cadastrada. Informe outra placa para prosseguir com o cadastro", vbCritical, "Cadastro de placa")

Cancel = True
Me!Placa.Undo


Obrigado!

Existe a possibilidade de criar uma chave primaria composta. Acho que esse seria o seu caso. Na configuração da tabela, crie uma chave primária composta com os campos que você quer que não se repitam, no seu exemplo, Placa e Mês.

renpv

Obrigado, mas lhe pegunto, sabe um jeito de fazer isso por código mesmo?


Eu não consegui adaptar aqui.

Veja se o exemplo atende.

renpv

Isso mesmo, muito obrigado!

Resolvido!