如何静默压缩Access .mdb文件 避免弹出报错窗口需手动确认

解决方案 #

msaccess.exe 自带的/compact参数没有官方支持的/quiet/nogui类参数可以直接禁用所有弹窗，你可以采用以下两种可行方案实现无人值守压缩：

• 方案1：改用COM对象调用Access执行压缩（最稳定）
  不需要通过命令行启动msaccess.exe，直接通过系统COM接口调用Access核心能力，完全隐藏GUI界面，遇到损坏文件只会返回错误码不会弹窗中断，示例VBS脚本如下：

  Dim accessApp
  Set accessApp = CreateObject("Access.Application")
  ' 完全隐藏Access界面
  accessApp.Visible = False
  ' 关闭所有默认确认提示
  accessApp.SetOption "Confirm Action Queries", False
  accessApp.SetOption "Confirm Document Deletions", False
  accessApp.SetOption "Confirm Record Changes", False
  
  ' 错误跳过，避免脚本中断
  On Error Resume Next
  ' 执行压缩修复，第三个参数为True代表遇到损坏时尝试修复
  accessApp.CompactRepair "C:\path\to\source.mdb", "C:\path\to\target_compacted.mdb", True
  If Err.Number <> 0 Then
      ' 可自行添加写日志逻辑，记录异常文件路径方便后续排查
      Err.Clear
  End If
  On Error GoTo 0
  
  ' 释放资源
  accessApp.Quit
  Set accessApp = Nothing
  

  你可以把这个脚本加入计划任务执行，执行过程不会有任何界面弹出，也不会因为单个文件损坏卡住整个执行流程。
• 方案2：保留原命令行调用逻辑，配合窗口自动点击工具
  如果你不想改动现有脚本，可以用AutoIt等工具写个后台监听脚本，检测到标题为「Microsoft Access已检测到该数据库处于不一致状态」的弹窗时，自动发送点击确认的指令，不需要人工操作。

注意事项 #

• 所有压缩操作执行前必须先备份原.mdb文件，避免压缩失败导致文件损坏无法恢复
• 确保调用的Access版本与待压缩的.mdb文件版本兼容，减少不必要的异常报错

内容的提问来源于stack exchange，提问作者user3420775