[Resolvido]Desempenho VBA Access x VBA Excel

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



Luis seja bem-vindo ao fórum.

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


É isso

[]'s

FIM

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

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

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

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

Augusto