在VBA Access 365报表OnOpen事件中获取记录数的方法

你遇到的问题是因为Report.Recordset属性仅支持ADP（Access数据项目）格式，ACCDB格式中无法使用该属性。以下是两种可行的解决办法：

方法一：使用DCount函数直接统计 #

这是最简单的方式，直接通过DCount计算报表数据源的记录总数：

Private Sub Report_Open(Cancel As Integer)
    Dim recordCount As Long
    ' 替换为你的报表数据源名称（表/查询），唯一字段用*即可
    recordCount = DCount("*", "报表数据源名称")
    
    If recordCount = 0 Then
        MsgBox "没有可显示的记录，报表将关闭。", vbInformation
        Cancel = True ' 取消报表打开操作
    End If
End Sub

如果报表数据源是带参数的查询，需要在DCount中补充条件，例如：
recordCount = DCount("*", "带参数查询", "ID = Forms!查询参数窗体!ID控件")

方法二：通过DAO.RecordsetClone获取记录数 #

这种方式适合需要更复杂记录操作的场景，步骤如下：

1. 打开VBA编辑器，点击「工具」→「引用」，勾选「Microsoft DAO xx.x Object Library」（xx.x为版本号，如16.0）
2. 在报表OnOpen事件中添加代码：

Private Sub Report_Open(Cancel As Integer)
    Dim rs As DAO.Recordset
    Dim recordCount As Long
    
    Set rs = Me.RecordsetClone ' 获取报表数据源的副本记录集
    rs.MoveLast ' 必须移动到记录末尾，才能获取准确的总记录数
    recordCount = rs.RecordCount
    
    If recordCount = 0 Then
        MsgBox "没有可显示的记录，报表将关闭。", vbInformation
        Cancel = True
    End If
    
    ' 释放资源
    rs.Close
    Set rs = Nothing
End Sub

说明：RecordsetClone是ACCDB格式报表支持的属性，不会影响报表本身的记录导航。

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