[Resolvido]Transformar Consultas SQL em código para serem acionadas via botão

Senhores,

Tenho duas consultas em SQL sendo a primeira para criar uma tabela e a segunda atualiza uma determinada tabela com base na tabela criada na primeira consulta, gostaria de transformar essas duas consultas em código VBA para serem acionadas em um botão em um determinado form, segue abaixo as consultas:

1ª Consulta Criar tabela:

SELECT [Consulta Registros por contrato-1].CONTRATO, Sum(Format([VALOR BRUTO],"Standard")) AS ValorBruto INTO Tab_Registrosporcontrato
FROM [Consulta Registros por contrato-1]
GROUP BY [Consulta Registros por contrato-1].CONTRATO;


2ª Consulta atualizar tabela

UPDATE [RELACAO CONTRATOS] LEFT JOIN Tab_Registrosporcontrato ON [RELACAO CONTRATOS].CONTRATO = Tab_Registrosporcontrato.CONTRATO SET [RELACAO CONTRATOS].[VALOR PRINCIPAL] = [Tab_Registrosporcontrato].[ValorBruto]+[RELACAO CONTRATOS].[VALORPGTOEYT1]
WHERE ((([RELACAO CONTRATOS].VALORDEFINIDO)="Não") AND (([RELACAO CONTRATOS].SITUACAOADMCTR)<>"Encerrado"));

Você também pode chamar a consulta pelo vba e inibir os alertas...

Veja como seria:

Evento ao clicar do seu botão:

DoCmd.SetWarnings False 'Desabilita os avisos do Access
DoCmd.OpenQuery "NomeDaConsulta"
DoCmd.SetWarnings True 'Volta a habilitar os avisos do Access

Marcelo,

As consultas via vba não ficariam mais rápidas?

Donizeth

Eu uso as duas e nunca tive problemas de lentidão, inclusive em ambiente de rede...
Mas isso depende de vários fatores!

como eu altero os sql para vba? em quais pontos dos códigos tenho que alterar? quero também fazer um teste, tanto chamando a consulta como criando diretamente em vba.

Currentdb.execute "SELECT [Consulta Registros por contrato-1].CONTRATO, Sum(Format([VALOR BRUTO],"Standard")) AS ValorBruto INTO Tab_Registrosporcontrato FROM [Consulta Registros por contrato-1] GROUP BY [Consulta Registros por contrato-1].CONTRATO;"
Currentdb.execute "UPDATE [RELACAO CONTRATOS] LEFT JOIN Tab_Registrosporcontrato ON [RELACAO CONTRATOS].CONTRATO=Tab_Registrosporcontrato.CONTRATO SET [RELACAO CONTRATOS].[VALOR PRINCIPAL]=[Tab_Registrosporcontrato].[ValorBruto]+[RELACAO CONTRATOS].[VALORPGTOEYT1] WHERE ((([RELACAO CONTRATOS].VALORDEFINIDO)="Não") AND (([RELACAO CONTRATOS].SITUACAOADMCTR)<>"Encerrado"));"

obrigado.