How to sum up?

[skywalker01]

hello there
i created form in which we enter the hours employee work in each session in a day, now i want to calc the sum of all the values entered in each text box automatically..i dont want to use any command button to calc sum.
for eg:
Employee nameanny
on base : 4
On Fleet : 5
total hrs : 9

this is how my form will look like

[opus]

if you want the textbox holding the total hrs to show the sum automatically you need to code each textbox holding entries (except the one holding the total hrs) to do the addition after the entry has changed. I'd suggest to use the _Lostfocus Event to hold the code.

[MarMan]

opus is correct. Another event you can try is _TextChanged depending on how you wish your app to respond.

[skywalker01]

can you guys provide me with a sample code...it could help me alot!!!

[mitko29]

Ok If I am understand right you have 4 textbox - one for name , one for base,one for fleet and one who have to show the sum of the hours - total hrs Then Your code will look like this:

Form Load:
Dim Name As String
 txtName.Text = Name - after that you can call Name and the name will be saved but when you close the program will disappear.
Timer 1 'cos you wan't it without button or something
txtTotalhrs.Text = Val(txtBase) + Val(txtFleet)

For the Val() I am agree to I just missed.

[opus]

Ok If I am understand right you have 4 textbox - one for name , one for base,one for fleet and one who have to show the sum of the hours - total hrs Then Your code will look like this:

Form Load:
Dim Name As String
Name = txtName.Text - after that you can call Name and the name will be saved but when you close the program will disappear.
Timer 1 'cos you wan't it without button or something
txtBase + txtFleet = txtTotalhrs.Text

WTH is that?

All of that in Form_Load? That way any input after the Fom_load will not be calculated!
With which code would that String be saved? I don't see any!
What are you using Timer 1 for?
At last you are trying to add two Strings, but do even that in the wrong order!

@skywalker: disregard the previous post!

[opus]

assuming you have textboxes named "txtbxOnBase" and "txtbxOnFleet" and for the Result a textbox named "txtbxTotal".

Private Sub txtbxOnBase_LostFocus()
txtbxTotal.Text = Val(txtbxOnBase.Text)+Val(txtbxOnFleet.Text)
End Sub
Private Sub txtbxOnFleet_LostFocus()
txtbxTotal.Text = Val(txtbxOnBase.Text)+Val(txtbxOnFleet.Text)
End Sub

If you would have the textboxes in an array, you would need this Sub only once.

[mitko29]

He want something who will show result without clicking any button or something for that I put it in Timer, he said that the value in txtbxOnBase and txtbxOnFleet will be already entered with some value.
There is nothing wrong in my code and my idea was the same,I don't write how to save it 'cos he can read it here in the forum,there is so many Topics.
I said that "the String wouldn't be saved parmanent"
And If he wan't to add more names - let's change it,what is the problem ?
I am not here to write his homework or some home idea I just only give a example the same you do.