[Resolvido]Inclusão de Registros de Horas com Intervalo de 20 minutos

Prezados,

Tenho uma tabela TbMarcacaoConsultas campos "HoraConsulta", "DtaConsulta".

Tenho um Form onde entro com os campos "DtaConsulta", "HoraInicial", "HoraFinal" e "IntervaloMinutos"

Ex:

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 inceridas.

Dim HoraSeq As Date, MyStep As Integer

Set rstD = CurrentDb.OpenRecordset("Cadastro de Consultas")
MyStep = (DateDiff("n", Me.HoraInicial, Me.HoraFinal) / Me.Intervalo) + 1

With rstD
For HoraSeq = Me.HoraInicial To Me.HoraFinal Step MyStep
dtReturn = DateAdd("n", Intervalo, Me.HoraInicial)
.AddNew
rstD!CRM = Me.CRMMedico
rstD!DtadaConsulta = Me.DtEmissaoInicial
rstD!HoradaConsulta = dtReturn
.Update
Next
End With

Set rstD = Nothing
Me.Refresh

Como poderia acertar esse código ? teria como ?

Muito grato,

Regis Borda

Regis

veja se atende:

redeaccess.com.br/viewtopic.php?f=4&t=1963

Nota: copie e cole o endereço no seu navegador.

Sucesso!

Prezado Avelino,

Vi seu link e consegui resolver.

Muito Grato.

Abs,

Regis Borda