UserForm: Sum the values in Textboxes

Question

Hello.  I'm running into a problem trying to add four numeric values from TextBoxes in a UserForm.  This is what I'm trying to use:

SUMTOT = Controls("TextBox1").Value + Controls("TextBox2").Value + Controls("TextBox3").Value + Controls("TextBox4").Value

If the four values are 10, 5, 10 and 5 the result is a concatenated string:  105105.

I also tried it without the "Controls", parentheses and double quotes but it gave me an error.

Can someone please tell me how to correct this so that the result will be 30?

Thanks.

Answer 1

The text boxes are returning strings so need data type conversion

SUMTOT = clng(Controls("TextBox1").Value) + clng(Controls("TextBox2").Value) etc

I believe you only need to using CLng on one of the TextBoxes as opposed to all of them... I think once one value is a real number, then addition (instead of concatenation) will take place automatically if the other text values are numeric characters.

---

NOTE: Please mark the message or messages (yes, you can mark more than one) that answer your question as the "Answer" so that others will know your question has been resolved.

Answer 2

Hi,

The text boxes are returning strings so need data type conversion

SUMTOT = clng(Controls("TextBox1").Value) + clng(Controls("TextBox2").Value) etc

---

If this post answers your question, please mark it as the Answer.

Mike H

Answer 3

try

If IsNumeric(Me.TextBox1.Value) _

 And IsNumeric(Me.extBox2.Value) _

 And IsNumeric(Me.TextBox3.Value) _

 And IsNumeric(Me.TextBox4.Value) Then

Me.TxtTotalRe.Value = CDbl(Me.TextBox1.Value) _

                               + CDbl(Me.extBox2.Value) _

                               + CDbl(Me.TextBox3.Value) _

                               + CDbl(Me.TextBox4.Value)

end if