G
Guest
Hi. I'm using a switchboard (the one from the Contacts database). It works
fine on one of my databases. But on a new one I created, when I open the
database, the main Access screen minimizes but the Switchboard form doesn't
open. If I expand the main Access screen and select the Switchboard form,
all is well (the main Access screen minimizes and the Switchboard opens).
The code for the Switchboard is the same on both databases. I made sure
that my references were the same and in the same order. I appreciate any
suggestions.
Here's the form open code:
Private Sub Form_Open(Cancel As Integer)
' Minimize the database window and initialize the form.
On Error GoTo Form_Open_Err
' Minimize the database window.
DoCmd.SelectObject acForm, "Switchboard", True
DoCmd.Minimize
' Move to the switchboard page that is marked as the default.
Me.Filter = "[ItemNumber] = 0 AND [Argument] = 'Default' "
Me.FilterOn = True
Form_Open_Exit:
Exit Sub
Form_Open_Err:
MsgBox Err.Description
Resume Form_Open_Exit
End Sub
fine on one of my databases. But on a new one I created, when I open the
database, the main Access screen minimizes but the Switchboard form doesn't
open. If I expand the main Access screen and select the Switchboard form,
all is well (the main Access screen minimizes and the Switchboard opens).
The code for the Switchboard is the same on both databases. I made sure
that my references were the same and in the same order. I appreciate any
suggestions.
Here's the form open code:
Private Sub Form_Open(Cancel As Integer)
' Minimize the database window and initialize the form.
On Error GoTo Form_Open_Err
' Minimize the database window.
DoCmd.SelectObject acForm, "Switchboard", True
DoCmd.Minimize
' Move to the switchboard page that is marked as the default.
Me.Filter = "[ItemNumber] = 0 AND [Argument] = 'Default' "
Me.FilterOn = True
Form_Open_Exit:
Exit Sub
Form_Open_Err:
MsgBox Err.Description
Resume Form_Open_Exit
End Sub