Access 2016弹出窗体Alt-Tab切换后无法恢复焦点问题咨询

我之前也碰到过这种闹心的情况——编辑弹出的详情窗体到一半，切出去查个资料或复制文本，切回Access居然直接跳回数据表了，还得重新找弹出窗，太打断思路了！这里有几个经过验证的解决方案，你可以按需尝试：

方法1：用Windows API锁定弹出窗体的激活状态 #

Access本身没有内置的“保持弹出窗焦点”选项，但可以通过API来强制控制焦点。步骤如下：

1. 打开弹出详情窗体的设计视图，按Alt+F11打开VBA编辑器。
2. 在窗体的模块中粘贴以下代码：

' 声明适配64位Access的API函数
Private Declare PtrSafe Function SetForegroundWindow Lib "user32" (ByVal hwnd As LongPtr) As Long
Private Declare PtrSafe Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As LongPtr, lpdwProcessId As Long) As Long
Private Declare PtrSafe Function AttachThreadInput Lib "user32" (ByVal idAttach As Long, ByVal idAttachTo As Long, ByVal fAttach As Long) As Long

Private Sub Form_Activate()
    Dim currentThreadId As Long
    Dim accessMainThreadId As Long
    Dim accessMainHwnd As LongPtr
    
    ' 获取当前弹出窗体的线程ID
    currentThreadId = GetWindowThreadProcessId(Me.hwnd, 0)
    ' 获取Access主窗口的线程ID
    accessMainHwnd = Application.hWndAccessApp
    accessMainThreadId = GetWindowThreadProcessId(accessMainHwnd, 0)
    
    ' 绑定线程并强制当前窗体成为前台窗口
    AttachThreadInput currentThreadId, accessMainThreadId, True
    SetForegroundWindow Me.hwnd
    AttachThreadInput currentThreadId, accessMainThreadId, False
End Sub

如果你用的是32位Access，把代码里的PtrSafe去掉即可（比如Declare PtrSafe改成Declare）。

3. 保存代码后测试：打开弹出窗，切到记事本再切回Access，焦点应该会稳稳留在弹出窗体上。

方法2：通过Access激活事件强制切换焦点 #

如果不想用API，也可以利用Access的应用级激活事件来处理：

1. 新建一个标准模块，添加以下代码：

Public Sub FocusPopupForm()
    ' 替换成你的弹出窗体名称
    Const POPUP_FORM_NAME As String = "你的详情窗体名称"
    
    ' 检查窗体是否已加载，是则激活它
    If CurrentProject.AllForms(POPUP_FORM_NAME).IsLoaded Then
        Forms(POPUP_FORM_NAME).SetFocus
    End If
End Sub

2. 在数据库的启动窗体（或任何打开时会加载的窗体）的Form_Load事件中添加：

Private Sub Form_Load()
    ' 绑定应用激活事件
    Application.OnActivate = "FocusPopupForm"
End Sub

这样每次Access从后台切回时，都会自动把焦点放到已打开的弹出窗体上。

方法3：调整窗体属性（简单但有局限性） #

如果你的业务场景允许，调整弹出窗体的属性也能解决问题：

• 打开弹出窗体的设计视图，在属性表中：
  • 把「弹出方式」设为「是」
  • 把「模式」设为「是」
    模式窗体打开时会锁定父数据表窗体，切回Access时焦点自然会留在模式窗体上，但缺点是不能同时操作数据表，适合不需要边编辑详情边查看数据表的场景。

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