[RESOLVED] Add all TextBox text to get sum

[Tommy2007]

I have 13 TextBoxs aligned in a column, txtNetWeight(0) - txtNetWeight(12), yes they are indexed.
As each one loses focus I want to add all the ones before it to get a sum. Then put that sum into a TextBox named txtGrossWeight, not indexed.

I have this;

Private Sub txtNetWeight_LostFocus(Index As Integer)
    
    Dim lngSum As Long
    Dim lngAdd1 As Long
    Dim lngAdd2 As Long
    
    If txtNetWeight(Index) = "" Then
        txtNetWeight(Index) = "0"
    End If
    
    For X = txtNetWeight.LBound To txtNetWeight.UBound
        If txtNetWeight(X) <> "" Then
            If X = 0 Then
                txtGrossWeight = txtNetWeight(0)
                lngSum = txtNetWeight(0)
            Else
                lngAdd1 = txtNetWeight(X)
                lngAdd2 = lngSum
                lngSum = lngAdd1 + lngAdd2
                txtGrossWeight = lngSum
            End If
        End If
    Next X
    
End Sub

That works but is ugly and I am sure it can be done easier. Anyone have an idea.

Thanks,
Tommy

[Mark Gambo]

How About

Dim a as Long
 
For a = txtNetWeight.LBound to Index
     txtGrossWeight.Text = cLng(txtGrossWeight.Text) + cLng(txtNetWeight.Item(Index).Text)
Next a

[Tommy2007]

Thanks for the fast reply.

I get a "Type Mismatch" error

--------------------------------

If I add a 0 in the txtGrossWeight textbox then I don't get the error but your code is coming up with some weird sums

[RhinoBull]

I would also check if current value is numeric:

Dim i As Integer

txtGrossWeight.Text = 0

For i = txtNetWeight.LBound to txtNetWeight.UBound
    If IsNumeric(txtNetWeight(i).Text) Then
        txtGrossWeight.Text = CLng(txtGrossWeight.Text) + CLng(txtNetWeight(i).Text))
    End If
Next i

NOTE: you may want to use Format() function or FormatNumber so you would have some fixed number of decimals.

[Tommy2007]

Ok something is not right here;
If I put a 1 in txtNetWeight(0) & txtNetWeight(1) & txtNetWeight(2) & txtNetWeight(3) & click in txtNetWeight(4) I get a sum of 10 in txtGrossWeight.

[Tommy2007]

NOTE: you may want to use Format() function or FormatNumber so you would have some fixed number of decimals.

No format needed will always be whole number

[RhinoBull]

Ok, that is really up to you.

[Tommy2007]

Ok if I put a "1" in txtNetWeight(0) then click in txtNetWeight(1) I get "1" in txtGrossWeight. Here is where it gets weird. If now click in any of the txtNetWeight it adds "1" to txtGrossWeight, even if txtNetWeight is empty.

If I put a "2" in txtNetWeight(0) then click in txtNetWeight(1) I get "2" in txtGrossWeight. Here is where it gets weird. If now click in any of the txtNetWeight it adds "2" to txtGrossWeight, even if txtNetWeight is empty.

[RhinoBull]

You need to clear your gross text first - I edited post #4.

[Tommy2007]

Yes I got that.
But this is not working;

txtGrossWeight.Text = CLng(txtGrossWeight.Text) + CLng(txtNetWeight(i).Text)

It is adding txtGrossWeight to itself so it is doubling every time txtNetWeight_LostFocus

I am getting there. Thanks for your help. But still a little problem. I have this now;

Dim i As Integer

    For i = txtNetWeight.LBound To txtNetWeight.UBound
        If IsNumeric(txtNetWeight(i).Text) Then
            If i = 0 Then
                txtGrossWeight.Text = CLng(txtNetWeight(i).Text)
            Else
                txtGrossWeight.Text = CLng(txtNetWeight(i - 1).Text) + CLng(txtNetWeight(i).Text)
            End If
        End If
    Next i

But that only adds the one before txtNetWeight(i) not all.

[MarkT]

Here's my quick stab at it

Dim i As Integer
Dim lngTotal As Long
    
    lngTotal = 0
    
    For i = txtNetWeight.LBound To txtNetWeight.UBound
        If IsNumeric(txtNetWeight(i).Text) Then
            lngTotal = lngTotal  + CLng(txtNetWeight(i).Text)
        End If
    Next i
    
    txtGrossWeight.Text = lngTotal

[RhinoBull]

But that only adds the one before txtNetWeight(i) not all.

Can you just copy and run sample code from post #4?

[Tommy2007]

You need to clear your gross text first - I edited post #4.

That worked. THANKS!

I know you said that but I thought you meant to stop the "Type Mismatch" error. So I was just manually putting a "0" in txtGrossWeight at run time then trying to put numbers in txtNetWeight and see what happen. Now that I see what you are doing I get it now.

[RhinoBull]

I'm glad you sorted it out.