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


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

    avatar
    enio.eltz
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  enio.eltz 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
    [Resolvido]Código para gerar registro com incremento de horário Attachmenttime_generator.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (26 Kb) Baixado 3 vez(es)
    avatar
    enio.eltz
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  enio.eltz 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: 26/4/2024, 15:23