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]Desempenho VBA Access x VBA Excel

    avatar
    LuísAugustoS
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 07/11/2017

    [Resolvido]Desempenho VBA Access x VBA Excel Empty [Resolvido]Desempenho VBA Access x VBA Excel

    Mensagem  LuísAugustoS 21/10/2021, 15:50

    Olá pessoal!
    Espero que esteja tudo bem com vocês.

    Vocês poderiam realizar um teste e me dizer se o mesmo ocorre na máquina de vocês?

    Considerando o código abaixo, no Access está levando em torno de 9s para executar, já no Excel está levando 0s.

    Estou usando W10 64bits, Office 2016 32bits.

    Muito obrigado.

    Atenciosamente, Augusto

    Código:


    Sub Teste()

    Dim dt1 As Date
    Dim dt2 As Date
    Dim i as Long

        dt1 = Now()
        
        For i = 1 To 10000
            DoEvents
        
        Next
        
        dt2 = Now()
        
        Debug.Print DateDiff("s", dt1, dt2)  & "s"

    End Sub

    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1947
    Registrado : 13/12/2016

    [Resolvido]Desempenho VBA Access x VBA Excel Empty Re: [Resolvido]Desempenho VBA Access x VBA Excel

    Mensagem  Alexandre Fim 21/10/2021, 16:27

    Luis seja bem-vindo ao fórum.

    Comente o "DoEvents" e vai rodar em 0 segundos.


    É isso

    []'s

    FIM

    LuísAugustoS gosta desta mensagem

    avatar
    LuísAugustoS
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 07/11/2017

    [Resolvido]Desempenho VBA Access x VBA Excel Empty Re: [Resolvido]Desempenho VBA Access x VBA Excel

    Mensagem  LuísAugustoS 21/10/2021, 18:05

    Muito obrigado, Alexandre!
    Eu nunca iria detectar esse problema.

    Quer dizer que processamentos longos o Access não fica com a tela congelada?
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1947
    Registrado : 13/12/2016

    [Resolvido]Desempenho VBA Access x VBA Excel Empty Re: [Resolvido]Desempenho VBA Access x VBA Excel

    Mensagem  Alexandre Fim 21/10/2021, 18:45

    Valeu Augusto !!!!


    Quer dizer que processamentos longos o Access não fica com a tela congelada?

    Depende.

    - Depende das tabelas, se estão indexadas corretamente. Se não tiver indices ou indices demais, podem atrapalhar no desempenho.
    - Consultas (queries) com vários JOIN'S e com ORDER BY levam mais tempo para carregar
    - Validação de campos onde há um loop em um recordset
    - Volume de dados em varias tabelas, onde estas se relacionam.

    E etc...

    Existem vários fatores que podem impactar no desempenho do sistema.

    É isso

    []'s

    FIM

    LuísAugustoS gosta desta mensagem

    avatar
    LuísAugustoS
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 07/11/2017

    [Resolvido]Desempenho VBA Access x VBA Excel Empty Re: [Resolvido]Desempenho VBA Access x VBA Excel

    Mensagem  LuísAugustoS 21/10/2021, 19:46

    Mais uma vez agradeço por disponibilizar parte do seu tempo em me responder.
    Um grande abraço.

    Augusto

      Data/hora atual: 6/12/2021, 17:03