Yes,

The switchboards I have seen do not have that ability.  That said it is very
easy to do so using the OpenQuery Method you can lauch a query from a
cmdbutton.

The basic synthax is
DoCmd.OpenQuery(QueryName, View, DataMode)

Simply add a case statement to the event that handle the button click.

Daniel P

If by some fluke of chance you are using the same switchboard as I am, below
is the required mod,

*******
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 conCmdOpenQuery = 9

   ' An error that is special cased.
   Const conErrDoCmdCancelled = 2501
   
   Dim dbs As Database
   Dim rst As Recordset

On Error GoTo HandleButtonClick_Err

   ' Find the item in the Switchboard Items table
   ' that corresponds to the button that was clicked.
   Set dbs = CurrentDb()
   Set rst = dbs.OpenRecordset("Switchboard Items", dbOpenDynaset)
   rst.FindFirst "[SwitchboardID]=" & Me![SwitchboardID] & " AND
[ItemNumber]=" & intBtn
   
   ' If no item matches, report the error and exit the function.
   If (rst.NoMatch) Then
       MsgBox "There was an error reading the Switchboard Items table."
       rst.Close
       dbs.Close
       Exit Function
   End If
   
   Select Case rst![Command]
       
       ' Go to another switchboard.
       Case conCmdGotoSwitchboard
           Me.Filter = "[ItemNumber] = 0 AND [SwitchboardID]=" &
rst![Argument]
           
       ' Open a form in Add mode.
       Case conCmdOpenFormAdd
           DoCmd.OpenForm rst![Argument], , , , acAdd

       ' Open a form.
       Case conCmdOpenFormBrowse
           DoCmd.OpenForm rst![Argument]

       ' Open a report.
       Case conCmdOpenReport
           DoCmd.OpenReport rst![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 rst![Argument]

       ' Run code.
       Case conCmdRunCode
           Application.Run rst![Argument]

       ' Open Query.
       Case conCmdOpenQuery
           DoCmd.OpenQuery rst![Argument], acViewNormal

       ' Any other command is unrecognized.
       Case Else
           MsgBox "Unknown option."
   
   End Select

   ' Close the recordset and the database.
   rst.Close
   dbs.Close
   
HandleButtonClick_Exit:
   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
*******

Daniel P