Hide controls based on value list.

[MrOhhmy]

Hello Experts. I seem to be having trouble with a simple code, whether on open, after update or what not. I simply want to hide some labels and text boxes for "Days" and display them for "Nights". I have attached the file and hope for some help on this. I have grouped the controls to be hidden by tag name Nights. So if Shift value box is Days, hide tag.Nights and if Nights, Visible = true. I've searched the forums and none of the codes work for me.



Thanks,DW.zip

[davegri]

DW-davegri-v01.zip

Consider the above solution. It ignores the tags.
It defines a rectangle to cover the night boxes and inserts a picture in the rectangle that matches the detail background.
Then the shift combobox afterUpdate event makes the image visible to cover, or not visible to uncover the boxes.

[MrOhhmy]

Quick and dirty. This will work. Thank you.

[davegri]

Glad to help. Keep it simple.

[MrOhhmy]

So it turns out I had extra characters in the original form that was giving me the headache. My simple code did what I wanted originally. So, for anyone wanting to hide a set of controls, tag them with the same name. In my case, I tagged them "Nights". The following code works well for "On Load" with the controls in question set to Visible= No.

Private Sub Form_Load()
Dim ctrl As Control

For Each ctrl In Me.Controls
If ctrl.Tag = "Nights" And Shift = "Nights" Then
ctrl.Visible = True
End If
Next
End Sub