Inserir registros de horas com intervalos de 20 minutos
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.
Usuário Regis:
Prezado,
tenho uma tabela TbMarcacaoConsultas com os campos HoraConsulta e DtaConsulta.
Tenho um Formulário aonde entro com os campos DtaConsulta, HoraInicial, HoraFinal e IntervaloMinutos.
Exemplo:
DtaConsulta = 28/08/2017
HoraInicial = 13:00
HoraFinal = 16:00
IntervaloMinutos = 20
Gostaria que fossem criados registros na Tabela TbMarcacaoConsultas.
13:00 28/08/2017
13:20 28/08/2017
13:40 28/08/2017
14:00 28/08/2017 até 16:00
Tenho um código abaixo, porém só está inserindo uma linha (faltam +9 linhas) a ser inseridas.
Faça o login aqui para ter acesso ao código.
Como poderia acertar esse código? Teria como?
Suporte:
Regis, na parte em vermelho não seria HoraSeq ?
dtReturn = DateAdd("n", Intervalo, Me.HoraInicial)
Segue uma alternativa de código:
Faça o login aqui para ter acesso ao código.
Usuário Regis:
Prezado Avelino,
Você é SHOW !!! Utilizei o seu código alternativo.
Muito Grato, funcionou legal!
| Não há comentário |
