[Resolvido]Criar e acrescentar em tabela via vba - botão em form

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];

Se nos enviar parte do aplicativo referente a esta função, poderiasmos fazer algo pra ti...

segue bd exemplo.

este topico será tratado nos tópicos de tabelas