P
Paul Hammond
I have a switchboard that won't open. I open it with code, but it won't open
manually either. I get an OnOpen error, "The expression may not result in
the name of a macro, a user defined function or [Event Procedure]". It does
not give me the opportunity to debug, but here's the code. It's not the
standard switchboad code.
Private Sub Form_Open(Cancel As Integer)
' Minimize the database window and initialize the form.
' Move to the switchboard page that is marked as the default.
Me.Filter = "[ItemNumber] = 0 AND [Argument] = 'Default' "
Me.FilterOn = True
Me.cboLocation = User_View
Me.lblUser.Caption = user_name & " - " & user_class_desc & " - " &
User_View
Me.txtADI = User_ADI
If user_class_id <> 4 Then
Me.cmdAddUser.Visible = False
' Me.cboLocation.Visible = False
End If
End Sub
I've tried commenting out most or even all of the code and get the same
error. This switchboard has worked flawlessly for years. I am getting
flummoxed.
I am sending out an SOS. Please help.
Paul Hammond
Richmond, VA
manually either. I get an OnOpen error, "The expression may not result in
the name of a macro, a user defined function or [Event Procedure]". It does
not give me the opportunity to debug, but here's the code. It's not the
standard switchboad code.
Private Sub Form_Open(Cancel As Integer)
' Minimize the database window and initialize the form.
' Move to the switchboard page that is marked as the default.
Me.Filter = "[ItemNumber] = 0 AND [Argument] = 'Default' "
Me.FilterOn = True
Me.cboLocation = User_View
Me.lblUser.Caption = user_name & " - " & user_class_desc & " - " &
User_View
Me.txtADI = User_ADI
If user_class_id <> 4 Then
Me.cmdAddUser.Visible = False
' Me.cboLocation.Visible = False
End If
End Sub
I've tried commenting out most or even all of the code and get the same
error. This switchboard has worked flawlessly for years. I am getting
flummoxed.
I am sending out an SOS. Please help.
Paul Hammond
Richmond, VA