[Resolvido]Como somar colunas numa listbox

Boa tarde!

Sou iniciante no fórum e no Acces e preciso de uma ajuda. Parece simples mas pra mim está bem dificil resolver. Talvez até por não ter muito conhecimento do aplicativo.

Preciso somar os valores das colunas de uma listbox. Criei filtros utilizando caixa de texto que está funcionando da forma que eu gostaria , porém eu preciso que a soma dos valores das colunas apareça na listbox (ou numa caixa de texto), mesmo que eu faça o filtro e que saia no relatório quando eu solicitar a impressão.

São 5 colunas: Mês da Venda - Vendedor - Tipo de Material - Valor da Venda - Valor da Compra -

Eu preciso que a total apareça nas colunas Valor da Venda e Valor da Compra mesmo quando eu utilize o filtro para saber dentro do mês quanto foi vendido ou pelo Vendedor, quanto foi vendido.

Não sei se fui claro o suficiente. Fico no aguardo.


Leandro Mogi Mirim SP

Tente desta forma, amigo.

Código:

Private Sub btSoma_Click()

Dim i As Integer
Dim vrVenda As Double
Dim vrCompra As Double

'Percorro o listbox em busca dos valores a serem somados
For i = 0 To Me.ListaSoma.ListCount - 1
    'A variável i é para identificar a linha onde contém o valor
    'Os números 1 e dois incluídos na propriedade Column é para identificar a coluna onde tem o valor
    vrVenda = vrVenda + Me.ListaSoma.Column(1, i)
    vrCompra = vrCompra + Me.ListaSoma.Column(2, i)
Next

Me.vrVenda = FormatCurrency(vrVenda, 2)
Me.vrCompra = FormatCurrency(vrCompra, 2)

End Sub

Boa noite Julio

Valeu cara !!!! Show de bola.
Fiz alguns ajustes mas deu certo!!! funcionou diretinho !!! Como eu precisava....

Muito obrigado....


com certeza vou ter mais duvidas pra colocar aqui no forum... só estou começando meu projeto...

Abraços

Se a duvida foi solucionada, por favor marque o tópico como resolvido:

Veja como Fazer