Access：自动将焦点设置到子窗体数据表中复选框勾选的控件

问题根源 #

你当前的代码只检查当前焦点所在行的chk_select值，而不是验证是否存在任何被勾选的记录。所以当光标停在未勾选的行时，即使其他行已经勾选，代码也会进入Else分支弹出提示，这就是问题所在。

修正后的代码 #

我们可以通过操作子窗体的记录集，先找到第一个被勾选的记录，自动将焦点定位过去，再执行打开表单的操作：

Private Sub btn_open_estimate2_Click()
    Dim subfrm As Form
    Dim rs As Recordset
    
    ' 获取子窗体的Form对象，简化后续操作
    Set subfrm = Forms![View Estimates]![TblEstimates subform].Form
    ' 克隆子窗体的记录集（避免直接修改原记录集的指针位置）
    Set rs = subfrm.RecordsetClone
    
    ' 在记录集中查找第一个chk_select为True的记录
    rs.FindFirst "chk_select = True"
    
    If Not rs.NoMatch Then
        ' 将子窗体的记录指针同步到找到的已勾选记录
        subfrm.Bookmark = rs.Bookmark
        ' 把焦点设置到该行的复选框控件
        subfrm![chk_select].SetFocus
        
        ' 打开明细表单，筛选所有已勾选的记录
        DoCmd.OpenForm "Edit Estimate", , , "chk_select = True"
        DoCmd.Close acForm, "View Estimates", acSaveYes
    Else
        ' 没有找到任何勾选记录时才弹出提示
        MsgBox "Please select an Estimate to open.", vbExclamation, "No Estimate Selected"
    End If
    
    ' 释放占用的对象资源
    Set rs = Nothing
    Set subfrm = Nothing
End Sub

关键代码说明 #

• RecordsetClone：创建子窗体记录集的副本，我们可以在这个副本上自由查找记录，不会打乱子窗体原本的显示位置，直到用Bookmark同步定位。
• rs.FindFirst：快速定位到第一个满足勾选条件的记录，比遍历所有记录效率更高。
• subfrm.Bookmark = rs.Bookmark：这是Access中定位记录的标准方式，能精准把子窗体的光标移到我们找到的已勾选行。

额外优化提示 #

你原来的筛选条件"TblEstimates.select = True"存在小问题：select是SQL保留字，建议用方括号括起来（[select]），或者直接用控件绑定的字段名chk_select，这样更不容易出错。

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