Fabio Pradella 30/10/2013, 17:42
Boa Tarde JPaulo,
Muito Obrigado,
Você sempre contribuindo com o povo aqui do Fórum.
Tenho outra duvida mas relacionada a Listbox, se não for oportuno continuar aqui neste tópico abro outro.
Gostaria de fazer a soma também da mesma coluna valor mas de uma listbox, ate peguei um exemplo seu no forum mas não consegui adaptar ao meu form.
Function SomaListBox() As Variant
'By JPaulo ® Maximo Access
Dim I As Integer, J As Integer, ctl As control
Set ctl = Me.Valor
J = ctl.ListCount - 1
SomaListBox = 0
For I = 1 To J
SomaListBox = SomaListBox + ctl.Column(4, I)
Next I
SomaListBox = Format(SomaListBox, "currency")
Me.TxtResultado = SomaListBox
End Function
Fabio Pradella