Consulta Atualização: erro atualizar a partir de uma consulta totais

Estou a tentar criar uma consulta atualização que está retornando o erro "A operação deve usar uma consulta atualizável".

A consulta que fornecerá os novos dados é do tipo Totais, por tanto não atualizável.

Abaixo o SQL da consulta atualização:
UPDATE qryINSSCalculo INNER JOIN tblLancamentos ON qryINSSCalculo.CodFolha1 = tblLancamentos.CodFolha1 SET tblLancamentos.RefValor = [qryINSSCalculo].[INSSAliq], tblLancamentos.Valor = [qryINSSCalculo].[VrInss]
WHERE (((tblLancamentos.CodEvento1)=112));

SQL da consulta totais:
SELECT tblLancamentos.CodFolha1, Nz(Sum(IIf([BaseINSS]=-1,[Valor])),0) AS BCINSS1, Nz(Sum(IIf([DedINSS]=-1,[Valor])),0) AS BCINSS2, IIf([BCINSS2] Is Null,[BCINSS1],([BCINSS1]-[BCINSS2])) AS BCINSS3, Format(DMax("Ate","qryINSSAliquo2"),"Currency") AS INSSTeto, Format(IIf([BCINSS3]>[INSSTeto],[INSSTeto],[BCINSS3]),"Fixed") AS BCINSS, Nz(DLookUp("[Cota]","qryINSSAliquo2","De <=" & Replace([BCINSS],",",".") & "AND Ate >=" & Replace([BCINSS],",",".")),0) AS INSSAliq, [BCINSS]*[INSSAliq]/100 AS VrInss
FROM tblEventos INNER JOIN tblLancamentos ON tblEventos.CodEvento = tblLancamentos.CodEvento1
GROUP BY tblLancamentos.CodFolha1;

boas
assim é muito dificil obteres ajuda:
faz um pequeno exemplo apenas com a tabelas e consultas necessarias, nao é necessario formularios e junta a inf questao detalhada.

cumps
acao

Acao, perdão pelo emaranhado. Vou tentar ser o mais claro possível com a dúvida.

Eu estava tentando atualizar registros de uma tabela (tblLancamentos) a partir de uma consulta do tipo totais (qryCalculos).

Resolvi parte do problema criando uma consulta atualização que captura os mesmos cálculos doformulário Folha de Pagamento. A solução do formulário funciona apenas registro-a-registro pois exige que ele esteja em execução. Quero poder fazer essa atualização em bloco: todas as folhas de pagamento do mês de abril/2012, por exemplo.

Cada registro da consulta totais qryCalculos calcula os impostos da folha de pagamento do empregado mês-a-mês.

A solução que eu pensei foi criar uma consulta que retorne os registros que devem ser atualizados na tabela tblLancamentos do mês em questão. E em Atualizar Para (consulta atualização), chamar o campo que realiza o calculo na consulta totais qryCalculos.

Essa última parte não consegui fazer.

Obrigado.

boas
se eu percebi bem, tens os dados numa consulta.
fazes um select à consuta e extrais os dados para variaveis, percorrendo o recordset.
e actualizas a tabela.

Código:


Dim vTesteVariavel as string
Dim VId as Long
Dim com As New ADODB.Command
Dim rst As New ADODB.Recordset
com.ActiveConnection = CurrentProject.Connection
com.CommandText = "SELECT *FROM Tabela1;"
com.CommandType = adCmdText: Set rst = com.Execute
With rst
If .BOF And .EOF Then ' se o recordset está fora dos registo
MsgBox ("se quiser que informe que ainda não existe registo com o valor da cx de texto.")
Else
if not .BOF then
.MoveFirst

Do While Not EOF(rst)

vId = rst!ID
vTesteVariavel = rst!nome

vSQL = "UPDATE NomeTabela SET Nome = '" & vTesteVariavel & _
"'ID = " & vId & ";"

.CommandText = vSQL
.Execute
.MoveNext
Loop
End If
end if
End With

Set rst = Nothing
Set com = Nothing


ps: foi feito sem testar mas é +- isto , logo que me seja possivel testo e se tiver erros corrijo.

Primeiro, agradeço muito sua ajuda.

Já aprendi sobre DAO.Recordset, mas confesso que nada sei sobre ADO. Vou tentar adaptar seu procedimento. Eu devo usá-l0 num botão no evento AoClicar?

Um outra dúvida: há alguma possibilidade de que essa atualização dos dados da tabela seja feita a partir dos cálculos efetuados na consulta totais através de uma consulta atualização?

boas

Já aprendi sobre DAO.Recordset, mas confesso que nada sei sobre ADO. Vou tentar adaptar seu procedimento. Eu devo usá-l0 num botão no evento AoClicar?

normalmente é num botão no evento clik, mas pode ser ao abrir o form no evento load, ou num controle no evento lostfocus, este são os mais usados.
se se vir tentado a usar o ado avance que eu o ajudarei.
tem aqui um toturial em vb6 que é praticamente vba pouco muda, alias considero-o o melhor toturial em vb6, e quem se tentar a entrar em ado deve ler.
a melhor apostila em vb6

Um outra dúvida: há alguma possibilidade de que essa atualização dos dados da tabela seja feita a partir dos cálculos efetuados na consulta totais através de uma consulta atualização?

não lhe sei responder, aguarde por feedback ou coloque essa questao noutro post.


ps: editei o post anterior

cumps
acao