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]Delay entre execução de loop

    avatar
    vailson
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 160
    Registrado : 08/05/2015

    [Resolvido]Delay entre execução de loop Empty [Resolvido]Delay entre execução de loop

    Mensagem  vailson 14/11/2017, 15:15

    Olá amigos,
    Criei uma pequena aplicação para gerar números sequenciais. Funcionou. Ocorre que preciso gerar 2 milhões de números Shocked Shocked ...
    Quando a aplicação gera 200, 500, roda tranquilo. Mas quando mando rodar 10mil, por exemplo, o access trava.
    Acho que tá rodando rápido demais, aí buga.
    Minha intenção é botar um atraso entre as execuções, de alguns milisegundos.
    Alguém pode dar uma luz?

    Código:
     For i = 1 To Me.add
         
          RS.AddNew
          RS("number") = Nz(DMax("number", "lista")) + 1
          RS.Update
         
      Next

    Esse é o código que gera a sequencia numérica.
    Alguma ideia?

    Obrigado!
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Delay entre execução de loop Empty Re: [Resolvido]Delay entre execução de loop

    Mensagem  FabioPaes 14/11/2017, 18:10

    Opa, Buscando aqui no Fórum sempre achamos o que procuramos amigo!!!

    https://www.maximoaccess.com/t995-provocar-pausa-numa-instrucao


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Delay entre execução de loop Empty Re: [Resolvido]Delay entre execução de loop

    Mensagem  FabioPaes 14/11/2017, 18:17

    Dica:
    Se esse seu Código é apenas para adicionar Numeros sequencias sem pular pode dobrar a velocidade se remover esse Dmax() de dentro do Loop

    Pegue apenas uma Unica Vez o Ultimo Numero da tabela com Dmax(), passe ele para uma Variavel x e então basta ao passar pra tabela colocar assim:


    X= Nz(DMax("number", "lista")  '<===Aqui eu vejo antes qual o Maior Valor que já tem na tabela
    For i = 1 To Me.add
         
          RS.AddNew
          RS("number")=X+i '<=== Aqui eu Pego o maior valor e vou somando com a passagem do Loop (i)
          RS.Update
         
      Next


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    vailson
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 160
    Registrado : 08/05/2015

    [Resolvido]Delay entre execução de loop Empty Re: [Resolvido]Delay entre execução de loop

    Mensagem  vailson 4/12/2017, 17:52

    Obrigado
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Delay entre execução de loop Empty Re: [Resolvido]Delay entre execução de loop

    Mensagem  FabioPaes 4/12/2017, 19:54

    Até aproxima se Deus quiser!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Delay entre execução de loop Empty Re: [Resolvido]Delay entre execução de loop

    Mensagem  FabioPaes 5/12/2017, 12:15

    Poderia nos contar qual das duas dica resolveu seu problema?


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    Conteúdo patrocinado


    [Resolvido]Delay entre execução de loop Empty Re: [Resolvido]Delay entre execução de loop

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 23:29