Usando Access

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é 10x 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.

Para acessar o código faça o seu cadastro de visitante aqui ou entre com o seu login aqui.

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:

Para acessar o código faça o seu cadastro de visitante aqui ou entre com o seu login aqui.

Usuário Regis:

Prezado Avelino,

Você é SHOW !!! Utilizei o seu código alternativo.

Muito Grato, funcionou legal!

| Home | Vídeos | Tutoriais | Dicas | Ribbons | Suporte | Downloads | Contato | Artigo |