Error Setting Visible Property based on other field value in Access Form

[Archer]

Hi guys.

When trying to run the following code, I keep getting Run-time error '424': Object required. Am I overlooking something obvious?

Private Sub Form_Current()
Dim Demographic_ID As Integer

If Me.Demographic_ID Is Null Then
Me.Consultant.Visible = False
Me.Contact_Date.Visible = False
Me.Contact_Approval_Given.Visible = False
Me.Nurse.Visible = False
Me.Comments.Visible = False



End If
End Sub

[Minty]

In VBA you need to use IsNull() , so try a new line of

Private Sub Form_Current()
  Dim Demographic_ID As Integer

  If IsNull(Me.Demographic_ID) Then
     Me.Consultant.Visible = False
     Me.Contact_Date.Visible = False
     Me.Contact_Approval_Given.Visible = False
     Me.Nurse.Visible = False
     Me.Comments.Visible = False
   End If
End Sub

[ArviLaanemets]

And declaring a variable with name Demographic_ID in code whil there is a control with same name on form is at least confusing, and also pointless - you never used it!