Switchboard does not open when the dbase is opened

From: estewart (anonymous_at_discussions.microsoft.com)
Date: 03/23/04 

Date: Tue, 23 Mar 2004 07:46:09 -0800

You need to open the database in design then go to Tools,
then startup. Here you can specify what you want to come
up when the database is opened.

>-----Original Message-----
>I have set the form switchboard as the default and also
>have other switchboards that are accessed by clicking on
>named buttons. The issue is that when I open this
>database, the switchboard does not open, it opens to the
>database window.
>
>I've looked at the open code and it appears to be correct
>(see below):
>
>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
>
>End Sub
>
>Private Sub Form_Current()
>' Update the caption and fill in the list of options.
>
> Me.Caption = Nz(Me![ItemText], "")
> FillOptions
>
>End Sub
>
>Private Sub FillOptions()
>' Fill in the options for this switchboard page.
>
> ' The number of buttons on the form.
> Const conNumButtons = 8
>
> Dim con As Object
> Dim rs As Object
> Dim stSql As String
> Dim intOption As Integer
>
> ' Set the focus to the first button on the form,
> ' and then hide all of the buttons on the form
> ' but the first. You can't hide the field with the
>focus.
> Me![Option1].SetFocus
> For intOption = 2 To conNumButtons
> Me("Option" & intOption).Visible = False
> Me("OptionLabel" & intOption).Visible = False
> Next intOption
>
> ' Open the table of Switchboard Items, and find
> ' the first item for this Switchboard Page.
> Set con = Application.CurrentProject.Connection
> stSql = "SELECT * FROM [Switchboard Items]"
> stSql = stSql & " WHERE [ItemNumber] > 0 AND
>[SwitchboardID]=" & Me![SwitchboardID]
> stSql = stSql & " ORDER BY [ItemNumber];"
> Set rs = CreateObject("ADODB.Recordset")
> rs.Open stSql, con, 1 ' 1 = adOpenKeyset
>
> ' If there are no options for this Switchboard Page,
> ' display a message. Otherwise, fill the page with
>the items.
> If (rs.EOF) Then
> Me![OptionLabel1].Caption = "There are no items
>for this switchboard page"
> Else
> While (Not (rs.EOF))
> Me("Option" & rs![ItemNumber]).Visible = True
> Me("OptionLabel" & rs![ItemNumber]).Visible =
>True
> Me("OptionLabel" & rs![ItemNumber]).Caption =
>rs![ItemText]
> rs.MoveNext
> Wend
> End If
>
> ' Close the recordset and the database.
> rs.Close
> Set rs = Nothing
> Set con = Nothing
>
>End Sub
>
>Private Function HandleButtonClick(intBtn As Integer)
>' This function is called when a button is clicked.
>' intBtn indicates which button was clicked.
>
> ' Constants for the commands that can be executed.
> Const conCmdGotoSwitchboard = 1
> Const conCmdOpenFormAdd = 2
> Const conCmdOpenFormBrowse = 3
> Const conCmdOpenReport = 4
> Const conCmdCustomizeSwitchboard = 5
> Const conCmdExitApplication = 6
> Const conCmdRunMacro = 7
> Const conCmdRunCode = 8
> Const conCmdOpenPage = 9
>
> ' An error that is special cased.
> Const conErrDoCmdCancelled = 2501
>
> Dim con As Object
> Dim rs As Object
> Dim stSql As String
>
>On Error GoTo HandleButtonClick_Err
>
> ' Find the item in the Switchboard Items table
> ' that corresponds to the button that was clicked.
> Set con = Application.CurrentProject.Connection
> Set rs = CreateObject("ADODB.Recordset")
> stSql = "SELECT * FROM [Switchboard Items] "
> stSql = stSql & "WHERE [SwitchboardID]=" & Me!
>[SwitchboardID] & " AND [ItemNumber]=" & intBtn
> rs.Open stSql, con, 1 ' 1 = adOpenKeyset
>
> ' If no item matches, report the error and exit the
>function.
> If (rs.EOF) Then
> MsgBox "There was an error reading the
Switchboard
>Items table."
> rs.Close
> Set rs = Nothing
> Set con = Nothing
> Exit Function
> End If
>
> Select Case rs![Command]
>
> ' Go to another switchboard.
> Case conCmdGotoSwitchboard
> Me.Filter = "[ItemNumber] = 0 AND
>[SwitchboardID]=" & rs![Argument]
>
> ' Open a form in Add mode.
> Case conCmdOpenFormAdd
> DoCmd.OpenForm rs![Argument], , , , acAdd
>
> ' Open a form.
> Case conCmdOpenFormBrowse
> DoCmd.OpenForm rs![Argument]
>
> ' Open a report.
> Case conCmdOpenReport
> DoCmd.OpenReport rs![Argument], acPreview
>
> ' Customize the Switchboard.
> Case conCmdCustomizeSwitchboard
> ' Handle the case where the Switchboard
Manager
> ' is not installed (e.g. Minimal Install).
> On Error Resume Next
> Application.Run "ACWZMAIN.sbm_Entry"
> If (Err <> 0) Then MsgBox "Command not
>available."
> On Error GoTo 0
> ' Update the form.
> Me.Filter = "[ItemNumber] = 0 AND [Argument]
>= 'Default' "
> Me.Caption = Nz(Me![ItemText], "")
> FillOptions
>
> ' Exit the application.
> Case conCmdExitApplication
> CloseCurrentDatabase
>
> ' Run a macro.
> Case conCmdRunMacro
> DoCmd.RunMacro rs![Argument]
>
> ' Run code.
> Case conCmdRunCode
> Application.Run rs![Argument]
>
> ' Open a Data Access Page
> Case conCmdOpenPage
> DoCmd.OpenDataAccessPage rs![Argument]
>
> ' Any other command is unrecognized.
> Case Else
> MsgBox "Unknown option."
>
> End Select
>
> ' Close the recordset and the database.
> rs.Close
>
>HandleButtonClick_Exit:
>On Error Resume Next
> Set rs = Nothing
> Set con = Nothing
> Exit Function
>
>HandleButtonClick_Err:
> ' If the action was cancelled by the user for
> ' some reason, don't display an error message.
> ' Instead, resume on the next line.
> If (Err = conErrDoCmdCancelled) Then
> Resume Next
> Else
> MsgBox "There was an error executing the
>command.", vbCritical
> Resume HandleButtonClick_Exit
> End If
>
>End Function
>
>Private Sub back_Click()
>On Error GoTo Err_back_Click
>
>
> DoCmd.GoToRecord , , acPrevious
>
>Exit_back_Click:
> Exit Sub
>
>Err_back_Click:
> MsgBox Err.Description
> Resume Exit_back_Click
>
>End Sub
>
>Private Sub Form_Unload(Cancel As Integer)
>
>End Sub
>
>
>Does anyone know why this would be happing?
>
>Barb
>.
>

Loading