Access 2016：窗体加载时如何选中数据表子窗体的整条记录

问题背景 #

• 存在一对多关系的两张基础表，启动时打开的主窗体包含非绑定组合框，可筛选数据表子窗体内容，核心筛选功能正常。
• 需求：数据库启动时，子窗体不仅要定位到特定记录（已通过Form.RecordsetClone+FindFirst+Bookmark实现），还要让该记录整条显示红色选中边框。

现有问题与尝试 #

• 直接在Form_Load中执行记录选中代码，记录会短暂选中后自动取消，焦点转移到记录内的控件上。
• 通过设置TimerInterval=1，在Form_Timer中执行选中代码可实现需求，但这种方案属于临时 workaround，并非最优解。
• 已尝试过以下方法，均未解决问题：
  • 禁用其他事件处理代码
  • 将选中代码移至Form_Current事件
  • 移除子窗体的条件格式
  • 调整窗体的焦点、选中相关属性

优化方案：利用Form_Activate事件替代Timer #

Access窗体的Form_Load事件触发时，子窗体的控件可能还未完成最终的焦点初始化，导致后续系统自动将焦点移至记录内控件，覆盖手动选中操作。改用主窗体的Form_Activate事件执行选中逻辑，此时窗体及所有子控件已完全加载并激活，不会被后续的默认焦点操作干扰。

修改后的代码示例 #

Private Sub Form_Load()
    '初始化组合框（选中第一项）
    Me.cboSeries.SetFocus
    Me.cboSeries = Me.cboSeries.ItemData(0)

    Dim rs As Recordset
    Dim rs2 As Recordset
    '设置主窗体记录并重新查询子窗体
    Set rs = Form_Main.RecordsetClone
    rs.FindFirst "[SeriesID] = " & str(Nz(Form_Main.cboSeries, 0))
    If Not rs.EOF Then Form_Main.Bookmark = rs.Bookmark
    Form_Main.frmEps.Form.Requery

    '定位子窗体到目标记录
    Set rs2 = Form_Main.frmEps.Form.RecordsetClone
    rs2.FindFirst "[Watched] = false"
    If Not rs2.EOF Then Form_Main.frmEps.Form.Bookmark = rs2.Bookmark

    rs.Close
    rs2.Close
    Set rs = Nothing
    Set rs2 = Nothing
End Sub

Private Sub Form_Activate()
    '执行记录选中操作
    Form_Main.frmEps.SetFocus
    Form_Main.frmEps.Form.SeasonNumber.SetFocus '定位到子窗体第一个控件
    RunCommand acCmdSelectRecord
End Sub

补充说明 #

如果只需要在启动时执行一次选中操作（避免窗体再次激活时重复执行），可以添加窗体级变量做标记：

'在窗体模块顶部声明变量
Private isFirstActivate As Boolean

Private Sub Form_Load()
    isFirstActivate = True
    '原Form_Load代码...
End Sub

Private Sub Form_Activate()
    If isFirstActivate Then
        Form_Main.frmEps.SetFocus
        Form_Main.frmEps.Form.SeasonNumber.SetFocus
        RunCommand acCmdSelectRecord
        isFirstActivate = False
    End If
End Sub

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