Avelino Sampaio- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3900
Registrado : 04/04/2010
Avelino Sampaio 27/1/2014, 18:53
Olá, Reginaldo!
Monte a função abaixo, no VBA do seu formulário:
Private sub fncSomaValorLista()
Dim j%
Dim soma As Double
For j = 0 To Me!NomeCampoLista.ListCount - 1
soma = soma + Me!NomeCampoLista.Column(3, j)
Next
Me!NomeCampoValor = soma
End sub
Depois basta utilizar a função nos eventos que necessitar
Call fncSomaValorLista
Sucesso!
.................................................................................
Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces
Clique AQUI e analise o custo beneficio do material oferecido.