[Resolvido]Actulizar tabela com dados do subformulário

Boa noite,

Tenho alguma dificuldade em construir instruções no VBA quando se trata de subformulários. Preciso da vossa ajuda, é que já procurei tópicos relacionados e não encontro.

Tenho um fomulario com campos desvinculados (CodObra; CodOrcamento; Periodo) apos um evento abre o subformulário (SUBCCSLtblPrevAvançoFamilia) filtrado que está vinculado a uma consulta com os campos (CodObra; CodOrcamento;CodNatureza;SomaDeSomaDeTCustoRecPrev). "Corre tudo bem"

O Que pretendo é actualizar na tabela tblNatureza o campo (CustoTotal) com o valor do campo (SomaDeSomaDeTCustoRecPrev) do subformulário quando os CodNatureza forem iguais, com a seguinte instrução:

CurrentDb.Execute "UPDATE tblNatureza set CustoTotal= [forms]![SUBCCSLtblPrevAvançoFamilia].[SomaDeSomaDeTCustoRecPrev] WHERE [CodNatureza] = [forms]![SUBCCSLtblPrevAvançoFamilia].[CodNatureza]"

Dá o seguinte erro: Poucos Parâmetros: 2 esperado

Coloque:

CurrentDb.Execute "UPDATE tblNatureza set CustoTotal= " & [forms]![SUBCCSLtblPrevAvançoFamilia].[SomaDeSomaDeTCustoRecPrev] & " WHERE [CodNatureza] = " & [forms]![SUBCCSLtblPrevAvançoFamilia].[CodNatureza] & ""


Agora ... se esta instrução for aplicado no próprio formulário não necessita fazer referencia ao nome do mesmo:


CurrentDb.Execute "UPDATE tblNatureza set CustoTotal= " & Me.SomaDeSomaDeTCustoRecPrev & " WHERE [CodNatureza] = " & CodNatureza & ""


Cumprimentos.

Bom dia, carríssimo PILOTO

Agradeço desde já a sua ajuda contudo, não funcionou, agora recebo a mensagem de que o access não consegue localizar o fomulário:SUBCCSLtblPrevAvançoFamilia. (Correcção)
Talvez não passei a informação de forma correcta, é que o formulário principal é (CONSULTA) que tem O subformulário (SUBCCSLtblPrevAvançoFamilia) de onde pretendo tirar a informação do campo [SomaDeSomaDeTCustoRecPrev] para actualizar o campo [CustoTotal] da tabela tblNatureza. O botão que tem o evento "ao fazer clique" está no formulário (CONSULTA)

Já Consegui esolver o problema do erro, com a seguinte instrução:
CurrentDb.Execute "UPDATE tblNatureza set [CustoTotal]=" & Replace([Forms]![CONSULTAS]![SUBCCSLtblPrevAvançoFamilia]![SomaDeSomaDeTCustoRecPrev], ",", ".") & " WHERE [CodNatureza] = " & [Forms]![CONSULTAS]![SUBCCSLtblPrevAvançoFamilia]![CodNatureza] & ""

Tenho outro problema que preciso da vossa ajuda:

No subformulário (SUBCCSLtblPrevAvançoFamilia) tenho varios regitros (CodNatureza e SomaDeSomaDeTCustoRecPrev), o que pretendo é que no evento ele actualiza na tabela tblNatureza o campo (CustoTotal) = SomaDeSomaDeTCustoRecPrev quando o Registro for igual ao CodNatureza na tabela tblNatureza, e está a fazer, só que um por um, por exemplo dos 7 registro no subformulario tenho que selecionar 1 por 1 e clicar no botão para o evento e isto não é funcional o que pretendo é que no evento faça para todos os registros

Nová dúvida... Novo Tópico... desta forma manteremos a integridade do Fórum que é por assunto.

Clique no botão de Resolvido, Caso alguma das mensagens o tenha auxiliado clique no Joinha da mensagem que o auxiliou.
Abra o novo tópico para a outra dúvida.


Cumprimentos.