[Resolvido]Atualizar todos os campos de um formulario continuo

Boa tarde amigos preciso de uma luz.
tenho um form continuo que recebe os dados da tblestoque.

Tbl estoque:
Campos:

Nome ' Nome do Produto
Quantidade " Quantidade de estoque
idProduto "
Saida " Informo no form continuo a quantidade que estou saindo do produto
Volta " Informo a quantidade que voltou do produto
Venda " Calcula a quantidade de venda do produto

Tenho um botão atualizar que ao clicar atualiza a quantidade do estoque (quantidade - venda) e atualiza o estoque. Funciona mais acontece que tenho que selecionar um registro de cada vez e atualizar todos um por um. quero clicar em atualizar e atualizar todos de um só vez.

O bd esta ai para darem uma olhada..

Boa tarde amigos, resolvi meu problema com a ajuda do amigo Assis, e gostaria de agradecer pela ajuda.. adaptei o códio do amigo JPaulo e deu certo.

If MsgBox("Confirma a Actualização dos " & Produto & "" & Chr(13) & "Com a Percentagem " & Format(Texto18, "000% ") & " ? " & Chr(13) & "Preço Venda a Publico ?", vbYesNo + vbQuestion, "Aviso") = vbYes Then

Dim rst As Recordset
Set rst = Me.Recordset
rst.MoveFirst
Do While Not rst.EOF
With rst
.Edit
Me.PVP = Int(((Me.PreçocustoM * Me.Texto18) + Me.PreçocustoM) / 10) * 10
Me.MargemPublico = (Me.PVP - Me.PreçocustoM) / Me.PVP
Me.PVPAntigo = Me.PVP.OldValue
Me.MargemPVPAntiga = Me.MargemPublico.OldValue
.Update
.MoveNext
End With
Loop
Set rst = Nothing
MsgBox "Preço de Venda Público e Margem Terminado", vbQuestion, "Aviso"
DoCmd.Close acForm, "Anibal"
Me.Texto18.SetFocus
Me.Texto18 = 0
Else
Me.Texto18.SetFocus
Me.Texto18 = 0
End If

Veja ai se ajuda em anexo
é so uma ideia

deu uma arrumada e recoloquei ele ai de novo em anexo