[Resolvido]Executar SQL Atualização e Adição no VBA

Executo várias consultas ação para atualização e adicionar dados. Como fazer isso via VBA? Seria através de DAO.Recordset?


Exemplos abaixo:
UPDATE tblLancamentos SET tblLancamentos.RefValor = [Forms]![frmFolha]![Dependentes], tblLancamentos.Valor = [Forms]![frmFolha]![frmFolha_Totais]![SalFam]
WHERE (((tblLancamentos.CodEvento1)=5) AND ((tblLancamentos.CodFolha1)=[Forms]![frmFolha]![CodFolha]));


INSERT INTO tblLancamentos ( RefValor, Valor, CodEvento1, CodFolha1 )
SELECT tblLancamentos.RefValor, tblLancamentos.Valor, tblLancamentos.CodEvento1, tblLancamentos.CodFolha1
FROM tblLancamentos
WHERE (((tblLancamentos.CodEvento1)=5) AND ((tblLancamentos.CodFolha1)=[Forms]![frmFolha]![CodFolha]));

Tente colocar mais ou menos assim:

CurrentDb.Execute "Sua expressão aqui"

Gondim

Também pode usar o camando docmd.RunSQL():

Exemplo:

Docmd.RunSQL("UPDATE tblLancamentos SET tblLancamentos.RefValor = [Forms]![frmFolha]![Dependentes], tblLancamentos.Valor = [Forms]![frmFolha]![frmFolha_Totais]![SalFam]
WHERE (((tblLancamentos.CodEvento1)=5) AND ((tblLancamentos.CodFolha1)=[Forms]![frmFolha]![CodFolha]))")

Atente para o número 5 que deixei em vermelho.

Provavelmente esse número não é fixo então deverá colocar o controle de onde vem esse valor e acredito que saiba como colocar o nome do controle dentro de uma string.

Caso não consiga, retorne.

Abraços

Caros Balem e Criquio,

utilizei a ajuda de ambos e funcionou. Demorei a retornar porque só agora pude usá-las.

Pela praticidade, preferi usar o comando DoCmd.OpenQuery "Nome_Consulta_Atualização".

Obrigado!

Concordo Gondim

Valeu pelo retorno.

O fórum agradece.

Boa sorte!

Perdão.

Encontrei!!!