On Format Event Procedure

[Guest]

I'm trying this:

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Me.PrimaryContact.Visible = (Me.PrimaryContact = True)
Me.24HRContact.Visible = (Me.24HRContact = True)
End Sub

The debugger points to <.24> as a compile error with an expected: =

Why is this and what can I do to correct?

THANKS!!!

 

[Jeff Boyce]

John

Have you tried surround the fieldname with square brackets ([])?

Regards

Jeff Boyce
Microsoft Office/Access MVP

 

[fredg]

I'm trying this:

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Me.PrimaryContact.Visible = (Me.PrimaryContact = True)
Me.24HRContact.Visible = (Me.24HRContact = True)
End Sub

The debugger points to <.24> as a compile error with an expected: =

Why is this and what can I do to correct?

THANKS!!!

Does this work?
Me![24HRContact].Visible = (Me![24HRContact] = True)

You can shorten the code to:
Me![PrimaryContact].Visible = Me![PrimaryContact]
Me![24HRContact].Visible = Me![24HRContact]

 

[Marshall Barton]

I'm trying this:

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Me.PrimaryContact.Visible = (Me.PrimaryContact = True)
Me.24HRContact.Visible = (Me.24HRContact = True)
End Sub

The debugger points to <.24> as a compile error with an expected: =

Why is this and what can I do to correct?

Names are not supposed to start with anything other than a
letter and contain anything other than letters an digits.
If you break any of those guidelines, then you must inclose
the name in [ and ]

 

[Guest]

As always - thanks to everyone for the help!

--
www.Marzetti.com

I'm trying this:

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Me.PrimaryContact.Visible = (Me.PrimaryContact = True)
Me.24HRContact.Visible = (Me.24HRContact = True)
End Sub

The debugger points to <.24> as a compile error with an expected: =

Why is this and what can I do to correct?

THANKS!!!

Does this work?
Me![24HRContact].Visible = (Me![24HRContact] = True)

You can shorten the code to:
Me![PrimaryContact].Visible = Me![PrimaryContact]
Me![24HRContact].Visible = Me![24HRContact]