[Resolvido]ListBox - Apresentar vários valores e o somatório total baseado em uma consulta

Boa Tarde,

Tenho um listbox no qual quero apresentar os valores armazenados bem cmo o valor total. Esse listbox será apresentado de acordo com um parâmetro passado em um textbox. Como faço isso?

Grato

Veja esta dica abaixo e tente adaptar ao que você deseja:

Ao clicar na ListBox (lstProdutos):

Private Sub lstProdutos_Click()
‘TotItens e Total são os nomes das caixas de texto abaixo da ListBox
Me.TotItens = Me.lstProdutos.ListCount – 1 ‘O método ListCount conta os registros menos 1 que é o registro de índice 0. Me.Total = SomarTotal ‘SomarTotal é a função que realiza o cálculo e nos retorna um valor.
End Sub

‘Exemplo de Função N.º 1
Private Function SomarTotal()
On Error Resume Next
Dim x As Long
Dim soma As Long
soma = 0

‘Looping For .... Next
For x = 1 To Me.lstProdutos.ListCount - 1
soma = soma + Me.lstProdutos.Column(3, x) ‘3ª coluna percorrendo do índice 0 até o último índice menos 1 pega os valores da coluna Quantidade
Next
SomarTotal = soma

End Function

Vou adaptar e testar o código e retorno assim q concluir.

Valeu pela ajuda

Deu certo!

Grato