Scandinavo...
Muito boa sua solução...
Agora dá pra automatizar.
Fiz uma pequena alteração no evento ao clicar do botão recalcular,
E também bloqueio todo o form pra edição, as informações virão somente da tabela tblMovimento.
Assim posso recalcular tudo num clique com senha ou ao abrir o form, desde que eu insira o estoque inicial e o valor inicial.
--------------------------------------------------------------
Private Sub btRecalcular_Click()
'Percorre todo o formulario refazendo os calculos
'Poderia usar o selct case mas não testei
'os campos iniciais sao editaveis altere os valores e veja o resultado
'Voce poderia por Campos desacoplados para pegar estes valores
'Tambem poderia alimentar este formulario com os dados da consulta filtrada por dada
'pois não precisa ser do inicio do estoque e sim do lançamento que voce quer corrigir
'que a partir do primeiro registro do formulario todos os outros posteriores serão editados
'simples não........
Dim NEstoque As Integer 'quantidade em estoque
Dim PrUntEstoque As Currency 'preço unitario no estoque
Dim rst As Recordset
Set rst = Me.Recordset
rst.MoveFirst
Do While Not rst.EOF
With rst
'Para inicio de lançamentos os dados são inseridos atraves de uma inputbox
If Me.cmbOperacao = "EstoqInicial" Then
NEstoque = InputBox("Qual seu estoque inicial:", "Atençao")
PrUntEstoque = InputBox("Qual o preço unitario do seu estoque:", "Atençao")
Me.QntEstoque = NEstoque 'Pega a quantidade da variavel
Me.PrecoUntEstoque = PrUntEstoque 'Pega o preço medio da variavel
Me.ValorEstoque = Me.QntEstoque * Me.PrecoUntEstoque 'Calcula o valor do estoque
'Atualiza os dados do formulario com os valores atuais
Forms![frmProduto].[Estoque] = Me.QntEstoque 'Estoque
Forms![frmProduto].[MPM] = Me.PrecoUntEstoque 'Preço unitario
Forms![frmProduto].[ValorDoEstoque] = Me.ValorEstoque 'Valor do estoque
'Me.QntEstoque = Forms![frmProduto].[Estoque] 'Pega a quantidade da variavel
'Me.PrecoUntEstoque = Forms![frmProduto].[MPM] 'Pega o preço medio da variavel
'Me.ValorEstoque = Me.QntEstoque * Me.PrecoUntEstoque 'Calcula o valor do estoque
Else
.
.
.
.
--------------------------------------------------------------------
Agradeço muito pela ajuda,
Assim que adaptar seu código ao meu projeto te envio cópia.