[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...

Olá Pedro,

Para ficar mais fácil e rápido, por gentileza compartilhe uma cópia do seu bd para análise e solução do problema.

Grato

Att,

Alexandre Fim

Você pode buscar a soma dos pedidos na tabela de Detalhes do Pedido (Acredito que deve ter uma), desta forma:

Código:



Private Sub SubTotal_Exit(Cancel As Integer)
Dim vTotal As Double

    vTotal = Format(Nz(DSum("[Campo_Valor]", "[Nome_da_Tabela_Detalhe_Venda]", "[CAMPO_NRO_PEDIDO] = " & Me.Número_pedido & ""), 0), "#,##0.#0")
   
    CurrentDb.Execute ("UPDATE PDVendas SET Valor_Total = '" & vTotal & "' WHERE Número_pedido = " & Me.Número_pedido & "")
   
    Me.Vendas1.Requery

End Sub



Substitua os campos em COLCHETES pelos respectivos nomes

Espero ter ajudado

Att,

Alexandre Fim

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...

Valeu, meu caro!!!
O fórum agradece.
Sucesso !!!