I do the same thing as June7, but a little different. The results are the same.
The Module code would be:
Code:
Public Sub read_CESSNOCK_DCP(TheForm As Form) 'NSW CESSNOCK COUNCIL DCP
If TheForm!L_SitingArea = "CESSNOCK_DCP" Then
TheForm!PODLotType1.Visible = False
TheForm!PODLotType.Visible = False
Else
TheForm!PODLotType1.Visible = True
TheForm!PODLotType.Visible = True
End If
End Sub
To call the procedure:
Code:
Private Sub Command5_Click()
Call read_CESSNOCK_DCP(Me)
End Sub
---------------------------------------------------------------------
I am curious: Is you code really like this:
Code:
If Forms("Lots").L_SitingArea = "CESSNOCK_DCP" Then
Forms("Lots").PODLotType1.Visible = False
Forms("Lots").PODLotType.Visible = False '<< All options are FALSE???
Else
Forms("Lots").PODLotType1.Visible = False '<< Same Control name???
Forms("Lots").PODLotType1.Visible = False '<< Same Control name???
End If
Good luck with your project...