Code Not Working

[Kirsti]

Hi, I have a combo box in a form, where input is limited to a value list. I have the following code:



Private Sub Field1_AfterUpdate()

If ((Me.Field1) = "xxxx" Or (Me.Field1) = "yyyy") Then

Me.Field2.Visible = True And Me.Field3.Visible = True And Me.Field4.Visible = True And Me.Field5.Visible = True And Me.Field6.Visible = True And Me.Field7.Visible = True And Me.Field8.Visible = True And Me.Field9.Visible = True

Else

Me.Field2.Visible = False And Me.Field3.Visible = False And Me.Field4.Visible = False And Me.Field5.Visible = False And Me.Field6.Visible = False And Me.Field7.Visible = False And Me.Field8.Visible = False And Me.Field9.Visible = False

End If
End Sub

I use variations of this code often, and it always works, however I have never before tried it using a "xxxx" value (i.e. it has always been = True or IsNotNull etc).

Is it possible to use this code in this way, and is there something I'm missing?

Thanks,
Kirsti

[pbaldy]

That should work, though I'd drop all the parentheses. The code to set should be

Me.Field2.Visible = True
Me.Field3.Visible = True

rather than being separated by AND.

[Kirsti]

Thanks Paul - it's now working perfectly.

[pbaldy]

Happy to help.