[Resolvido]Atualizando calculo de formulário através de VBA

Tenho um formulário com um sub formulário, nesse sub formulário tem um totalizador de valor que serve como base para diversos cálculos no formulário pai.
O problema: quando modifico qualquer valor no sub formulário ele deveria atualizar os campos do formulário pai, só está funcionando quando coloco pontos de interrupção no código abaixo.

Código usado no subformulário para atualizar o form pai:
Private Sub Form_AfterUpdate()
Forms!formInsumoPróprio!CustoReceita = Nz(Me!Totalizador)
Forms!formInsumoPróprio!CustoPorção = Nz(Me!Totalizador / Forms!formInsumoPróprio!QtdePorções)
Forms!formInsumoPróprio!PreçoVenda = Nz(Forms!formInsumoPróprio!CustoPorção * (1 + Forms!formInsumoPróprio!MargemLucro))
End Sub

Alguém sabe como resolver esse problema?

Ola Mauro seja bem vindo ao fórum.

Amigão tente dar um Requery ou um Recalc no final dessa instrução para atualizar de imediato.

Private Sub Form_AfterUpdate()
Forms!formInsumoPróprio!CustoReceita = Nz(Me!Totalizador)
Forms!formInsumoPróprio!CustoPorção = Nz(Me!Totalizador / Forms!formInsumoPróprio!QtdePorções)
Forms!formInsumoPróprio!PreçoVenda = Nz(Forms!formInsumoPróprio!CustoPorção * (1 + Forms!formInsumoPróprio!MargemLucro))
Forms!formInsumoPróprio.Requery
End Sub

Ou

Private Sub Form_AfterUpdate()
Forms!formInsumoPróprio!CustoReceita = Nz(Me!Totalizador)
Forms!formInsumoPróprio!CustoPorção = Nz(Me!Totalizador / Forms!formInsumoPróprio!QtdePorções)
Forms!formInsumoPróprio!PreçoVenda = Nz(Forms!formInsumoPróprio!CustoPorção * (1 + Forms!formInsumoPróprio!MargemLucro))
Forms!formInsumoPróprio.Recalc
End Sub

Oi Paulo,
Obrigado pelas boas vindas e pela solução que funcionou apenas com o Recalc e da seguinte forma:

Private Sub Form_AfterUpdate()
Forms!formInsumoPróprio.Recalc
Forms!formInsumoPróprio!CustoReceita = Nz(Me!Totalizador)
Forms!formInsumoPróprio!CustoPorção = Nz(Me!Totalizador / Forms!formInsumoPróprio!QtdePorções)
Forms!formInsumoPróprio!PreçoVenda = Nz(Forms!formInsumoPróprio!CustoPorção * (1 + Forms!formInsumoPróprio!MargemLucro))
End Sub

Colocando o Recalc no começo.

O único problema que continua tendo é que após usar o Recalc no AfterUpdate do sub formulário ao invés do cursor passar para o próximo registro ele continua no registro que foi atualizado até que seja clicado novamente o enter.

Certo.

E o amigo quer passar para um novo registro ou registro existente ?

No form ou no subform ?

Quando damos um enter no ultimo campo de um registro do sub formulário ele deveria passar automaticamente para o próximo registro ou caso seja o ultimo registro deveria passar para um novo registro.

Certo, mas ele deveria passar automaticamente para o próximo no form ?

Se for só no subform pode utilizar o:

DoCmd.GoToRecord , , acNext

Se for para o form avançar, mande o foco para o form;

Forms!formInsumoPróprio!CustoReceita.SetFocus
DoCmd.GoToRecord , , acNewRec

Funcionou, valeu pelas dicas.

Obrigado pelo retorno o fórum agradece.