getting a total?

[lee123]

hey all, i have made a order form with all the works. in vb 6 and in this form i have been trying to get a total of the items that a customer would have ordered. to make things make sense i have in my order form ( qty, product,unit price, and a total) there are 12 rows of these text boxes (1-44) i believe, any way on the bottom of the order form there is a (subtotal,salestax,final total.) now the question is.....(and it probably a simple one i have over looked) is how do you add all the text boxes (meaning totals which are numbered textboxes 4,8,12 and so on..) to get the subtotal which is (text45) and the salestax which is (text46) and the grand total.(final total) which is (text45) together to get the right grand total.

[Killer42]

hey all, i have made a order form with all the works. in vb 6 and in this form i have been trying to get a total of the items that a customer would have ordered. to make things make sense i have in my order form ( qty, product,unit price, and a total) there are 12 rows of these text boxes (1-44) i believe, any way on the bottom of the order form there is a (subtotal,salestax,final total.) now the question is.....(and it probably a simple one i have over looked) is how do you add all the text boxes (meaning totals which are numbered textboxes 4,8,12 and so on..) to get the subtotal which is (text45) and the salestax which is (text46) and the grand total.(final total) which is (text45) together to get the right grand total.

Easy - use a loop with the Step clause to grab every fourth one.

As for how you access them, well, you would have made things much easier on yourself if you set them up as a control array. In fact, a separate control array for each column would be even better. That way, you could just loop through and grab the values from, say, txtQty(1) to txQty(12).

It would probably be a good idea to delete your textboxes and replace them with one or more arrays of textboxes. However, that may be more work than you want to put in at this point. So, here's a workaround.

Using the same loop idea, inside the loop you can access your texboxes like this...
Me.Controls("text" & format(loopcounter))

[lee123]

im a little confused is the code suppose to be:

me.controls("text 4" + "text8" + "text12" & format(loopcounter))

because it says that vb doesn't support this.
or then again i could be doing it wrong. right?

or

me.controls("text4" & format(loopcounter))
me.controls("text8" & format(loopcounter))

or you mentioned control arrays how would that be done, if you don't mind telling me. or explaining to me because you said it might be alot easier ( or something along them lines) to do.

lee123

[lee123]

you know what (killer42) i was so caught up with getting the grand total i forgot to mention that all of the totals are controlled by a button which calculates the totals so when im done entering the (qty),(Product) and the (Unitprice) i press the calculate button and it calculates the totals, but not the grand total... this is where im having trouble getting it to display i don't know how to tie this in the button with the rest of the codes.....sorry about not getting it all out to you.

lee123

[Killer42]

im a little confused is the code suppose to be:

me.controls("text 4" + "text8" + "text12" & format(loopcounter))

...

No, the way it works is that you supply the name of the control, such as Controls("Text1"), to access the control. The business with sticking together "text" and a variable is just to build the name. This has nothing to do with adding up the values, it's just a way of accessing the control to get what's in it, without having to write individual chunks of code for each one. I wouldn't worry about this, though. It's just a way of simulating a control array. You won't need it in VB6.

... or you mentioned control arrays how would that be done, if you don't mind telling me. or explaining to me because you said it might be alot easier ( or something along them lines) to do.

Yes, a control array will make your life much easier. The quick and simple way to create a control array is this...

• Place an ordinary control on the form (in your case, let's use a textbox).
• Set the name to what you want to use - for example, textQty (or whatever).
• Copy the control (select it and hit Ctrl-C, or whatever you prefer).
• Paste it back onto the same form.
• VB will ask you whether you want to create a control array - say "yes".

That's it, you now have a control array containing two textboxes. The textboxes still work exactly the same, of course. The only difference is that any code which refers to them has to specify which one, using an index. In other words, rather than txQty.Text you use the syntax txQty(n).Text. Any event procedures are shared by all the controls in the array. In other words, there is one txQty_Click event procedure, which is called when you click any of the textboxes in that array. The event procedures will now include an extra Index parameter, to indicate which one actually triggered the event.

In case you need it, each control also has an Index property, indicating which place it holds in the array.

Sorry if this all sounds complicated. It's actually very simple to do. Just remember that when writing code to use these controls, the differences are just the same as when using an ordinary variable array instead of a plain variable.

[lee123]

thanks for the info i'll try it

lee123

[lee123]

hey (killer42) i had a visual basic cdrom and i watched it finally, and in this video they did a calculator. well to make a long story short they had three textboxes 1 was named (number1), and the other was named (number2) and the third one was named (answer) and they had a button named (calculate) behind the button they wrote code for the two textboxes to add them together the code they used was like this:

answer = val(number1) + val(number2)

anyway i used this code for the total naming the text boxes that i used for the total in my form which i named

total = val(total1) + val(total2) etc.

but this works the same i have had a chance to use the code you displayed... yea your right it looks complicated but i'll have to give it a try

thanks for all your help.....

lee123

[Killer42]

...

total = val(total1) + val(total2) etc.

but this works the same i have had a chance to use the code you displayed... yea your right it looks complicated but i'll have to give it a try

Glad to see you got it working.

Writing that piece of code to work with a control array isn't complicated. It would be something like...

MyTotal = val(total(1)) + val(total(2)) etc.

In a case like this there's not much difference. But let's say you had 100 textboxes to add up. You'd end up with a mighty long statement!. If they're in an array, you can use a loop, like this...

Dim I As Long, GrandTotal As Long
For I = 1 To 100
  GrandTotal = GrandTotal + Val(total(I))
Next

Control arrays just sound complicated to explain. They really are simple to use.