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
382 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
 
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
Comprehensive Backup Solutions for Microsoft

Acronis protects the complete Microsoft technology stack: Windows Server, Windows PC, laptop and Surface data; Microsoft business applications; Microsoft Hyper-V; Azure VMs; Microsoft Windows Server 2016; Microsoft Exchange 2016 and SQL Server 2016.

 
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

Complete VMware vSphere® ESX(i) & Hyper-V Backup

Capture your entire system, including the host, with patented disk imaging integrated with VMware VADP / Microsoft VSS and RCT. RTOs is as low as 15 seconds with Acronis Active Restore™. You can enjoy unlimited P2V/V2V migrations from any source (even from a different hypervisor)

Join & Write a Comment

I originally created this report in Crystal Reports 2008 where there is an option to underlay sections. I initially came across the problem in Access Reports where I was unable to run my border lines down through the entire page as I was using the P…
A simple tool to export all objects of two Access files as text and compare it with Meld, a free diff tool.
Familiarize people with the process of utilizing SQL Server views from within Microsoft Access. Microsoft Access is a very powerful client/server development tool. One of the SQL Server objects that you can interact with from within Microsoft Access…
Familiarize people with the process of utilizing SQL Server stored procedures from within Microsoft Access. Microsoft Access is a very powerful client/server development tool. One of the SQL Server objects that you can interact with from within Micr…

760 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

Need Help in Real-Time?

Connect with top rated Experts

19 Experts available now in Live!

Get 1:1 Help Now