Function fncSomaListBox(lst As Access.ListBox, intColuna As Integer) As Double
'By JPaulo ® Maximo Access Outubro/2013
'Função soma listbox numa caixa de texto no seu formulário
Dim intLinha As Long
Dim intTotal As Double
'Inicia soma com valor zero
intTotal = 0
'Percorre linha a linha na sua lista
With lst
For intLinha = Abs(.ColumnHeads) To (.ListCount - 1)
intTotal = intTotal + Val(.Column(intColuna, intLinha))
Next intLinha
End With
'Insere a soma total na função
fncSomaListBox = intTotal
End Function
Chamar a função por VBA;
'3 é numero da coluna na sua lista, onde se encontra o valor a somar
'As listas iniciam pela coluna zero (0)
Me.SuaCaixaTexto.Value = fncSomaListBox(Me.SuaListBox, 3)
'Se for na origem da SuaCaixaTexto
= fncSomaListBox(SuaListBox; 3)