如何使用VBA在MS Access中程序化查找并定位子报表记录？

Access中子报表无法像子窗体那样直接通过Bookmark定位记录，因为报表的设计定位是展示/打印而非交互式操作，但可以通过以下两种方式实现不筛选且跳转目标记录的需求：

方法1：通过记录集滚动到目标位置 #

利用子报表的记录集克隆找到目标记录，再通过ScrollTo方法让报表滚动到对应位置，代码示例：

Dim subRptRS As Recordset
Set subRptRS = Me!子报表控件名称.Report.RecordsetClone
' 替换成你的筛选条件
subRptRS.FindFirst "CodeID = " & MyID
If Not subRptRS.NoMatch Then
    ' 滚动到目标记录的位置
    Me!子报表控件名称.Report.ScrollTo subRptRS.AbsolutePosition
End If
subRptRS.Close
Set subRptRS = Nothing

注意：AbsolutePosition在动态集类型的记录集中可能存在索引偏移问题，如果遇到异常，可以尝试改用快照类型的记录集。

方法2：预览模式下的交互式定位（依赖界面交互） #

如果报表处于预览状态且允许交互，可以通过让子报表获得焦点后，遍历记录并模拟滚动来定位，代码示例：

Dim subRpt As Report
Set subRpt = Me!子报表控件名称.Report
' 让子报表控件获得焦点
Me!子报表控件名称.SetFocus

Do While Not subRpt.EOF
    If subRpt!CodeID = MyID Then
        Exit Do
    End If
    ' 模拟向下箭头滚动到下一条记录
    SendKeys "{DOWN}", True
    subRpt.MoveNext
Loop
Set subRpt = Nothing

这种方法仅适用于报表预览场景，打印时无效，且稳定性受界面状态影响。

如果需要更流畅的交互式定位体验，建议优先考虑使用子窗体替代子报表，毕竟窗体的交互设计更适合这类操作。

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