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

Sum textboxes in a collection
 

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

txtTotalAllocation.Value = 0

For i = 2 To (totalFields - 1)

fieldVal = textBoxes(textboxNames(i - 1)).Text
if isnumeric(fieldVal) then
boxSum = boxSum + cdbl(fieldVal)
end if

Next 'i

txtTotalAllocation.Value = Format(boxSum,"#.00")

End Sub

If they will be integers, then change Double to Long, cdbl to clng
Format to Format(boxSum,"0")

--
Regards,
Tom Ogilvy


Mark wrote in message
...
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