[Resolvido]Soma dentro da caixa Listagem

Tenho uma Form com uma Caixa de listagem contendo todas as vendas feitas. Coloquei um filtro na caixa de texto PEsquisa, onde e pesquisado a venda individual por cliente. Dentro da caixa de listagem e listado todas as vendas de todos os clientes, porem conforme digitado o nome do cliente especifico, aparece somente as vendas deste cliente. Agora queria fazer a sma apenas dos produtos que estao aparecendo na caixa de listagem neste caso so deste cliente. Queria que essa soma ficasse por fora da caixa de listagem. Como devo fazer isso ?

Grato

Pode usar a função DSoma("[SeuCampoSomaR]";"nomesuatabela";"CritériosPesquisa")
Exemplo :
"https://support.office.com/pt-pt/article/fun%C3%A7%C3%A3o-dsoma-08f8450e-3bf6-45e2-936f-386056e61a32"[url=https:

https://servimg.com%0A%0A/view/19663861/21][/url]


Note que o primeiro campo seria sua Caixa de Combinação o Segundo somente uma referencia só para extrair o valor da caixa de combinação e o terceiro é para fazer a soma

bom dia, nao entendi muito bem.
Eu preciso colocar a soma nesta caixa fora da caixa de listagem
Nome Formulario=A11_Historico
Nome caixa= Lista0
quero somar a coluna 9 da caixa de listagem em Me.Soma.value que esta fora da caixa de listagem

Pesquisando aqui mesmo no forum achei algo que serviu quase 100%, mas preciso que conforme a caixa de pesquisa va se atualizando, a caixa Me.TxtTotal atualize tb os valores totais.

Achei aqui : https://www.maximoaccess.com/t22748-resolvidosomar-colunas-na-caixa-de-listagem

Por exemplo , se na caixa de listagem houver 2 clientes Alexandre, sendo um Alexandre Moorais e o outro Alexandre Neves, caso eu digitar somente Alexandre, na caixa txtTotal ira aparecer todas as vendas dos 2 Alexandres, porem se eu digitar Alexandre Neves, entao ira aparecer somente as vendas deste cliente.

Isso ate acontece se eu escrever o nome completo do cliente e recolocar o Form em modo Design, dai quando coloco novamente em modo de Exibição, a soma ocorre somente no cliente descrito na caixa de pesquisa.

Código:



Private Sub Form_Current()

Dim I, Soma As Double

Soma = 0
For I = 0 To Lista0.ListCount - 1
If Val(Lista0.Column(9, I)) > 0 Then Soma = Soma + Val(Lista0.Column(9, I))
Next
Me.txttotal = Soma

End Sub



consegui aqui, coloquei todo o codigo em outro lugar.

Código:



Private Sub txtPesquisa_AfterUpdate()
Me.Lista0.Requery

Dim I, Soma As Double

Soma = 0
For I = 0 To Lista0.ListCount - 1
If Val(Lista0.Column(9, I)) > 0 Then Soma = Soma + Val(Lista0.Column(9, I))
Next
Me.txttotal = Soma


End Sub