Solved

How can I loop through 124 textboxes on a VBA form in MS Access, and have the values of these boxes sum up within a textbox called txtSum?

Posted on 2006-07-20
10
401 Views
Last Modified: 2008-03-06
I have a VBA form that interacts with an MS Access dBase.

On my form I have 124 textboxes named q1 through q124.  I also have a textbox called 'txtSum'. How can I loop through these 124 textboxes and have their values sum up within the textbox called txtSum?

I have seen other answers on EE that address this, but I am having a bit of difficulty getting one that works…. so, I am posting a request that is specific and unique to my situation. I am aware that control arrays are not available in VBA (aarrgh!), but some posts talk about 'simulating' a control array. Can someone please assist me in creating this solution?.... it would help me incredibly. I am pretty good with VB6, VB.net, Asp.Net, but getting around this VBA control array limitation is frustrating. I am tired of writing lengthy 'linear' code over and over in VBA as a workaround.

I am a fairly decent programmer, but many thanks to those of you who really are 'experts'.... I couldn't learn without you guys....

jnh
0
Comment
Question by:jazjef
  • 5
  • 3
  • 2
10 Comments
 
LVL 65

Assisted Solution

by:Jim Horn
Jim Horn earned 400 total points
ID: 17149470
Without any funky error handling, here you go...

Dim x as Integer, dSum as Double

For x = 1 to 124
   dSum = dSum  & Nz(Me("q" & x).Value,0)
Next

Me.txtSum.Value = dSum
0
 
LVL 44

Accepted Solution

by:
GRayL earned 100 total points
ID: 17149662
That won't do it Jim:

For x = 1 to 124
   dSum = dSum  + Nz(Me("q" & x).Value,0)
Next
0
 
LVL 44

Expert Comment

by:GRayL
ID: 17149674
Or is that what you meant by "Without any funky error handling"?  ;-)
0
Ransomware-A Revenue Bonanza for Service Providers

Ransomware – malware that gets on your customers’ computers, encrypts their data, and extorts a hefty ransom for the decryption keys – is a surging new threat.  The purpose of this eBook is to educate the reader about ransomware attacks.

 
LVL 65

Expert Comment

by:Jim Horn
ID: 17149689
+ instead of &, you are correct.
0
 
LVL 4

Author Comment

by:jazjef
ID: 17161708
Dear JimHorn and GRayl:

I'm sorry. I have awarded the points backwards. I wanted to give JimHorn 400 being that he anwered first and provided the bulk of the answer. The 100 points for the assisted answer was for Grayl's correction of the "&" to the "+" sign. When I applied GRayl's correction to JimHorn's first code posting, the solution to my problem appeared like 'magic'. Thanks a million guys!

Now, how do I redistribute these points correctly? Anybody know?

Thanks....

0
 
LVL 44

Expert Comment

by:GRayL
ID: 17161724
What if I had said nothing about the error in Jim's answer and posted 'my' solution without reference to anything else.  'Com, 50/50.
0
 
LVL 44

Expert Comment

by:GRayL
ID: 17161737
Anyway, copy the address of this thread, create a new post to Community Support (click Support at the top of this page), paste in the address, and request your bidding.
0
 
LVL 4

Author Comment

by:jazjef
ID: 17162033
Yeah, that's a very good point GRayL.... in the hypothetical scenario you mention, JimHorn's solution would not have worked, and yours would have. If he's ok with a 50/50 I think it's fair... I am sure that he would most likely see your logic a clearly as I have....
0
 
LVL 4

Author Comment

by:jazjef
ID: 17162044
Bottom line: I do want to be as fair as possible, and would like both your input on a points split. Both of you have no idea how beneficial this code snippet has been to me already. It is going to save me a TON of excess coding and time....

THX again.
0
 
LVL 44

Expert Comment

by:GRayL
ID: 17163463
Nah, leave it as is.  I was just having a bad day yesterday.  Going on vacation tomorrow.  That's good enough for me.
0

Featured Post

Live: Real-Time Solutions, Start Here

Receive instant 1:1 support from technology experts, using our real-time conversation and whiteboard interface. Your first 5 minutes are always free.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
type of query 11 41
Access 2016 5 53
Top 1 of each supplier 55 55
How to use DLookup with IsNull Function 4 24
Overview: This article:       (a) explains one principle method to cross-reference invoice items in Quickbooks®       (b) explores the reasons one might need to cross-reference invoice items       (c) provides a sample process for creating a M…
Preparing an email is something we should all take special care with – especially when the email is for somebody you may not know very well. The pressures of everyday working life stacked with a hectic office environment can make this a real challen…
Access reports are powerful and flexible. Learn how to create a query and then a grouped report using the wizard. Modify the report design after the wizard is done to make it look better. There will be another video to explain how to put the final p…
With Secure Portal Encryption, the recipient is sent a link to their email address directing them to the email laundry delivery page. From there, the recipient will be required to enter a user name and password to enter the page. Once the recipient …

786 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question