for each code (Access 2000)

Topic

New Reply

i have 10 labels called Lbl1,Lbl2, etc. I want to build a command making the labels visible and invisible using the ” for each ” construction. How can i do that ?

Reply | Quote

Replies

Like this:

Sub ShowLabels(f As Boolean)
Dim i As Integer

For i = 1 To 10 ‘ change to number of labels
Me.Controls(“Lbl” & i).Visible = f
Next i
End Sub

Use like this to make the labels visible:

ShowLabels True

and like this to hide them:

ShowLabels False

Reply | Quote

It just works fine.Thank you

Reply | Quote