[RESOLVED] How to Calculate Textbox value

[Plucky]

Salutations;
I have 5 texboxex on my form, i want to calculage the numeric value in side these boxes, and the total must appear in the textbox 6.
Using Access and VB6

Simple question, reply soon.
thanx in advance

[Hack]

Text6.Text = Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text) + Val(Text4.Text) + Val(Text5.Text)

[Plucky]

My Dear Hack,
It is not working, i know the code you wrote is OK, but it not working, i am using already this code, take a look, but it is not working plz help.

Code on ****text1.text****

Private Sub text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
text2.SetFocus
End If
Select Case KeyAscii
Case 48 To 57, 46, 8
'do nothing
Case Else
KeyAscii = 0
End Select
End Sub
**************** this is code is same on rest of 4 text boxes.
After entering value in each text box i need the sum ov values in textbox 6, as i Questioned before.

and in ********** textbox 6 i write this code...


Private Sub text6_Change()
text6.Text = Val(text1.Text) + Val(text2.Text) + Val(text3.Text) + Val(text4.Text)
End Sub

But it is not working.. plz help,

[Hack]

Why are you putting it in the Keypress event of text1 as opposed to the click event of a command button?

What does "its not working" mean? What is happening?

[Plucky]

Mr. Hack , plz check it again, i write it in explain..

[Hack]

This

Private Sub text6_Change()
text6.Text = Val(text1.Text) + Val(text2.Text) + Val(text3.Text) + Val(text4.Text)
End Sub

is never ever going to get executed unless you type something into Text6. Actually entering something into a textbox is the ONLY way the Change event ever fires.

So, again, I ask, why not put that code in a command button's click event, and after everything is entered into all five textboxes, click the button and get the total?

[whythetorment]

Plucky why you putting this:
text6.Text = Val(text1.Text) + Val(text2.Text) + Val(text3.Text) + Val(text4.Text)

in the text6_change event?

[abhijit]

Why have you posted this question twice?

So you want to calculate as the user types. In that case you need to write code in the change event for each text box.
Call a function in the textbox change event.
In the function write the adding up code that Hack has posted.

[Plucky]

Sir, Whythetorment
Becuase i need total of values those i entered in text1.text, text2.text...... text5.text text6.text,

Is it wrong mathod?

[Plucky]

Mr. Abhijit,
sorry, i don't know how to write function

[abhijit]

Plucky,
Its not right. You will have to place the code in the change event of the other text boxes. Thats when its going to work.

[whythetorment]

yes but like hack said its not going to work like that unless you type in text6. place the code in the text1_change, text2_change, etc.

public sub text1_change()
text6.Text = Val(text1.Text) + Val(text2.Text) + Val(text3.Text) + Val(text4.Text)
end sub

[Plucky]

Mr. Hack, thank you very much, its working now..
i just put keypress in text6, now it is working..
Thanx again you are all great..

[Hack]

Mr. Hack, thank you very much, its working now..
i just put keypress in text6, now it is working..
Thanx again you are all great..

You never did say why you aren't putting the calculation in command button's click event instead of each textbox's change event, but I'm guessing that you want Text6 to reflect a running total of the other 5 box's input. Is that right?

By the way, if this is resolved, please pull down the Thread Tools menu and click the Mark Thread Resolved button. That will let everyone know that you have your answer.

Thank you.