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

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

Thanks Kindler, I will see if I can get it to work.

Scott

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

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

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.