[Resolvido]Não estou sabendo usar UPDATE com SUM :(

Private Sub SubTotal_Exit(Cancel As Integer)
CurrentDb.Execute ("UPDATE PDVendas SET Valor_Total = " & SUM(SubTotal.Value) & " WHERE Número_pedido = " & Me.Número_pedido & "")
Me.Vendas1.Requery
End Sub

Formulário: PDVendas
Campo: Valor_total
Subformulário: PDVendas1
Campo: SubTotal

Preciso somar os campos de "SubTotal" e colocar esse valor no campo "Valor_total"

Bom dia amigos, resolvi parcialmente criando uma soma no rodapé do formulário e depois usando o código:

Private Sub Total_geral_Click()
Form_Vendas!Valor_total.Value = Form_Vendas1!Total_geral
End Sub


Daí ele trasfere o total quando clico no valor, mas eu gostaria que o programa fizesse isso automaticamente, à medida em que for somando já vai atualizando no formulário principal...

tentei mas não consegui, não entendi a logica ainda... (burro)

Agora depois de muito tempo descobri o que estava atrapalhando era a última linha "Me.Vendas.Requery" apaguei e funcionou, antes ficava dando erro de compilação...

Obrigado pela importante ajuda Alexandre Fim, sempre me dando uma força, valeu mesmo...

O código enviado pelo Alexandre Fim solucionou meu problema...