Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Sum of column in list box
- Thread starter knighty03
- Start date
Put this in your FormCurrent() event:
Dim ctlList
Dim MySum as Long ' Or Double
Set ctlList=Me.YourListBox
MySum=0
For Each Lmnt In ctList.Columns(YourColumnIndex
MySum=MySum + CLng(ctlList.Columns(Lmnt))
Next
Me.YourUnboundSumField=MySum
This should do it.
Best wishes,
MakeItSo
Andreas Galambos
EDP / Technical Support Specialist
Bowne Global Solutions Wuppertal, Germany
(andreas.galambos@bowneglobal.de)
HP:
Dim ctlList
Dim MySum as Long ' Or Double
Set ctlList=Me.YourListBox
MySum=0
For Each Lmnt In ctList.Columns(YourColumnIndex
MySum=MySum + CLng(ctlList.Columns(Lmnt))
Next
Me.YourUnboundSumField=MySum
This should do it.
Best wishes,
MakeItSo
Andreas Galambos
EDP / Technical Support Specialist
Bowne Global Solutions Wuppertal, Germany
(andreas.galambos@bowneglobal.de)
HP:
- Status
Similar threads
- Question
- Locked
- Question
- Locked
- Question
- Locked
- Question