VARIABLE SUBSTITUTION

R

Robert Lowe

Hi,
I have a form with 24 checkboxes. (CheckBox1...CheckBox24)
Is there a way to make the following work?
This works...
If CheckBox3 Then MsgBox "Three"
This doesn't...
i = 3
z = "CheckBox" & LTrim(Str(i))
If z Then MsgBox "Three"

Thank you
 
J

Juan Pablo Gonzalez

If the Checkboxes are in a userform, try this:

z = Me.Controls("CheckBox" & i).Object .Value
 
B

Bob Phillips

Robert,

This is how you do it

If Me.Controls("Checkbox" & i).Value = True Then
MsgBox "Found"
End If


--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
 
R

Robert Lowe

Thank a lot...
It works great. I would never have gotten it!
I have MUCH to learn....
Robert
 
Top