Add the values of TextBoxes

P

Patrick C. Simonds

I am attempting to add these TextBox Values and place the results into
TextBox503 but am having no luck. It will place the value of TextBox1 into
TextBox503 but will not add the values in the other TextBoxes.



Private Sub TextBox1_Change()

TextBox503.Value = CDbl("0" & TextBox1.Value) + CDbl("0" & TextBox2.Value) +
CDbl("0" & TextBox3.Value)
TextBox503.Text = Format(TextBox1.Text, "0.0000")

End Sub
 
R

Rick Rothstein

It does that because you used TextBox1 as the argument for the Format
function call instead of TextBox503. This is what you want...

TextBox503.Text = Format(TextBox503.Text, "0.0000")
 
H

Harald Staff

Apologies for disagreeing, I'd do this:

Private Sub TextBox1_Change()
Call Sum503
End Sub

Private Sub TextBox2_Change()
Call Sum503
End Sub

Private Sub TextBox3_Change()
Call Sum503
End Sub

Private Sub Sum503()
Dim DD As Double
DD = Val(TextBox1.Value) + Val(TextBox2.Value) + Val(TextBox3.Value)
TextBox503.Text = Format(DD, "0.0000")
End Sub

Best wishes Harald
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top