MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Inclusão de Registros de Horas com Intervalo de 20 minutos

    Compartilhe

    RegisBorda
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 07/02/2014

    Inclusão de Registros de Horas com Intervalo de 20 minutos

    Mensagem  RegisBorda em Ter 05 Set 2017, 14:23

    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
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3408
    Registrado : 04/04/2010

    Re: Inclusão de Registros de Horas com Intervalo de 20 minutos

    Mensagem  Avelino Sampaio em Ter 05 Set 2017, 15:12

    Regis

    veja se atende:

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

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

    Sucesso!

      Data/hora atual: Ter 21 Nov 2017, 21:08