[Resolvido]Somar Colunas na Caixa de Listagem

Pessoal,

Alguém pode me ajudar a criar um campo com a Soma Total de Colunas de uma caixa de Listagem.


Exemplo:  Tenho na Coluna 1 da listagem os valores em débitos e tenho na Coluna 2 da listagem os Valores em Créditos, quero no fim do formulário que haja um campo apontando o valor total de cada coluna.


Como Faço?


Aguardo,


Leonardo

Tente aplicar
Private Sub Form_Current()

Dim I,Soma as double

soma=0
For I = 0 To SuaCaixaDeListagem.ListCount - 1
If Val(SuaCaixaDeListagem.Column(2, I))>0 Then soma=soma+ Val(SuaCaixaDeListagem.Column(2, I))
Next
SeuCampo= soma

End Sub

Trocar "SuaCaixaDeListagem" pelo nome da sua caixa de listagem

"SeuCampo" é o campo que vai receber a soma da coluna nº 2

Resolveu ?

Obrigado

João Leonardo

Obrigado pelo retorno.

Esteve de férias. Demorou a responder rsrsrsrs

Quero aqui agradecer ao Assis mais não só a ele mais a todos que fazem com que o conhecimento não os torne diferentes mais iguais assim passando para que tudo aqueles que tenha interesse de aprender
Eu estava com um problema onde não conseguia filtrar pelo nome do mês e fazer a soma do campo ValorLanc de uma consulta somava tudo mas ao ser filtrado não fazia a soma entram resolvi fazendo a soma na caixa de combinação
Obs: somei os campos das três Caixas de combinação com o código cada uma com resultado em uma Textbox do nosso amigo Assis valeu forte abraço todos

Obrigado Ronaldo

Isso é que foi procurar ...... ano 2015, mas aí tem créditos de JPaulo.

Então fica aqui meus agradecimentos ao Assis e ao nosso Amigo JPaulo