Loop to hide/show report Objects

[ShaneBrennan]

I have 16 checkboxes - all hidden on a report with
16 corresponding labels.

At the moment I use the following code to hide/show the labels - depending on a true/false value of it's sister checkbox:

Me.lab1.Visible = Me.Obj1
Me.lab2.Visible = Me.Obj2
: : : : :
: : : : :
Me.lab16.Visible = Me.Obj16

Does anyone know how to create a simple loop to do this

Thanks in advance for any help given.

Shane

Shane Brennan

'-----------------------

' Emails: shanebrennan@postmaster.co.uk

 

[dhookom]

Dim intX as Integer
For intX = 1 to 16
Me("lab" & intX).Visible = Me("Obj" & intX)


Duane
MS Access MVP