[Resolvido]Erro de tabulação no formulário com sub-formulário

Fazendo um pedido com vários itens, a tabulação não para no inicio do novo registro (novo), ele "pula" para o primeiro ítem do pedido...
Eu uso um script que vai totalizando os valores no fim de item registrado...

Private Sub Quant_entregue_Exit(Cancel As Integer)
   '-- Alexandre Fim - Forum Maximo Access - 22/09/2022

   Dim vTotal As Double
       vTotal = Format(Nz(DSum("SubTotal", "Vendas", "Número_pedido = " & Me.Número_pedido & ""), 0), "#,##0.#0")
       CurrentDb.Execute ("UPDATE PDVendas SET Valor_Total = '" & vTotal & "' WHERE Número_pedido = " & Me.Número_pedido & "")
End Sub

Se eu não uso ele funciona.
Segue o bd pra ajudar...

Boa noite,
não ficou claro para mim a intensão e quando você ousa ou não o código indicado.

Bom dia, uso (sempre) este código para fazer uma totalização dos sub-totais no sub-formulário e atualizar o valor total do pedido no formulário principal.
Uso ele na saida do último campo do sub-formulário.
O formulário principal (PDVendas) tem o campo "Valor_total", ele atualiza a tabela "PDVendas"
O subformulário (Vendas) tem o campo "SubTotal", ele atualiza a tabela "Vendas"

O que eu preciso é que quando vou lançando as vendas ele atualize o valor total do pedido...

Olá Pedro,

adicione abaixo da linha CurrentDb.Execute...:

Código:

'Salvo o novo registro
DoCmd.RunCommand acCmdSaveRecord
'Atualizo o campo do formulário principal com o valor salvo
Me.Parent.Valor_total.Requery
'Forço o sistema operacional realizar tarefas que estão aguardando
DoEvents
'Adiciono um novo registro
DoCmd.RunCommand acCmdRecordsGoToNew

Veja se funciona e nos retorne, por gentileza.

Olá Marcelo, ficou perfeito, exatamente o que eu precisava, muito obrigado pela ajuda (e pela aula, me ajudou bastante o passo a passo do código).