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 \
If (Err <> 0) Then MsgBox \命令不可用。\ On Error GoTo 0 ' Update the form.
Me.Filter = \默认' \ 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 \未知选项。\
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 \执行命令时出错。\ Resume HandleButtonClick_Exit End If
End Function ：
