Access VBA打开查询与报表后焦点异常问题求助

方案1：通过Windows API强制设置报表窗口焦点 #

Office更新后，Access内置命令的焦点优先级逻辑发生变化，直接用Windows API定位并激活报表窗口是最可靠的解决方式。

1. 在模块顶部添加API声明（兼容32/64位Access）：

#If VBA7 Then
    Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
    Declare PtrSafe Function SetForegroundWindow Lib "user32" (ByVal hWnd As LongPtr) As Long
#Else
    Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As Long) As Long
#End If

2. 修改原有代码，在打开报表后调用API激活窗口：

Dim stDocName As String
Dim reportHWnd As Variant
stDocName = "FinInvProductionQuery"

DoCmd.OpenQuery stDocName, , acReadOnly
DoCmd.OpenReport stDocName, acViewPreview

' 确保报表窗口完成加载
DoEvents
' 匹配报表窗口标题（默认格式为「报表名称 - 报表」）
reportHWnd = FindWindow("OMain", stDocName & " - 报表")
If reportHWnd <> 0 Then
    SetForegroundWindow reportHWnd
End If

如果报表有自定义窗口标题，需要调整FindWindow的第二个参数以匹配实际标题。

方案2：调整窗口打开顺序控制焦点 #

通过先隐藏打开报表，再打开查询，最后显示并激活报表，绕过更新后的焦点优先级逻辑：

Dim stDocName As String
stDocName = "FinInvProductionQuery"

' 隐藏打开报表，避免抢占焦点
DoCmd.OpenReport stDocName, acViewPreview, WindowMode:=acHidden
' 打开查询
DoCmd.OpenQuery stDocName, , acReadOnly
' 显示并激活报表
DoCmd.SelectObject acReport, stDocName
' 可选：最大化报表窗口强化焦点效果
DoCmd.Maximize

方案3：禁用查询窗口自动激活 #

先隐藏打开查询，手动显示后再激活报表，避免查询窗口在打开时自动获取焦点：

Dim stDocName As String
stDocName = "FinInvProductionQuery"

' 隐藏打开查询，阻止自动激活
DoCmd.OpenQuery stDocName, , acReadOnly, acHidden
' 手动显示查询窗口
DoCmd.SelectObject acQuery, stDocName
' 打开报表
DoCmd.OpenReport stDocName, acViewPreview
' 强制激活报表窗口
DoCmd.SelectObject acReport, stDocName

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