[Resolvido]Criar tabela temporária com vba

Não sei se esta é a sala correta para postar este duvida:
Tenho duas consultas abaixo relacionadas:
esta é a primeira:
==========================================================================================================
SELECT Lancamentos.CodConta, Lancamentos.Centrocst, Month([Dtlcto]) AS Mês, Year([Dtlcto]) AS Ano, Sum(Lancamentos.ValorMObjet) AS ExecutadoMensal, 0 AS OrcadoMensal, Format(DSum("[saldo]","qry_ExecutadoMensal","[Mês] <= " & [Mês] & "And [Ano] = " & [Ano] & "And [Centrocst] = " & [Centrocst] & "And [CodConta] = " & [CodConta]),"Currency") AS ExecutadoAcum, 0 AS OrcadoAcum
FROM Lancamentos
GROUP BY Lancamentos.CodConta, Lancamentos.Centrocst, Month([Dtlcto]), Year([Dtlcto])
HAVING (((Year([Dtlcto]))=Year(Date())));

Esta é a segunda:
============================================================================================================
SELECT PlanejamentoAnual.CodConta, PlanejamentoAnual.Centrocst, PlanejamentoAnual.MesRef AS Mês, PlanejamentoAnual.AnoRef AS Ano, 0 AS ExecutadoMensal, Sum(PlanejamentoAnual.CustosPlan) AS OrcadoMensal, 0 AS ExecutadoAcum, Format(DSum("[Saldo]","qry_OrcadoMensal","[MesRef] <= " & [MesRef] & "And [AnoRef] = " & [AnoRef] & "And [Centrocst] = " & [Centrocst] & "And [CodConta] = " & [CodConta]),"Currency") AS OrcadoAcum
FROM PlanejamentoAnual
GROUP BY PlanejamentoAnual.CodConta, PlanejamentoAnual.Centrocst, PlanejamentoAnual.MesRef, PlanejamentoAnual.AnoRef
HAVING (((PlanejamentoAnual.AnoRef)=Year(Date())));
=============================================================================================================

Esta terceira é uma consulta union das duas primeira:
==============================================================================================================
SELECT Lancamentos.CodConta, Lancamentos.Centrocst, Month([Dtlcto]) AS Mês, Year([Dtlcto]) AS Ano, Sum(Lancamentos.ValorMObjet) AS ExecutadoMensal, 0 AS OrcadoMensal, Format(DSum("[saldo]","qry_ExecutadoMensal","[Mês] <= " & [Mês] & "And [Ano] = " & [Ano] & "And [Centrocst] = " & [Centrocst] & "And [CodConta] = " & [CodConta]),"Currency") AS ExecutadoAcum, 0 AS OrcadoAcum
FROM Lancamentos
GROUP BY Lancamentos.CodConta, Lancamentos.Centrocst, Month([Dtlcto]), Year([Dtlcto])
HAVING (((Year([Dtlcto]))=Year(Date()))) UNION SELECT PlanejamentoAnual.CodConta, PlanejamentoAnual.Centrocst, PlanejamentoAnual.MesRef AS Mês, PlanejamentoAnual.AnoRef AS Ano, 0 AS ExecutadoMensal, Sum(PlanejamentoAnual.CustosPlan) AS OrcadoMensal, 0 AS ExecutadoAcum, Format(DSum("[Saldo]","qry_OrcadoMensal","[MesRef] <= " & [MesRef] & "And [AnoRef] = " & [AnoRef] & "And [Centrocst] = " & [Centrocst] & "And [CodConta] = " & [CodConta]),"Currency") AS OrcadoAcum
FROM PlanejamentoAnual
GROUP BY PlanejamentoAnual.CodConta, PlanejamentoAnual.Centrocst, PlanejamentoAnual.MesRef, PlanejamentoAnual.AnoRef
HAVING (((PlanejamentoAnual.AnoRef)=Year(Date())));
==============================================================================================================

e esta é o agrupamento da terceira, que é a base de um relatorio gerencial:
==============================================================================================================
SELECT qry_ExecutadoOrcadoAcumMes.CodConta, qry_ExecutadoOrcadoAcumMes.Centrocst, qry_ExecutadoOrcadoAcumMes.Mês, qry_ExecutadoOrcadoAcumMes.Ano, Sum(qry_ExecutadoOrcadoAcumMes.Executado) AS ExecutadoMensal, Sum(qry_ExecutadoOrcadoAcumMes.OrcadoMensal) AS OrcadoMensal, Sum(Format([ExecutadoAcum],"Currency")) AS ExecutadoAcumulado, Sum(qry_ExecutadoOrcadoAcumMes.OrcadoAcum) AS OrcadoAcumulado, Contas.Conta, [ExecutadoMensal]-[OrcadoMensal] AS Desvio, IIf([OrcadoMensal]=0,0,[Desvio]/[OrcadoMensal]) AS Desvio2, Classes.CodClasse, Grupos.CodGrupo, Contas.CodCusto
FROM (((qry_ExecutadoOrcadoAcumMes INNER JOIN Contas ON qry_ExecutadoOrcadoAcumMes.CodConta = Contas.CodConta) INNER JOIN Classes ON Contas.CodClasse = Classes.CodClasse) INNER JOIN Grupos ON Classes.CodGrupo = Grupos.CodGrupo) INNER JOIN CentroDeCusto ON qry_ExecutadoOrcadoAcumMes.Centrocst = CentroDeCusto.Centrocst
GROUP BY qry_ExecutadoOrcadoAcumMes.CodConta, qry_ExecutadoOrcadoAcumMes.Centrocst, qry_ExecutadoOrcadoAcumMes.Mês, qry_ExecutadoOrcadoAcumMes.Ano, Contas.Conta, Classes.CodClasse, Grupos.CodGrupo, Contas.CodCusto;
==============================================================================================================

