Access拆分窗体（SplitForm）：如何用VBA在数据表与窗体区切换焦点

核心问题背景 #

拆分窗体的数据表区与窗体区是独立的焦点容器，直接用Control.SetFocus或DoCmd.GoToControl无法跨区域定位子窗体，而SendKeys稳定性差易跳至功能区。以下是可靠替代方案：

方案1：先聚焦窗体区原生控件，再定位子窗体 #

由于子窗体属于窗体区容器，需先让窗体区获得焦点（通过聚焦窗体区的任意原生控件，比如页眉的组合框/按钮），再对子窗体设置焦点：

' 从数据表区切换到窗体区的子窗体
Me.cboFilter.SetFocus ' 先聚焦窗体页眉的组合框（确保该控件属于窗体区域）
Me.subProductDetails.SetFocus ' 再定位到子窗体

注：需确保选择的原生控件（如示例中的cboFilter）未绑定到数据表，且属于窗体区域（而非数据表区）。

方案2：用内置命令切换窗格（对应F6/Shift+F6） #

Access内置了对应F6/Shift+F6的命令，稳定性远高于SendKeys：

' 切换到下一个窗格（数据表区 → 窗体区，等价于F6）
DoCmd.RunCommand acCmdNextPane

' 切换到上一个窗格（窗体区 → 数据表区，等价于Shift+F6）
DoCmd.RunCommand acCmdPreviousPane

切换完成后，可直接用SetFocus定位目标控件：

' 切换到窗体区后定位子窗体
DoCmd.RunCommand acCmdNextPane
Me.subProductDetails.SetFocus

' 切换到数据表区后定位指定字段
DoCmd.RunCommand acCmdPreviousPane
Me.ProductID.SetFocus

方案3：通过API句柄直接定位数据表区域 #

若需更底层的精准控制，可通过Windows API获取数据表区域的句柄并设置焦点（适配Access 64位）：

' 声明API函数（64位Access）
Private Declare PtrSafe Function SetFocus Lib "user32.dll" (ByVal hWnd As LongPtr) As LongPtr
Private Declare PtrSafe Function FindWindowEx Lib "user32.dll" Alias "FindWindowExA" (ByVal hWnd1 As LongPtr, ByVal hWnd2 As LongPtr, ByVal lpsz1 As String, ByVal lpsz2 As String) As LongPtr

' 将焦点设置到拆分窗体的数据表区域
Sub SetFocusToDatasheet()
    Dim hWndSplitForm As LongPtr
    Dim hWndDatasheet As LongPtr
    
    hWndSplitForm = Me.hWnd ' 获取主拆分窗体的句柄
    ' 查找数据表区域的子窗口（类名固定为"OGrid"）
    hWndDatasheet = FindWindowEx(hWndSplitForm, 0, "OGrid", vbNullString)
    
    If hWndDatasheet <> 0 Then
        SetFocus hWndDatasheet
    End If
End Sub

注：该方法依赖Access窗口类名，"OGrid"在Access 2016中稳定可用。

最佳实践 #

1. 优先使用DoCmd.RunCommand acCmdNextPane/acCmdPreviousPane切换窗格，操作简单且稳定；
2. 若需定位子窗体，先切换窗格或聚焦窗体区原生控件，再对子窗体调用SetFocus；
3. 避免使用SendKeys，除非无其他替代方案。

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