[Resolvido]Botão Atualizar só atualiza o 1º Registro (VBA)

Boa Tarde Pessoal!!
Estou com um projeto de orçamento que tem o seguinte objetivo:
Colocar o Total do Preço de Venda no formulário Principal e esse Total ser distribuído no Preço de Venda Unitário de cada Produto do formulário continuo

Tentei Criar um botão para Atualizar todos os registros, Mas ele só Atualiza o 1º Registro do Formulário Continuo
Tenho Pouco conhecimento em VBA, o pouco que aprendi foi com o pessoal aqui do Fórum

segue anexo o BD para melhor Resolução do Problema.

Amigo, nao entendi bem como é feito para chegar ao Valor XXXX para ser inserido no Campo...


Porem partindo da Ideia que vc ja colocou la, segue o Codigo que percorre todos os os registros do Formulario e atualiza o Campo da tabela.


Private Sub btAtualizaPreco_Click()
On Error Resume Next


Dim rs As Recordset
Set rs = Me.Recordset
rs.MoveFirst
Do While Not rs.EOF
With rs
CurrentDb.Execute "UPDATE tabOrcamentosDet SET cpPrecoVenda = " & Me.txtPrecoUnitVenda & " WHERE CodOrcamento= '" & Forms![frmOrcamentos2]![txtIdOrcamento] & "' AND CodProduto = '" & Me.CodProduto & "'"
rs.MoveNext
Me.Recalc
End With
Loop
Set rs = Nothing

End Sub




Se não der certo, ajuste o Calulo do preço, pois a parte de percorrer os registros do formulario é dessa forma!

Deu Certo Muito Obrigado!!

Grato pelo retorno! Até a Próxima se Deus quiser!