[Resolvido]Criar e acrescentar em tabela via VBA

Senhores,

Atualmente tenho duas consultas, sendo a consulta "cns_Maiorcriatb" para criar uma tabela e a outra consulta "Cns_MenorSuboutrosacrestb" acrescenta a tabela criada.

Atualmente utilizo um botão para acionar a execução das duas consultas, mas gostaria de fazer todo o processo via VBA para criar as consultas e criar e acrescentar a tabela via VBA de modo que o processamento fosse mais rápido e transparente para o usuário. Como devo proceder?


Em modo sql as consultas são:

cns_Maiorcriatb

SELECT [Programacao de Pagamento - Relatorio PR].[DATA PREVISTA], [Programacao de Pagamento - Relatorio PR].[RAZÃO SOCIAL/NOME], Sum([Programacao de Pagamento - Relatorio PR].[VALOR LIQUIDO]) AS [SomaDeVALOR LIQUIDO] INTO TabRelPresidencia
FROM [Programacao agrupar data - Relatorio PR] LEFT JOIN [Programacao de Pagamento - Relatorio PR] ON [Programacao agrupar data - Relatorio PR].[DATA PREVISTA] = [Programacao de Pagamento - Relatorio PR].[DATA PREVISTA]
GROUP BY [Programacao de Pagamento - Relatorio PR].[DATA PREVISTA], [Programacao de Pagamento - Relatorio PR].[RAZÃO SOCIAL/NOME]
HAVING (((Sum([Programacao de Pagamento - Relatorio PR].[VALOR LIQUIDO]))>=30000))
ORDER BY [Programacao de Pagamento - Relatorio PR].[DATA PREVISTA];


Cns_MenorSuboutrosacrestb

INSERT INTO TabRelPresidencia ( [RAZÃO SOCIAL/NOME], [DATA PREVISTA], [SomaDeVALOR LIQUIDO] )
SELECT "Outros" AS Outros, cns_Menor.[DATA PREVISTA], Sum(cns_Menor.[SomaDeVALOR LIQUIDO]) AS [SomaDeSomaDeVALOR LIQUIDO]
FROM cns_Menor
GROUP BY "Outros", cns_Menor.[DATA PREVISTA];

donizeth,


Currentdb.execute "DROP TABLE TabRelPresidencia;" 'Este código não deve ser executado enquanto não houver tabela TabRelPresidencia
SELECT [Programacao de Pagamento - Relatorio PR].[DATA PREVISTA], [Programacao de Pagamento - Relatorio PR].[RAZÃO SOCIAL/NOME], Sum([Programacao de Pagamento - Relatorio PR].[VALOR LIQUIDO]) AS [SomaDeVALOR LIQUIDO] INTO TabRelPresidencia
FROM [Programacao agrupar data - Relatorio PR] LEFT JOIN [Programacao de Pagamento - Relatorio PR] ON [Programacao agrupar data - Relatorio PR].[DATA PREVISTA] = [Programacao de Pagamento - Relatorio PR].[DATA PREVISTA]
GROUP BY [Programacao de Pagamento - Relatorio PR].[DATA PREVISTA], [Programacao de Pagamento - Relatorio PR].[RAZÃO SOCIAL/NOME]
HAVING (((Sum([Programacao de Pagamento - Relatorio PR].[VALOR LIQUIDO]))>=30000))
ORDER BY [Programacao de Pagamento - Relatorio PR].[DATA PREVISTA];"

Currentdb.execute "DROP TABLE Cns_MenorSuboutrosacrestb;" 'Este código não deve ser executado enquanto não houver tabela Cns_MenorSuboutrosacrestb
Currentdb.execute "INSERT INTO TabRelPresidencia ( [RAZÃO SOCIAL/NOME], [DATA PREVISTA], [SomaDeVALOR LIQUIDO] )
SELECT 'Outros' as Outros, cns_Menor.[DATA PREVISTA], Sum(cns_Menor.[SomaDeVALOR LIQUIDO]) AS [SomaDeSomaDeVALOR LIQUIDO]
FROM cns_Menor
GROUP BY Outros, cns_Menor.[DATA PREVISTA];"

Alexandre,

Não funcionou o código abaixo, por favor, poderia ver no bd que envio agora no form "Formcriar_e_atualizar_tabela" ?

Obrigado.

Código correcto

CurrentDb.Execute "DROP TABLE TabRelPresidencia;" 'Este código não deve ser executado enquanto não houver tabela TabRelPresidencia
CurrentDb.Execute "SELECT [Programacao de Pagamento - Relatorio PR].[DATA PREVISTA], [Programacao de Pagamento - Relatorio PR].[RAZÃO SOCIAL/NOME], Sum([Programacao de Pagamento - Relatorio PR].[VALOR LIQUIDO]) AS [SomaDeVALOR LIQUIDO] INTO TabRelPresidencia FROM [Programacao agrupar data - Relatorio PR] LEFT JOIN [Programacao de Pagamento - Relatorio PR] ON [Programacao agrupar data - Relatorio PR].[DATA PREVISTA] = [Programacao de Pagamento - Relatorio PR].[DATA PREVISTA] GROUP BY [Programacao de Pagamento - Relatorio PR].[DATA PREVISTA], [Programacao de Pagamento - Relatorio PR].[RAZÃO SOCIAL/NOME] HAVING (((Sum([Programacao de Pagamento - Relatorio PR].[VALOR LIQUIDO])) >= 30000)) ORDER BY [Programacao de Pagamento - Relatorio PR].[DATA PREVISTA];"

CurrentDb.Execute "DROP TABLE Cns_MenorSuboutrosacrestb;" 'Este código não deve ser executado enquanto não houver tabela Cns_MenorSuboutrosacrestb
CurrentDb.Execute "INSERT INTO TabRelPresidencia ([RAZÃO SOCIAL/NOME], [DATA PREVISTA], [SomaDeVALOR LIQUIDO] ) SELECT 'Outros' AS Outros, cns_Menor.[DATA PREVISTA], Sum(cns_Menor.[SomaDeVALOR LIQUIDO]) AS [SomaDeSomaDeVALOR LIQUIDO] FROM cns_Menor GROUP BY 'Outros', cns_Menor.[DATA PREVISTA];"

resolvido, ficou ótimo. muito obrigado.