I use this to calculate total sum of column in list box:
Private Sub Command13_Click()
Me!List11.Requery
Dim listrs As Integer
Dim listsum As Integer
listrs = Me![List11].ListCount
Do
listsum = listsum + Me![List11].Column(2, x)
x = x + 1
Loop Until x = listrs
Me![suma].Value = listsum
End...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.