I get an expression error when using this code and I can't figure out why
Code:Function tagVisibility() Dim ctl As Control If IsNull(Me.DateFrom_Box) Or IsNull(Me.DateUntil_Box) Then For Each ctl In Form.Controls If ctl.Tag = "Vanish" Then ctl.Visible = False Else ctl.Visible = True End If Next ctl Else For Each ctl In Form.Controls If ctl.Tag = "Vanish" Then ctl.Visible = True End If Next ctl Me.ListOfSchools.Requery End If End Function