如何最小化Access应用后最大化并将焦点返回到Access应用？

这个问题我之前帮不少人解决过——acDialog模态表单的特性确实会给窗口焦点控制添点麻烦，咱们一步步来搞定它：

核心原因 #

acDialog模式的表单会独占应用程序的焦点，当你在它调用的函数里执行DoCmd.Minimize后，Access主窗口被最小化，但模态表单的焦点锁还在生效；后续DoCmd.Maximize虽然恢复了窗口大小，但系统没自动把焦点从模态相关的资源切回主窗口。

解决方案1：用API强制设置主窗口焦点（最直接的修复） #

这是改动最小的方案，只需要在现有代码后加几行API调用，就能强制把焦点拉回Access主窗口：

1. 首先在Access的标准模块里添加API声明（适配32/64位版本）：

Declare PtrSafe Function SetForegroundWindow Lib "user32.dll" (ByVal hWnd As LongPtr) As Boolean

2. 然后在你的函数里修改代码：

' 先最小化Access窗口
DoCmd.Minimize

' 这里放你原本的处理逻辑...

' 恢复最大化
DoCmd.Maximize

' 强制将焦点设置到Access主窗口
SetForegroundWindow Application.hWndAccessApp

Application.hWndAccessApp会直接获取Access主窗口的句柄，配合SetForegroundWindow就能强制让主窗口回到前台并获得焦点。

解决方案2：改用窗口可见性控制替代Minimize #

如果不想用API，也可以通过直接切换主窗口的可见性来达到类似效果，这种方式更稳定，不会触发焦点混乱：

' 先隐藏Access主窗口
Application.Visible = False

' 执行你的处理逻辑...

' 恢复主窗口可见并最大化
Application.Visible = True
DoCmd.Maximize

这种方法跳过了Minimize操作，直接隐藏窗口，恢复时Access会自动将主窗口设为前台，焦点问题自然解决。

解决方案3：调整Maximize的执行时机 #

如果你的函数是由acDialog表单的事件（比如按钮点击）触发的，还可以把最大化的逻辑移到表单的Close事件里：

Private Sub Form_Close()
    DoCmd.Maximize
    ' 保险起见可以加上API调用
    SetForegroundWindow Application.hWndAccessApp
End Sub

当模态表单关闭后，再执行最大化操作，此时没有模态窗口的焦点阻塞，主窗口就能正常获取焦点了。

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