VB Question - Create a Running total

[post41]

I want to have a text box that displays a increasing running total - while the user is in that particular form.

I've tried some code, but it has not done what I want. It display the number, but I haven't figured out how display a the numbers increasing by 1's (to infinity).

Any suggestions?


Thx

 

[MikeBronner]

to use a textbox to display a running total, put the following in your loop where you determine the total:

private sub RunningTotal()
Dim nTotal as Integer

nTotal = 1
While (Val(txtBox.Text) <= 1000)
txtBox.Text = txtBox.Text + nTotal
Wend
End Sub

This is just an example that will increment your total to 1000. Change things around to match your criteria.

Good Luck,
Michael G Bronner