[Resolvido]Melhorar desempenho de consulta por VBA.

Olá amigos, boa noite,

Tenho este VBA que executo conforme descrito abaixo, mas me apareceu um pequeno obstáculo, pois este código está demorando em media 30 segundos para ser executado plenamente.

Alguém tem uma sugestão para melhorar o desempenho deste código?

Grato,

nao tem anexo

Faltou o código ...

Vou postar um anexo com a parte do código envolvido.

Segue pequeno modelo das partes envolvidas no processo, cuja consulta apresenta lentidão.
Lembrando que pincei apenas uma pequena amostra para exemplificar aos amigos do fórum.

PS: Como minha tabela completa (ComparativoDetalhe) tem mais de 165.455 registros, não posso anexá-la aqui no fórum em virtude do tamanho.

Grato,

Bom dia
Compare o desempenho

Dim strSql As String
strSql = "INSERT INTO ComparativoDetalhe ( NomeUsuário, CódUsuário, CódGuia, DtAtendimento, DtAlta, CódServiço, NomeServiço, SomaDeQuantidadeServiço, Referencia, SomaDeValorPago, QtRecebido, valorUnitario, valorTotalRecebido, Saldo, Fechamento, Nota, MarcaRecurso, Convenio, DataCredito, hash, TipoAtendimento ) "
strSql = strSql & " SELECT EnviadoConf.NomeUsuário, EnviadoConf.CódUsuário, EnviadoConf.CódGuia, EnviadoConf.DtAtendimento, EnviadoConf.DtAlta, EnviadoConf.CódServiço, EnviadoConf.NomeServiço, Sum(EnviadoConf.QuantidadeServiço) AS SomaDeQuantidadeServiço, EnviadoConf.Referencia, EnviadoConf.ValorPago, Sum(Nz([QtdRecebido],0)) AS QtRecebido, Sum(Comparativo.valorUnitario) AS SomaDevalorUnitario, Sum(Comparativo.valorTotalRecebido) AS SomaDevalorTotalRecebido, Nz([somadevalorTotalRecebido])-Nz([valorPago]) AS Saldo, EnviadoConf.Fechamento, EnviadoConf.Nota, EnviadoConf.MarcaRecurso, EnviadoConf.Convenio, Comparativo.DataCredito, EnviadoConf.hash, EnviadoConf.TipoAtendimento"
strSql = strSql & " FROM EnviadoConf LEFT JOIN Comparativo ON (EnviadoConf.CódGuia = Comparativo.CódGuia) AND (EnviadoConf.CódServiço = Comparativo.CódServiço) AND (EnviadoConf.Convenio = Comparativo.Convenio) WHERE EnviadoConf.CódGuia='" & Me.cboEnviados & "' AND EnviadoConf.Convenio='" & [Forms]![logon]![cboConvenio] & " GROUP BY EnviadoConf.NomeUsuário, EnviadoConf.CódUsuário, EnviadoConf.CódGuia, EnviadoConf.DtAtendimento, EnviadoConf.DtAlta, EnviadoConf.CódServiço, EnviadoConf.NomeServiço, EnviadoConf.Referencia, EnviadoConf.ValorPago, EnviadoConf.Fechamento, EnviadoConf.Nota, EnviadoConf.MarcaRecurso, EnviadoConf.Convenio, Comparativo.DataCredito, EnviadoConf.hash, EnviadoConf.TipoAtendimento"
DoCmd.RunSQL (strSql)

Prezado Alexandre, bom dia!

Usei a instrução, mas o desempenho ainda é o mesmo. Demora por volta de 30 segundos para ser executado.

Amigos,

Estava fazendo uns testes aqui e a retirei somente a parte em vermelho e a consulta executou com menos de 3 segundos. Bacana!!!

Agora vou avaliar o impacto que esta consulta causa no banco.

Sem maiores impactos. Funciona bacana.

Grato aos senhores.