[Resolvido]Somar valores de uma caixa de listagem

Boa noite a todos.

Tenho um formulário e nele tenho uma caixa de listagem contendo um campo chamado valor e gostaria que no meu formulário em um campo texto desacoplado eu conseguise o total dos valores = soma de todos os valores em registro.

Qual a origem dos dados?

uma Consulta

Essa consulta tem algum critério? Caso não tenha, tente:
Em um campo não acoplado:
=DSoma("Valor";"NomeTabelaOrigemConsulta")


Caso a consulta tenha algum critério:

Em um campo não acoplado:
=DSoma("Valor";"NomeConsulta")

Troque o que estiver em vermelho pelos seus controles. O campo valor, seria interessante você alterar para outro nome, por exemplo vl, pois acho(não tenho certeza) que "Valor" é uma palavra reservada...

caso eu queira fazer essa soma por periodo de mês.

Tenho neste listBox o campo valor e dadas, sendo gostaria de somar todos os valores de um mês

Aí ja muda...
Isso seria interessante em um relatório...
Para o que você informou no tópico, os métodos acima funcionam...

Marcelo o código acima funcionou.

porem vou tentar buscar informação por mês através de um criterio.

Valeu Marcelo, obrigado

Ok, para dúvida desde tópico acho que já foi resolvida, agora é melhor outo tópico para a outra dúvida...
(Ficará mais claro para quem for pesquisar)...

Ok mas uma vez, obrigado Marcelo.

Grato pelo retorno, no próximo tópico, estaremos vendo...

Marcelo a soma de um campo do listBox ficou assim:

On Error Resume Next
Dim x
Dim soma
soma = 0
For X = 1 To Me.Lista.ListCount - 1
soma = soma + Me.lista.Column(4, X)
Next
Me.SubTotal = soma

O tópico foi resolvido comforme mostro acima.

Onde coloco esse código João afonso?