 |
| Access VBA Discuss using VBA for Access programming. |
Welcome to the p2p.wrox.com Forums.
You are currently viewing the Access VBA section of the Wrox Programmer to Programmer discussions. This is a community of software programmers and website developers including Wrox book authors and readers. New member registration was closed in 2019. New posts were shut off and the site was archived into this static format as of October 1, 2020. If you require technical support for a Wrox book please contact http://hub.wiley.com
|
|
|
February 22nd, 2006, 01:32 PM
|
|
Authorized User
|
|
Join Date: Feb 2006
Location: Sacramento, CA, USA.
Posts: 33
Thanks: 0
Thanked 0 Times in 0 Posts
|
|
Loop through combo boxes
I have not used VBA for about a year so I am a little rusty. I have a form with 25 combo boxes (not my design) and I need to check each combo box to see if it is populated. Is there a way to iterate through the combo boxes, say in a loop? The problem I am having is I do not know how to change the combo box name (cmb1) to the next combo box (cmb2) for the next loop.
Scott
__________________
ScottP
|
February 22nd, 2006, 04:19 PM
|
|
Friend of Wrox
|
|
Join Date: Dec 2005
Location: , , .
Posts: 142
Thanks: 0
Thanked 0 Times in 0 Posts
|
|
Loop through the controls on the form
ex:
for i = 0 to form.controls.count - 1
if form.controls(i).type = acComboBox
'do stuff here
end if
|
February 22nd, 2006, 07:53 PM
|
|
Authorized User
|
|
Join Date: Feb 2006
Location: Sacramento, CA, USA.
Posts: 33
Thanks: 0
Thanked 0 Times in 0 Posts
|
|
Thanks Kindler, I will see if I can get it to work.
Scott
|
February 23rd, 2006, 05:11 PM
|
|
Authorized User
|
|
Join Date: Feb 2006
Location: Sacramento, CA, USA.
Posts: 33
Thanks: 0
Thanked 0 Times in 0 Posts
|
|
Kindler, I finally got it to work. I kept getting errors when using the "if form.controls(i).type = acComboBox then" statement. But knowing that it is the "controls" allowed me to figure it out.
The 25 combo boxes go from cmbCF1 to cmbCF25.
For i = 1 To 25
If IsNull(Me.Controls("cmbCF" & i)) = False Then
Ptotals = Ptotals + CFPoints
End If
Next i
Thanks again.
Scott
|
February 24th, 2006, 09:50 AM
|
|
Friend of Wrox
|
|
Join Date: Jun 2003
Location: Lansing, Michigan, USA.
Posts: 1,151
Thanks: 2
Thanked 14 Times in 14 Posts
|
|
Say, I have found that to be a problem in the past as well. Access XP (2002) doesn't want to recognize the .Type method, that is, a statement like this always fails:
if form.controls(i).type = acComboBox
I get around it by placing a unique string in my controls of interest .Tag property and do use a loop, but I use the .Tag property instead of the .Type property to pinpoint my controls.
Why does Access XP not accept the .Type method?
Greg Serrano
Michigan Dept. of Environmental Quality, Air Quality Division
|
February 24th, 2006, 12:06 PM
|
|
Friend of Wrox
|
|
Join Date: Dec 2005
Location: , , .
Posts: 142
Thanks: 0
Thanked 0 Times in 0 Posts
|
|
You've got me Serrano, I'm using Access 2k3 but on databases saved in the 2000/02 format. I had to loop through and check for acCheckBox types and it worked (if I remember right). I ended up scrapping the type check though (so maybe it didn't work? It was a few months ago I wrote the code for that function) and just did a name check against the value in a field.
Glad you were able to get it working Scooter.
|
|
Similar Threads
