View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Mark[_18_] Mark[_18_] is offline
external usenet poster
 
Posts: 1
Default Sum textboxes in a collection

Any help for a newbie would be appreciated. I'm trying to sum several
texbox inputs on a form and display the result in a "totals" textbox on the
same form. The textboxes are part of a collection.

The following code concatenates the values in the textbox inputs rather than
adding the values:
Global declarations:
Dim textBoxes as New Collection
Dim textboxNames() as String

Private Sub txtCash_AfterUpdate()

'update total allocation
AllocationTotal

End Sub


Sub AllocationTotal()
Dim i As Integer
Dim fieldVal, boxSum As Variant

txtTotalAllocation.Value = 0

For i = 2 To (totalFields - 1)

fieldVal = textBoxes(textboxNames(i - 1)).Text
boxSum = boxSum + fieldVal

Next 'i

txtTotalAllocation.Value = boxSum

End Sub

How can I change this code so that the values in each textbox are summed
instead of concatenated?

Thanks in advance,
Mark