MaximoAccess

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

Obrigado

Administração do MaximoAccess

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


    [Resolvido]Bloquear registro de Data e Hora duplicados

    avatar
    eristonmattos
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 75
    Registrado : 05/09/2018

    [Resolvido]Bloquear registro de Data e Hora duplicados Empty [Resolvido]Bloquear registro de Data e Hora duplicados

    Mensagem  eristonmattos em 10/3/2019, 13:23

    Bom dia caros,

    Gostaria de um help em um form para evitar/bloquear/impedir o registro de uma data e de uma hora duplicados,
    assim, retornando uma msgm avisando que ambos os campos estão duplicados.
    Encontrei tópicos sobre o assunto aqui, mas muitos antigos que não resolvem a questão e outros com a solução
    em separado, ou seja, encontrei ajuda para um campo somente, gostaria de um código que sirva para "dois" campos
    pelo menos, nesse caso, campo data e campo hora.

    Desde já o obrigado de sempre aos membros.

    Att,
    Eriston.
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1030
    Registrado : 23/01/2018

    [Resolvido]Bloquear registro de Data e Hora duplicados Empty Re: [Resolvido]Bloquear registro de Data e Hora duplicados

    Mensagem  crysostomo em 10/3/2019, 15:55

    Essa também vou ficar de carona


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    eristonmattos
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 75
    Registrado : 05/09/2018

    [Resolvido]Bloquear registro de Data e Hora duplicados Empty Bloqueio de Registro

    Mensagem  eristonmattos em 13/3/2019, 12:42

    Bom dia a todos,

    Alguma solução para essa questão exposta no tópico?

    Att,
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1030
    Registrado : 23/01/2018

    [Resolvido]Bloquear registro de Data e Hora duplicados Empty Re: [Resolvido]Bloquear registro de Data e Hora duplicados

    Mensagem  crysostomo em 13/3/2019, 12:48

    eu so sei pegar 1 campo pelo DLookup,


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    eristonmattos
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 75
    Registrado : 05/09/2018

    [Resolvido]Bloquear registro de Data e Hora duplicados Empty Bloqueio de Registro

    Mensagem  eristonmattos em 13/3/2019, 12:53

    Prefiro esperar Crysostomo,
    Tbm encontrei solução para um campo somente, mas preciso disso em dois ou mais campos enfim.

    Vou continuar no aguardo de alguma solução dos membros.

    Att,
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3960
    Registrado : 06/11/2009

    [Resolvido]Bloquear registro de Data e Hora duplicados Empty Re: [Resolvido]Bloquear registro de Data e Hora duplicados

    Mensagem  Assis em 13/3/2019, 13:23

    Boa tarde

    O Campo hora como está formatado ?

    Tem só hora e minutos ? 14:35

    Tem segundos ? 14:35:52




    .................................................................................
    *** Só sei que nada sei ***
    avatar
    eristonmattos
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 75
    Registrado : 05/09/2018

    [Resolvido]Bloquear registro de Data e Hora duplicados Empty Bloqueio de Registro

    Mensagem  eristonmattos em 13/3/2019, 13:43

    Bom dia Assis,

    Somente hora e minuto "00:00"

    Att,
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3960
    Registrado : 06/11/2009

    [Resolvido]Bloquear registro de Data e Hora duplicados Empty Re: [Resolvido]Bloquear registro de Data e Hora duplicados

    Mensagem  Assis em 13/3/2019, 16:22

    Boa Tarde
    Quer postar ?
    Pode ser só a tabela e o formulário.




    .................................................................................
    *** Só sei que nada sei ***
    Celso Roberto
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 957
    Registrado : 01/03/2014

    [Resolvido]Bloquear registro de Data e Hora duplicados Empty Re: [Resolvido]Bloquear registro de Data e Hora duplicados

    Mensagem  Celso Roberto em 13/3/2019, 20:39

    Olá a todos

    Este exemplo cadastre um cliente já existente com a mesma data e hora.

    Ao clicar no botão Salvar Registro irá mostrar uma mensagem.

    Verifique se é oque deseja

    Aguardamos Retorno

    Abraços
    Anexos
    [Resolvido]Bloquear registro de Data e Hora duplicados AttachmentVeificaDuplicidadeClientesDataHora.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (59 Kb) Baixado 8 vez(es)


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    avatar
    eristonmattos
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 75
    Registrado : 05/09/2018

    [Resolvido]Bloquear registro de Data e Hora duplicados Empty Bloquear registro de Data e Hora duplicados

    Mensagem  eristonmattos em 15/3/2019, 15:22

    Boa tarde Assis,

    Somente hj tive tempo em casa de mexer no PC...
    Eis o link pra baixar o BD, não deu pra zipar em um
    tamanho permitido aqui...

    https://www.dropbox.com/s/6hmp3tpc3m0jtfh/AGENDA%20-%20teste.accdb?dl=0

    Ressaltando que o formulário é o "Frm_Cadastro" e a tabela em questão é
    a "Tbl_dados_usuario".


    Fico no aguardo nobre.

    Att,
    Celso Roberto
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 957
    Registrado : 01/03/2014

    [Resolvido]Bloquear registro de Data e Hora duplicados Empty Re: [Resolvido]Bloquear registro de Data e Hora duplicados

    Mensagem  Celso Roberto em 15/3/2019, 17:59

    Olá eristonmattos...

    Você verificou o exemplo que anexei?

    ele faz exatamente o que você precisa.

    tente adaptar ao seu BD

    Aguardamos

    Abraços


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3960
    Registrado : 06/11/2009

    [Resolvido]Bloquear registro de Data e Hora duplicados Empty Re: [Resolvido]Bloquear registro de Data e Hora duplicados

    Mensagem  Assis em 15/3/2019, 19:00

    Boa tarde

    Tem muito para corrigir.

    Copie o link e cole no navegador

    dropbox.com/s/ly35ql07wn0v0zt/AGENDA%20-%20Assis.accdb?dl=0

    [Resolvido]Bloquear registro de Data e Hora duplicados Asem_t13


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    eristonmattos
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 75
    Registrado : 05/09/2018

    [Resolvido]Bloquear registro de Data e Hora duplicados Empty Bloquear registro de Data e Hora duplicados

    Mensagem  eristonmattos em 16/3/2019, 13:45

    Bom dia Assis e Celso,

    De fato Assis, o BD pode parecer cheio de erros, mas é que o BD completo é bem maior que
    esse, se vc abri-lo de novo, vai perceber que o Frm_Cadastro está em um controle de guias,
    eu apaguei outras 3 guias que o compõe, eu tentei apagar o máximo de dados, campos,
    tabelas e códigos que tem no original, mas acabou ficando alguns, tentei deixar no tamanho
    menor possível pra zipar, mas acabou não dando enfim...
    Seu código resolve o problema, com um detalhe:
    - quando eu dou "tab" ou "enter" na data, pra retornar se é duplicada ou não...
    - Se não for repetida (data e hora) segue ok, mas se for, ele apaga o campo nome, que é o
    primeiro a ser preenchido no formulário, entendo que o SetFocus no código serve pra que
    retorne ao campo data pra alterá-lo, mas deveria retornar sem apagar os dados do campo
    "nome"...
    Alguma sugestão??

    Celso, nobre, seu exemplo serve muito bem pra eu usar tbm, mas como o código está no
    botão "salvar", no fim do formulário, faz com que se digite todos os dados no formulário e
    só diga se o registro é repetido quando clico em "salvar", o do Assis serviu melhor enfim.
    Mas tenho essa questão aí de cima, aceito sua dica tbm nesse caso.

    Enfim caros, diria que está quase "resolvido".

    Att,
    Eriston Mattos.
    avatar
    eristonmattos
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 75
    Registrado : 05/09/2018

    [Resolvido]Bloquear registro de Data e Hora duplicados Empty Bloquear registro de Data e Hora duplicados

    Mensagem  eristonmattos em 16/3/2019, 14:28

    Assis, nobre, já encontrei a solução pra evitar apagar o campo nome que falei na mensagem anterior,
    apaguei a parte [ Me.txt_Usuario = "" ] que tem no final do código do evento "ao sair".

    Desde já meu muito obrigado a vc e ao Celso pela atenção.

    Att,
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3960
    Registrado : 06/11/2009

    [Resolvido]Bloquear registro de Data e Hora duplicados Empty Re: [Resolvido]Bloquear registro de Data e Hora duplicados

    Mensagem  Assis em 16/3/2019, 15:50

    Obrigado Mattos

    Pelo retorno, o forum agradece.

    Se está resolvido marque como tal.

    Bom fim de semana


    .................................................................................
    *** Só sei que nada sei ***
    Celso Roberto
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 957
    Registrado : 01/03/2014

    [Resolvido]Bloquear registro de Data e Hora duplicados Empty Re: [Resolvido]Bloquear registro de Data e Hora duplicados

    Mensagem  Celso Roberto em 16/3/2019, 16:32

    Olá...

    Só para não perder a alteração que fiz aproveitando o exemplo do Assis, deixo uma outra opção para esta finalidade.

    Cole o código esta no evento antes de atualizar do campo Hora.

    Abraços e obrigado pelo retorno

    Código:
    Private Sub txt_Hora_Atendimento1_BeforeUpdate(Cancel As Integer)

    If (Not IsNull(DLookup("Data_Atendimento1", "Tbl_dados_usuario", "[Data_Atendimento1] = #" & Format(Me!txt_Data_Atendimento1, "mm/dd/yyyy") & "#"))) And (Not IsNull(DLookup("Hora_Atendimento1", "Tbl_dados_usuario", "[Hora_Atendimento1] =#" & Format(Me.txt_Hora_Atendimento1, "hh:mm") & "#"))) Then
               
            If MsgBox("Já existe um Cliente de código" & Space(2) & "" _
                & DLookup("[Id]", "Tbl_dados_usuario", "[Data_Atendimento1] = #" & Format(Me!txt_Data_Atendimento1, "mm/dd/yyyy") & "# And [Hora_Atendimento1] =#" & Format(Me.txt_Hora_Atendimento1, "hh:mm") & "#") & vbCrLf & "" _
                & "Cadastrado com o nome de" & vbCrLf & "" _
                & DLookup("[Usuario]", "Tbl_dados_usuario", "[Data_Atendimento1] = #" & Format(Me!txt_Data_Atendimento1, "mm/dd/yyyy") & "# And [Hora_Atendimento1] =#" & Format(Me.txt_Hora_Atendimento1, "hh:mm") & "#") & vbCrLf & "" _
                & "Agendado para esta Data e Hora" & vbCrLf & "" _
                & DLookup("[Data_Atendimento1]", "Tbl_dados_usuario", "[Data_Atendimento1] = #" & Format(Me!txt_Data_Atendimento1, "mm/dd/yyyy") & "#") & vbCrLf & "" _
                & DLookup("[Hora_Atendimento1]", "Tbl_dados_usuario", "[Hora_Atendimento1] =#" & Format(Me.txt_Hora_Atendimento1, "hh:mm") & "#") & Space(2) & "Horas" & vbCrLf & "" _
                & "Deseja Continuar !! ", vbYesNo + vbExclamation + vbDefaultButton2, "Confirmação") = vbYes Then
                           
                DoCmd.RunCommand acCmdSaveRecord
                MsgBox "Agendamento salvo com Sucesso!", vbExclamation + vbOKOnly + vbDefaultButton1, "Aviso"
                'Me.Refresh
               
            Else
                DoCmd.CancelEvent
                Me!txt_Data_Atendimento1 = "" 'desfaz a digitação.
                Me!txt_Hora_Atendimento1.Undo 'desfaz a digitação.
                'Me!txt_Data_Atendimento1.SetFocus
            End If
        Else
                DoCmd.RunCommand acCmdSaveRecord
                MsgBox "Agendamento salvo com Sucesso!", vbExclamation + vbOKOnly + vbDefaultButton1, "Aviso"
                'Me.Refresh
        End If
    End Sub


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....

    Conteúdo patrocinado

    [Resolvido]Bloquear registro de Data e Hora duplicados Empty Re: [Resolvido]Bloquear registro de Data e Hora duplicados

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 6/12/2019, 20:16