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

Adquira a assinatura vitalícia do site e passe a ter acesso aos arquivos exemplos, vídeos, revistas, livros e ao kit de montagem de ribbons. Você terá suporte por e-mail, caso necessite tirar dúvidas pontuais. Clique AQUI e veja como obter um dos nossos planos. Clique AQUI e faça uma visita a seção Downloads do site e verifique as centenas de arquivos que estará à sua disposição. Clique AQUI e faça uma visita a seção Vídeos do site e veja a lista que estará disponível ao se tornar o nosso assinante vitalício. Clique AQUI e saiba mais detalhes sobre o kit de montagem de ribbons (deixe seus aplicativos com aspecto profissional).

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: