[Resolvido]Formulário de vendas

Estou com o seguinte problema.
Fiz o formulário de vendas vinculado com um subformulário detalhe de vendas onde estão os produtos
Para baixa no estoque fiz como o nosso amigo JPaulo indicou
CurrentDb.Execute "UPDATE TblCadProduto Set [TblCadProduto].[QuantCad] = [TblCadProduto].[QuantCad] - " & Val(Me!QuantidadeDetail) & " WHERE [TblCadProduto].[Código] = " & Me!ProdutoDetail & ""

Havia a necessidade de chegar a quantidade no estoque então usei a função DSum() para checar a quantidade, depois inclui uma mensagem e se caso o estoque fosse insuficiente e então o foco voltava para o ultimo campo dde quantidade.

Para somar os valores fiz no rodapé do subformulário um campo calculado com "=soma(campo)", no formulário de vendas fiz
um campo que funciona como um espelho do campo que está no rodape do subformulário.

Pois bem quando executo o códito ele baixa normal se a caso o estoque for insuficiente ele avisa e volta para o campo quantidade, mas o campo onde tenho o total da venda desaparece o valor, alguem sabe o porque?

Tente utilizar o Me.Recalc

Ta doce, até vou tomar uma dose de insulina porque ficou muito doce
Obrigado JPaulo, um abraço

Obrigado pelo retrono o forum agradece.