MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


3 participantes

    [Resolvido]Impedir registro duplicado

    avatar
    Daluque
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 217
    Registrado : 06/03/2012

    [Resolvido]Impedir registro duplicado Empty [Resolvido]Impedir registro duplicado

    Mensagem  Daluque 14/10/2022, 19:57

    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.


    .................................................................................
    Daluque

    Office 2003
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3217
    Registrado : 13/12/2016

    [Resolvido]Impedir registro duplicado Empty Re: [Resolvido]Impedir registro duplicado

    Mensagem  Alexandre Fim 14/10/2022, 21:23

    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


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Impedir registro duplicado Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    Daluque
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 217
    Registrado : 06/03/2012

    [Resolvido]Impedir registro duplicado Empty Re: [Resolvido]Impedir registro duplicado

    Mensagem  Daluque 14/10/2022, 22:21

    Oi Alexandre.

    Foi só o copia e cola que foi errado.
    anexo um exemplo
    Anexos
    [Resolvido]Impedir registro duplicado Attachmentplantonista.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (31 Kb) Baixado 6 vez(es)


    .................................................................................
    Daluque

    Office 2003
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3217
    Registrado : 13/12/2016

    [Resolvido]Impedir registro duplicado Empty Re: [Resolvido]Impedir registro duplicado

    Mensagem  Alexandre Fim 14/10/2022, 22:35

    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


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Impedir registro duplicado Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    Daluque
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 217
    Registrado : 06/03/2012

    [Resolvido]Impedir registro duplicado Empty Re: [Resolvido]Impedir registro duplicado

    Mensagem  Daluque 15/10/2022, 12:15

    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.
    Anexos
    [Resolvido]Impedir registro duplicado Attachmentplantonista_II.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (30 Kb) Baixado 6 vez(es)


    .................................................................................
    Daluque

    Office 2003
    bigfill
    bigfill
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 477
    Registrado : 27/03/2015

    [Resolvido]Impedir registro duplicado Empty Re: [Resolvido]Impedir registro duplicado

    Mensagem  bigfill 15/10/2022, 13:30

    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.


    avatar
    Daluque
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 217
    Registrado : 06/03/2012

    [Resolvido]Impedir registro duplicado Empty Re: [Resolvido]Impedir registro duplicado

    Mensagem  Daluque 15/10/2022, 14:15

    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

    Office 2003
    bigfill
    bigfill
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 477
    Registrado : 27/03/2015

    [Resolvido]Impedir registro duplicado Empty Re: [Resolvido]Impedir registro duplicado

    Mensagem  bigfill 15/10/2022, 14:31

    Daluque, testa esse para ver ser funciona.
    Anexos
    [Resolvido]Impedir registro duplicado Attachmentplantonista_II.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (29 Kb) Baixado 1 vez(es)
    avatar
    Daluque
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 217
    Registrado : 06/03/2012

    [Resolvido]Impedir registro duplicado Empty Re: [Resolvido]Impedir registro duplicado

    Mensagem  Daluque 15/10/2022, 15:08

    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.


    .................................................................................
    Daluque

    Office 2003
    bigfill
    bigfill
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 477
    Registrado : 27/03/2015

    [Resolvido]Impedir registro duplicado Empty Re: [Resolvido]Impedir registro duplicado

    Mensagem  bigfill 15/10/2022, 15:49

    Peguei o exemplo abaixo e alterei, veja se funciona.

    Anexos
    [Resolvido]Impedir registro duplicado Attachmentplantonista_II.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (39 Kb) Baixado 11 vez(es)
    avatar
    Daluque
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 217
    Registrado : 06/03/2012

    [Resolvido]Impedir registro duplicado Empty Re: [Resolvido]Impedir registro duplicado

    Mensagem  Daluque 15/10/2022, 17:35

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


    obrigado.


    .................................................................................
    Daluque

    Office 2003
    bigfill
    bigfill
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 477
    Registrado : 27/03/2015

    [Resolvido]Impedir registro duplicado Empty Re: [Resolvido]Impedir registro duplicado

    Mensagem  bigfill 15/10/2022, 17:40

    Ótimo Daluque, o fórum agradece.

    Conteúdo patrocinado


    [Resolvido]Impedir registro duplicado Empty Re: [Resolvido]Impedir registro duplicado

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 25/4/2024, 05:18