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
Inserir Registros de Horas com intervalos de 20 minutos

... Assinatura do site por 1 ano + Kit MontaRibbons + 3 Livros em PDF + Diversas Revistas (pdf) de brinde, por apenas R$100,00
(
podendo parcelar em até 10 vezes no cartão de crédito)...

Clique aqui e obtenha mais detalhes do nosso kit completo e de como comprar.


Inserir registros de horas com intervalos de 20 minutos

Antes de iniciar a sua leitura, clique aqui e cadastre-se para receber comunicados sobre novos artigos.

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.

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?

Suporte:

Regis, na parte em vermelho não seria HoraSeq ?

dtReturn = DateAdd("n", Intervalo, Me.HoraInicial)

Segue uma alternativa de código:

Dim horaAtual As Date
Dim rstD as DAO.Recordset
Set rstD = CurrentDb.OpenRecordset("Cadastro de Consultas")
With rstD
horaAtual = me!horaInicial
Do While Not me!horaFinal < horaAtual
       .AddNew
           rstD!CRM = Me.CRMMedico
           rstD!DtadaConsulta = Me.DtEmissaoInicial
           rstD!HoradaConsulta = horaAtual
      .Update
      horaAtual = DateAdd("n", me!intervalo, horaAtual)
Loop
End With
rstD.close
Set rstD = Nothing
Me.Refresh

Usuário Regis:

Prezado Avelino,

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

Muito Grato, funcionou legal!

 


 

 


Não há comentário

Envie seu comentário: