如何让MS Access 2016 Runtime遇到轻微错误时不关闭数据库

我完全懂你遇到的困扰——在完整版Access里碰到「输入的值对该字段无效」这类小错误，点个「停止所有宏」就能继续操作，但Runtime版本直接闪退，实在太影响使用了。下面几个实用方法能帮你让Runtime的行为和完整版看齐：

• 给数据库添加全局自定义错误处理
  Runtime默认没有交互式的错误提示，遇到未处理的错误就直接关闭程序。所以咱们得自己写VBA代码来接管错误处理：

  1. 先建一个全局模块（比如命名为modErrorHandling），写一个通用的错误处理函数：

  Public Function HandleError(strModule As String, strProc As String, lngErrNum As Long, strErrDesc As String) As Boolean
      Dim strMsg As String
      strMsg = "错误信息:" & vbCrLf & _
               "模块: " & strModule & vbCrLf & _
               "过程: " & strProc & vbCrLf & _
               "错误代码: " & lngErrNum & vbCrLf & _
               "描述: " & strErrDesc & vbCrLf & vbCrLf & _
               "是否继续运行？"
      ' 弹出对话框让用户选择操作
      If MsgBox(strMsg, vbYesNo + vbExclamation, "提示") = vbYes Then
          HandleError = True ' 返回True表示继续执行
      Else
          HandleError = False ' 返回False表示终止当前过程
      End If
  End Function
  

  2. 在所有的表单事件、VBA过程甚至宏转换后的代码里，调用这个错误处理函数。比如某个表单的提交按钮事件：

  Private Sub btnSubmit_Click()
      On Error GoTo ErrorHandler
      ' 这里写你的业务逻辑代码
      ' ...
      
  ExitSub:
      Exit Sub
  ErrorHandler:
      If HandleError("frmMain", "btnSubmit_Click", Err.Number, Err.Description) Then
          Resume Next ' 跳过错误行，继续执行下一行
      Else
          Resume ExitSub ' 退出当前过程
      End If
  End Sub
  

  这样Runtime遇到错误时，会弹出自定义的提示框，让你选择继续还是终止，再也不会直接关闭数据库了。

• 调整Runtime的启动参数和数据库设置

  1. 先在完整版Access里打开数据库，调整错误捕获设置：点击「文件」→「选项」→「当前数据库」，找到「错误捕获」选项，选择「未处理的错误」，保存数据库后再用Runtime打开。
  2. 创建数据库的快捷方式，在目标里添加启动参数：比如目标路径改成

  "C:\Program Files\Microsoft Office\Root\Office16\MSACCESS.EXE" "C:\你的数据库路径.accdb" /runtime /nostartup
  

  /nostartup参数会禁用默认的启动错误处理，让你的自定义错误逻辑生效。

• 把宏转换为VBA代码
  宏的错误处理在Runtime里限制很多，不如VBA灵活。你可以在完整版Access里把宏导出为VBA模块，然后给转换后的代码添加错误处理逻辑，这样就能像完整版一样精准控制错误后的行为，避免程序直接崩溃。

总的来说，核心思路就是用自定义错误处理接管Runtime的默认错误机制，让程序遇到小错误时能给你选择的机会，而不是直接闪退。

备注：内容来源于stack exchange，提问作者user2978216