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 "WZMAIN80.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] ' 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 Private Sub Option1_Click() End Sub Private Sub BA_Click() On Error GoTo Err_BA_Click DoCmd.DoMenuItem acFormBar, acRecordsMenu, 2, , acMenuVer70 Exit_BA_Click: Exit Sub Err_BA_Click: MsgBox Err.Description Resume Exit_BA_Click End Sub Private Sub ISIF_Add_Click() On Error GoTo Err_ISIF_Add_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "ISIF Form" stLinkCriteria = "[BA]=" & "'" & Me![Combo22] & "'" DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_ISIF_Add_Click: Exit Sub Err_ISIF_Add_Click: MsgBox Err.Description Resume Exit_ISIF_Add_Click End Sub Private Sub ISIF_Edit_Click() On Error GoTo Err_ISIF_Edit_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "ISIF Form" stLinkCriteria = "[BA]=" & "'" & Me![Combo22] & "'" DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_ISIF_Edit_Click: Exit Sub Err_ISIF_Edit_Click: MsgBox Err.Description Resume Exit_ISIF_Edit_Click End Sub