[Resolvido]Atualizar campos do Subform automaticamente

Olá

Tenho um formulário (Orcamento) com um subformulário (Orcamento_Sub)
No formulario tenho um campo chamado fator, no subformulario tem um campo chamado VL_Orcado, que é resultado do campo Valor_Compra*Fator (Tem um evento apos atualizar no campo valor_compra)
Depois que o orçamento está todo preenchido, se eu quiser alterar o campo Fator, terei que passar por todos os registros, para atualizar o campo calculado VL_Orcado.
Gostaria que quando fosse alterado o fator, atualizasse todos os registros do subformulario.

Se sugerirem um loop, por favor coloquem um exemplo

Obrigado

att
André

Olá Avelino

Era exatamente o que eu queria. Só um detalhe, só funciona na primeira alteração do fator, se faço nova alteração, não atualiza nada.
Se eu fechar o formulario e abrir novamente funciona, tentei colocar depois do evento do loop, um repaint ou refresh, mas nao funcionou
Pode me sugerir algo?

Outra coisa, quero que atualize 2 campos, o que já mencionamos e outro, como ficaria o código?
rs!VL_Orc_Total = rs!VL_Compra_Un * Me!Fator*Quant

Aguardo

Att
André

Bom dia Avelino

Funcionou certinho, estou colocando abaixo como ficou, acrescentei um tratamento de erro, pois estava dando erro de truncar valores.
Muito obrigado pela ajuda.

Dim rs As DAO.Recordset
Set rs = Me!Orcamento_Materiais_sub.Form.RecordsetClone
On Error Resume Next
rs.MoveFirst
Do While Not rs.EOF
rs.Edit
rs!VL_Orc_Un = rs!VL_Compra_Un * Me!Fator
rs!VL_Orc_Total = rs!VL_Compra_Un * Me!Fator * rs!Quant
rs.Update
rs.MoveNext
Loop
rs.Close
Set rs = Nothing