[Resolvido]Horários Duplicados

Galera, boa noite!!


Estou precisando de um apoio.


O sistema é referente a agendamentos de hórarios de determinados veículos e estou querendo restringir de não realizem agendamento no período em que outro horário foi marcado.

Consegui fazer uma restrição, porém não está 100%.

Ex: Cadastrei uma programação Início: 07:00:00 às  Fim:17:00:00
Se eu tentar cadastrar de Início: 07:00:00 à qualquer outra hora até 17:00:00, o sistema não deixa.
Se eu tentar cadastrar com final 17:00:00, o sistema não deixa.

Porém se eu cadastrar de 08:00:00 às 16:00:00, o sistema permite.


Queria algum código ou maneira de bloquear de fato aquele tempo completo que foi agendado.

Obs: JÁ PESQUISEI NO FORUM E NÃO ACHEI ALGO QUE CONSEGUI TRADUZIR AO MEU SISTEMA.

Segue em anexo, exemplo do banco.

bom dia .
https://www.maximoaccess.com/t6830-agenda-quero-evitar-choque-de-horarios

Boa tarde,
Não consegui introduzir dados que deiam erro.
Exemplifique

Remova o código já existente e use o código a seguir no evento Antes de Atualizar do objeto Formulário

Código:

Dim objRS As DAO.Recordset
    Dim dtDataInicio As Date
    Dim dtDataFim As Date
    Dim dtTempDataInicio As Date
    Dim dtTempDataFim As Date
    Dim booTemConflito As Boolean
   
    If Nz(Me!DataEntrada) <> "" And Nz(Me!HoraInicio) <> "" And Nz(Me!HoraFim) <> "" Then
   
        dtDataInicio = Me!DataEntrada & " " & Me!HoraInicio
        dtDataFim = Me!DataEntrada & " " & Me!HoraFim
       
        Set objRS = Me.RecordsetClone
       
        If objRS.RecordCount > 0 Then
       
            Call objRS.MoveLast
       
            Do
       
                dtTempDataInicio = objRS!DataEntrada.Value & " " & objRS!HoraInicio.Value
                dtTempDataFim = objRS!DataEntrada.Value & " " & objRS!HoraFim.Value
               
                If Eval("#" & dtDataInicio & "# between #" & dtTempDataInicio & "# and #" & dtTempDataFim & "#") Or _
                  Eval("#" & dtDataFim & "# between #" & dtTempDataInicio & "# and #" & dtTempDataFim & "#") Or _
                  Eval("#" & dtTempDataInicio & "# between #" & dtDataInicio & "# and #" & dtDataFim & "#") Or _
                  Eval("#" & dtTempDataFim & "# between #" & dtDataInicio & "# and #" & dtDataFim & "#") Then
                 
                  booTemConflito = True
                  Exit Do
                 
                End If
               
                Call objRS.MovePrevious
           
            Loop Until objRS.BOF
       
        End If
       
        Set objRS = Nothing

        If booTemConflito Then
            Call MsgBox("Este horário está colidindo com o horário já agendado...")
            Cancel = True
            Exit Sub
        End If
       
    Else
        Call MsgBox("Preencha todos os campos...")
        Cancel = True
        Exit Sub
    End If

Prezado, eu realizei uma pesquisa e pelo pude constatar a melhor maneira de resolver esse seu problema é usando timestamp. E para fazer isso a gente deve  gravar as datas como Número/Duplo.

No exemplo que fiz (segue abaixo) usei apenas 4 campos (ID, Veiculo, Inicio, Fim) onde :
- ID dispensa explicação
- Veículo seria um campo no formato texto curto com mascara de entrada para aceitar apenas o formato das placas
- Início seria um campo Numérico para guardar a data e hora do início do agendamento e
- Fim teria a mesma configuração do campo início

No formulário de entrada de dados segui o padrão mais fácil para o usuário (Veículo, Data, Início e Fim). Somente ao clicar em gravar que o sistema realiza todas as validações de conflito entre agendamentos ou data final inferior a data inicial, etc.

Enfim, estou disponibilizando um exemplo aqui. Veja se atende.

Espero ter ajudado.

renpv, muito obrigado, consegui adptar ao meu sistema.

Aos demais, Obrigado pela ajuda também.

Massa. Sempre que precisar a comunidade está à disposição. Bons estudos.

O fórum agradece o retorno. Sucesso.