这个问题我之前处理Access多窗体场景时碰到过类似情况，结合你描述的细节——筛选后关闭窗体导致无法再次打开、故障随前端文件迁移、多屏环境下更频繁，核心原因大概率是窗体状态的持久化残留+多屏环境下的窗体位置偏移，下面给你具体拆解：

一、核心原因分析 #

• 筛选状态的持久化：Access会自动把窗体的筛选、排序、位置大小等状态保存到前端文件（.accdb/.accde）里。如果用户筛选后查询返回空记录，且关闭窗体时保留了这个筛选状态，下次打开窗体时查询依旧返回空结果；再加上多屏环境下窗体可能被定位到屏幕外，就会出现“点击按钮没反应”的假象——其实窗体已经打开了，只是既没有数据显示，又不在可见区域内。
• 多屏环境的位置异常：当应用在第二屏幕运行并关闭窗体时，Access会记录此时的窗体坐标。如果后续在单屏环境下打开，或者第二屏幕未启用，窗体就会被加载到超出当前屏幕范围的位置，导致用户看不到窗体，误以为没打开。

二、具体解决方法 #

1. 打开窗体时强制重置筛选与位置 #

修改菜单按钮的Click事件代码，在打开窗体后立即清除筛选并重置窗体位置：

Private Sub btnOpenOutput_Click()
    DoCmd.OpenForm "frmOutput"
    ' 清除窗体筛选状态
    With Forms!frmOutput
        .Filter = ""
        .FilterOn = False
        ' 重置窗体到当前主屏幕的可见位置
        .Move Screen.ActiveMonitor.Left + 50, Screen.ActiveMonitor.Top + 50
        ' 可选：重置窗体默认大小
        .Width = 800
        .Height = 600
    End With
End Sub

2. 在窗体自身的Open事件中做初始化 #

更稳妥的方式是把重置逻辑放到frmOutput的Open事件里，确保每次打开都能恢复到初始状态：

Private Sub Form_Open(Cancel As Integer)
    ' 清除筛选
    Me.Filter = ""
    Me.FilterOn = False
    ' 确保窗体显示在当前活动屏幕的可见区域
    Me.Move Screen.ActiveMonitor.Left + 50, Screen.ActiveMonitor.Top + 50
    ' 可选：重置排序状态
    Me.OrderBy = ""
    Me.OrderByOn = False
End Sub

3. 关闭窗体时重置位置（可选） #

为了避免关闭时的位置被持久化，也可以在窗体的Close事件中强制把窗体移回主屏幕：

Private Sub Form_Close()
    Me.Move Screen.ActiveMonitor.Left + 50, Screen.ActiveMonitor.Top + 50
End Sub

三、排查验证方法 #

如果不确定是不是窗体被“藏”起来了，可以按以下步骤验证：

• 点击菜单按钮后，按Ctrl+G调出VBA立即窗口；
• 在立即窗口中输入以下命令并回车：

  ? Forms!frmOutput.Visible ' 查看窗体是否可见
  ? Forms!frmOutput.Left ' 查看窗体的水平位置
  ? Forms!frmOutput.Top ' 查看窗体的垂直位置
  

如果Visible返回True，但Left/Top的数值超出当前屏幕的范围（比如Left是负数，或者远大于屏幕宽度），就可以确认是窗体位置偏移的问题。

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