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

    [Resolvido]Código para gerar registro com incremento de horário

    Compartilhe

    enio.eltz
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 49
    Registrado : 19/07/2016

    [Resolvido]Código para gerar registro com incremento de horário

    Mensagem  enio.eltz em 27/3/2018, 14:23

    Bom dia

    Estou tentando criar um código VBA para gerar 5000 registros em uma tabela.
    A tabela time_generator tem dois campos, um para numeração automática e outro para a inserção dos valores nomeado TIME. Criei um formulário fml_time_generator com um botão CRIAR e neste botão um código para adicionar os valores:

    Código:
    Private Sub gerar_Click()
     
        Set db = CurrentDb()
            Set rs = db.OpenRecordset("time_generator") 'Abre tabela time_generator
            
            T = "08:00:00" 'faz T = 08:00:00
            
            For I = 1 To 5000 'faz loop até 5000
            rs.AddNew
            rs("TIME") = "<time>2018-03-01T" & T & "Z</time>"
            rs.Update
            
            Next
            
            rs.Close
            db.Close
            
    End Sub

    Até este ponto está operando. Ele criou 5000 registros .

    Porém o que eu preciso é incrementar o horário inicial que é 08:00:00 em três segundos, criando registros assim:





    Pesquisei no forum e internet alguns exemplo de como fazer isso mas não identifiquei algo que me ajudasse. Entendo que isso é um código relativamente simples, mas como access não é meu dia a dia estou na dúvida de como fazer o código.

    O banco está em anexo.

    Desde já agradeço toda a ajuda.
    Anexos
    time_generator.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (26 Kb) Baixado 2 vez(es)

    enio.eltz
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 49
    Registrado : 19/07/2016

    Re: [Resolvido]Código para gerar registro com incremento de horário

    Mensagem  enio.eltz em 27/3/2018, 14:48

    Olá

    Pesquisando mais, achei uma informação parecida com o que eu preciso. Então, criei no formulário uma caixa de texto chamada HORA_INICIAL e o seguinte código para o botão CRIAR:

    Código:
    Private Sub gerar_Click()
     
        Set db = CurrentDb()
            Set rs = db.OpenRecordset("time_generator") 'Abre tabela time_generator
           
            T = Me.HORA_INICIAL 'faz T = 08:00:00
           
            For I = 1 To 5000 'faz loop até 5000
            rs.AddNew
            rs("TIME") = "<time>2018-03-01T" & T & "Z</time>"
            rs.Update
           
            T = [T] + #12:00:03 AM#
           
            Next
           
            rs.Close
            db.Close
           
    End Sub

    Desta forma o código faz exatamente o que eu preciso.


      Data/hora atual: 19/10/2018, 12:38