bollywood actresses hair loss hair rehab london contact number cheap hair extensions brazilian curly hair with closure hair extension fails human hair wigs black ponytail hairstyles 2018 sunny hair extensions uk hair extensions remy hair extensions weft koko one piece hair extensions clip hair
Ajuda Sistema de Agendamento de Veículos

Sistema de Agendamento de Veículos

Nota importante: para ter acesso aos vídeos e arquivos exemplos deste site, adquira um dos planos apresentados abaixo. Você pode comprar em até 2x no Cartão de Crédito. 

Veja como comprar e saiba mais sobre o material oferecido,  clicando aqui.

Open v3

 

Usuário Ralreis:

Olá, bom dia!

Tenho o backend de um Sistema de Agendamento de Veículos que estou criando. Acontece que não consegui resolver, através do relacionamento de tabelas, a unicidade de um agendamento.

Eu preciso que: - um agendamento não possa ser realizado caso o carro e/ou motorista já esteja agendado entre a horaAgenda e previsaofim. Qual é a melhor forma de fazer com essa regra seja respeitada?

Suporte:

Ralreis, segue um exemplo que fiz para você estudar e fazer as adaptações necessárias:

- selecione a data que deseja pesquisar no calendário (15/02/2018)
- selecione o motorista na caixa de combinação
- verifique na barra de horários, quais horários estão livres para este motorista, neste dia
- clique no botão Agendar para dar prosseguimento ao agendamento
- entre com um horário que possa colidir com o já agendado. Você verá o código atuando.

Tela agendamento

O código utilizado para verificar horários colidindo é este:

Private Sub previsaoFim_AfterUpdate()
Dim strFiltro$
strFiltro = "cod_motorista = " & Me!cod_motorista & " AND "
strFiltro = strFiltro & dataagenda = #" & Format(Me!Calendario, "mm/dd/yyyy") & "#" & " AND (("
strFiltro = strFiltro & "horaagenda between #" & Me!horaAgenda & "# AND #" & Me!previsaoFim & "#) OR ("
strFiltro = strFiltro & "PrevisaoFim between #" & Me!horaAgenda & "# AND #" & Me!previsaoFim & "#))"
If DCount("*", "tblAgenda", strFiltro) > 0 Then
    MsgBox "Este horário está colidindo com o horário já agendado..."
    Me!horaAgenda = "00:00"
    Me!horaAgenda.SetFocus
    Me!previsaoFim = "00:00"
End If
End Sub

É um projeto que precisa ser bem lapidado, mas já dá para você começar a desenvolver.

Usuário Ralreis:

Esplêndido!

O resto agora é comigo e o MontaRibbons.

Muito Obrigado! A lógica do código ficou perfeita!

Download

Nota: Registre o calendário MSCAL.OCX, ANTES de abrir o aplicativo de Agendamento, conforme orientação deste nosso artigo AQUI.

 


 

 


1 comentário(s)

Cloves Walter   24/10/2019 12:54:46

Prezado Avelino,
Estou precisando de uma solução parecida com a disponibilizada no Sistema de Agendamento de Veículos, o problema é que o ActiveX não funciona para a versão de 64 bits do Access, certo?
Teria alguma outra solução para o problema em questão?
Um sistema que possibilitasse a visualização do calendários por dia no mês e os horários diários ocupados e disponíveis?
No aguardo.
Grato.


Envie seu comentário: