[Resolvido]Impedir registro duplicado

Boas.

novamente venho pedir ajuda dos amigos. não sei onde estou errando.

Tenho TblPlantonistas, campo DataDe (datahora = data normal = 00/00/0000;0;_)

Tenho FrmPlantonista, campo nome= DtDe, fonte do controle= DataDe, formato = Data normal

Usando o seguinte código:

Private Sub DtDe_BeforeUpdate(Cancel As Integer)

If (Not IsNull(DLookup("[DataDe]Private", "TblPlantonistas", _
"[DataDe] ='" & Me!DtDe & "'"))) Then
MsgBox "Data já está cadastrado no sistema...", vbInformation, "Exemplo"
Cancel = True
Me!DtDe.Undo
End If
End Sub


Esta dando erro: 3464
Tipo de dados incompativeis na expressão do critério


agradeço alguma ajuda.

Olá,

Acredito que o nome do campo esteja errado.

   If (Not IsNull(DLookup("[DataDe]Private", "TblPlantonistas", "[DataDe] ='" & Me!DtDe & "'"))) Then
       MsgBox "Data já está cadastrado no sistema...", vbInformation, "Exemplo"
       Cancel = True
       Me!DtDe.Undo
   End If

Oi Alexandre.

Foi só o copia e cola que foi errado.
anexo um exemplo

Olá Danilo,

substitua o procedimento por esse:

Código:



Private Sub DtDe_BeforeUpdate(Cancel As Integer)

    If DCount("*", "TblPlantonistas", "[DataDe] =#" & Me!DtDe & "#") > 0 Then
        MsgBox "A data já está cadastrado no sistema...", vbInformation, "Exemplo"
        Cancel = True
        Me!DtDe.Undo
    End If

End Sub



É isso

Att,

Alexandre Fim

Oi Alexandre, bom dia.

obrigado pelo retorno.
Com o código que você passou não retornou nenhuma mensagem e o registro foi adicionado duplicado.

segue meu exemplo modificado com o código que você passou.

Bom dia Daluque!

Baixei seu exemplo e funcionou perfeitamente.

Ao digitar a DataDe e pular para outro campo o código verificar se já existe esta data no banco e cancela o lançamento em caso de existência.

Então realmente não sei o que acontece.
já tentei outros códigos, já tentei no access 2010 e nada.

simplesmente registra a data e segue em frente.

a única alternativa que vejo momento é aguardar segunda-feira para testar em outros PC's.
apesar de ter testado em casa, onde tenho dois e ainda em maquinas virtuais.

Daluque, testa esse para ver ser funciona.

nada. aceitou a data 07/10/2022.

continuo sem saber o que ocorre.

acredito que o problema está no formato de data.
fiz o teste no exemplo com o campo texto e funcionou impedindo o cadastro.

só não consigo identificar onde.

Peguei o exemplo abaixo e alterei, veja se funciona.

agora sim deu certo.
tinha clareza de que era relativo ao campo tipo data, mas não conseguia achar uma forma de acertar.


obrigado.

Ótimo Daluque, o fórum agradece.