MS Access命令按钮完全无响应问题求助

• 确认查询有效性：手动打开OpenComplaintsQuery，检查是否能正常加载数据。如果查询存在参数错误、语法问题或无数据，可能导致OutputTo执行失败且无提示。
• 验证文件路径与权限：
  • 确保C:\Users\Redacted\Desktop路径存在，且当前用户拥有写入权限（可尝试手动在该路径创建文件测试）。
  • 若文件exportResults.xlsx已被Excel或其他程序占用，Access无法覆盖写入，需先关闭该文件。
• 添加错误捕获代码：原代码未包含错误处理，导致异常被静默。修改代码如下，点击按钮后会弹出具体错误信息：

  Private Sub cmdExportFilename_Click()
      Dim sFilename As String
      On Error GoTo ErrorHandler
  
      sFilename = "C:\Users\Redacted\Desktop\exportResults.xlsx"
      DoCmd.OutputTo acOutputQuery, "OpenComplaintsQuery", acFormatXLSX, sFilename, AutoStart:=True
      Exit Sub
  
  ErrorHandler:
      MsgBox "错误代码：" & Err.Number & vbCrLf & "错误描述：" & Err.Description, vbExclamation
  End Sub
  

• 检查按钮与事件关联：确认按钮的Name属性为cmdExportFilename（需与代码中的事件过程名称完全匹配），且OnClick事件确实设置为[Event Procedure]。
• 测试简化场景：替换为导出当前表单的代码，验证OutputTo功能是否正常：

  Private Sub cmdExportFilename_Click()
      Dim sFilename As String
      sFilename = "C:\Users\Redacted\Desktop\form_test.xlsx"
      DoCmd.OutputTo acOutputForm, Me.Name, acFormatXLSX, sFilename, AutoStart:=True
  End Sub
  

  如果此代码能正常执行，说明问题出在OpenComplaintsQuery本身。
• 确认宏安全设置：打开Access选项→信任中心→信任中心设置→宏设置，选择「启用所有宏」（测试用，后续可改回安全设置），排除宏被拦截的可能。

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