[Resolvido]Bloquear registro de Data e Hora duplicados

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.

Essa também vou ficar de carona

Bom dia a todos,

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

Att,

eu so sei pegar 1 campo pelo DLookup,

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,

Boa tarde

O Campo hora como está formatado ?

Tem só hora e minutos ? 14:35

Tem segundos ? 14:35:52

Bom dia Assis,

Somente hora e minuto "00:00"

Att,

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

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

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,

Olá eristonmattos...

Você verificou o exemplo que anexei?

ele faz exatamente o que você precisa.

tente adaptar ao seu BD

Aguardamos

Abraços

Boa tarde

Tem muito para corrigir.

Copie o link e cole no navegador

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

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.

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,

Obrigado Mattos

Pelo retorno, o forum agradece.

Se está resolvido marque como tal.

Bom fim de semana

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