Pelo painel de navegação está pesando o banco de dados. Como faço para executar estas pelo menos as duas primeiras consultas criando tabelas temporarias e apartir dai criar as consultas 3 e 4 ? já vi que fica mais rápido fazer pelo vba, mas não tenho os comandos necessários para fazê-los.
Alguem tem alguma ideia? qualquer coisa serve, seja criando tabelas temporárias, seja função ou outra coisa que seja mais rápido.

Grato pela ajuda.

com este comando eu crio uma nova tabela no vba ou no painel de navegação?

Olá a todos,

Em cima , no exemplo é a instrução em SQL.

Podes utilizar em VBA com a instrução DoCmd.RunSql "instrução em sql"

Aproveita dá uma vista de olhos no exemplo do link abaixo:

http://msdn.microsoft.com/en-us/library/office/ff194626(v=office.15).aspx

aonde tem aspas duplas dentro da instrução sql dá erro e o codigo pára.
Ex:
("[saldo]","qry_ExecutadoMensal",

Olá,

Fui buscar acima a tua instrução, exprimenta assim no VBA:

Código:


DoCmd.RunSQL "SELECT qry_ExecutadoOrcadoAcumMes.CodConta, qry_ExecutadoOrcadoAcumMes.Centrocst, qry_ExecutadoOrcadoAcumMes.Mês, " _
           & "qry_ExecutadoOrcadoAcumMes.Ano, Sum(qry_ExecutadoOrcadoAcumMes.Executado) AS ExecutadoMensal, " _
           & "Sum(qry_ExecutadoOrcadoAcumMes.OrcadoMensal) AS OrcadoMensal, Sum(Format([ExecutadoAcum],'Currency')) AS ExecutadoAcumulado, " _
           & "Sum(qry_ExecutadoOrcadoAcumMes.OrcadoAcum) AS OrcadoAcumulado, Contas.Conta, [ExecutadoMensal]-[OrcadoMensal] AS Desvio, " _
           & "IIf([OrcadoMensal]=0,0,[Desvio]/[OrcadoMensal]) AS Desvio2, Classes.CodClasse, Grupos.CodGrupo, Contas.CodCusto " _
           & "FROM (((qry_ExecutadoOrcadoAcumMes INNER JOIN Contas ON qry_ExecutadoOrcadoAcumMes.CodConta = Contas.CodConta) " _
           & "INNER JOIN Classes ON Contas.CodClasse = Classes.CodClasse) INNER JOIN Grupos ON Classes.CodGrupo = Grupos.CodGrupo) " _
           & "INNER JOIN CentroDeCusto ON qry_ExecutadoOrcadoAcumMes.Centrocst = CentroDeCusto.Centrocst " _
           & "GROUP BY qry_ExecutadoOrcadoAcumMes.CodConta, qry_ExecutadoOrcadoAcumMes.Centrocst, qry_ExecutadoOrcadoAcumMes.Mês, " _
           & "qry_ExecutadoOrcadoAcumMes.Ano, Contas.Conta, Classes.CodClasse, Grupos.CodGrupo, Contas.CodCusto;"


Se não der o melhor será disponibilizares uma base de exemplo  com a consulta, quanto ao volume da dados, apaga nas tabelas, ficando apenas dois ou tres registos.

Na consulta "qry_UnionExecutadoOrcadoAcumMes" existe uma função agregada "Dsum" que busca o valor da conta até o mês de abertura do relatório "rpt_Executado_X_Orcado" com base no parâmetros do formulário "Frm_Parametros". Creio que é esta função que está pesando a abertura dos dados. Há alguma forma de se criar tabelas no vba e apartir destas tabelas criadas criar outras tabelas para chegar a mesma estrutura da consulta "qry_ExecutadoOrcadoMesAno" para servir de base para qualquer relatório?
Segue em anexo o bd.

Olá,

Normalmente as consultas tem um desempenho melhor, nao me parece que vá alterar o rendimento, pois vai ter um acesso de leitura e escrita numa nova tabela.

Um das coisas que reparei é que estás a calcular o Mes e Ano na consulta, talvez (é de exprimentar) seria ter logo na tabela de movimentos o campo ANO e MES de preferencia campo numerico indexado, que seria automáticamente preenchido logo quando são efetuados os movimentos. Assim é menos um calculo nas consultas ao agregar.

Vou analisar um pouco melhor e dar novo feedback

O relatório baseado na consulta está levando de 4 a 5 segundos para abrir. se eu conseguir extrair os dados da consulta e inseri-los em uma tabela, o relatório abre mais rápido. O meu pensamento é executar as consultas "Qry_ExecutadoMensal" e "qry_OrcadoMensal" pelo vba, extrair os dados e inserir ao dados em tabelas. A partir destas novas tabelas efetuar as novas consultas para servir de base para o relatório . Já percebi que a abertura fica mais eficiente. seria o caso de uma "tabledefs" criada pelo vba?

Achei um um código neste site:
http://allenbrowne.com/func-dao.html#CreateQueryDAO
Aqui cria a tabela, basta agora eu adaptar ao meu projeto. preciso agora é selecionar os dados via vba e inseri-los neste tabela.

Sim, o exemplo cria uma tabela noutra base de dados que poderá ser tabela temporaria.

Tembém tenho utilizado, a técnica que tenho utilizado é:
-criar a BD temporaria, com as tabelas desejadas
-verificar se já existe alguma ligação (vinculado) da tabela(s) temporaria(s) e eliminar
-Ligar (vincular) à base de dados temporaria a tabela(s)

Depois trabalho normalmente com a(s) tabela(s) vinculadas, como se fosse na propria base de dados do projeto.

Abraço

vou dar o topico como resolvido.