MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

2 participantes

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

    avatar
    RegisBorda
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  RegisBorda 5/9/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
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Avelino Sampaio 5/9/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!
    avatar
    RegisBorda
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  RegisBorda 11/9/2021, 19:48

    Prezado Avelino,

    Vi seu link e consegui resolver.

    Muito Grato.

    Abs,

    Regis Borda

      Data/hora atual: 6/10/2022, 07:29