遍历Access表并为每位销售人员发送对应数据邮件的问题排查

以下是针对你遇到的空白报表问题的具体修正方案：

关键问题排查与修正 #

1. 修复报表关闭的名称错误 #

原代码中关闭报表时使用了错误的名称"reportname"，必须替换为实际报表名"DropShipReportDSM"，否则报表无法正确关闭，导致后续循环的筛选逻辑失效：

DoCmd.Close acReport, "DropShipReportDSM", acSaveNo

2. 修正筛选条件的语法 #

如果DSMKey是文本类型，筛选条件需要用单引号包裹，否则会因语法错误导致筛选失效，报表显示空白：

DoCmd.OpenReport "DropShipReportDSM", acViewPreview, , "DSMKey = '" & rs!DSMKey & "'"

若DSMKey是数值类型，保留原写法即可，但要确保字段值不为空且与报表数据源的字段类型匹配。

3. 确保报表加载完成后再发送 #

添加DoEvents让Access完成报表渲染，避免因报表未加载完全就执行发送操作导致空白：

DoCmd.OpenReport "DropShipReportDSM", acViewPreview, , "DSMKey = '" & rs!DSMKey & "'"
DoEvents ' 等待报表渲染完成

4. 改用导出Excel再发送的可靠方式 #

直接使用SendObject有时会因报表渲染延迟导致空白，建议先将报表导出为临时Excel文件，再作为附件发送：

Public Sub SendRptDSM()
    Dim strSQL As String
    Dim rs As DAO.Recordset
    Dim tempPath As String

    strSQL = "SELECT * FROM DropShipReportDSM"
    Set rs = CurrentDb.OpenRecordset(strSQL)

    If Not rs.BOF And Not rs.EOF Then
        rs.MoveFirst
        Do While Not rs.EOF
            ' 生成唯一临时文件路径
            tempPath = Environ("TEMP") & "\DSM_Report_" & rs!DSMKey & ".xlsx"
            
            ' 按筛选条件导出报表到Excel
            DoCmd.OutputTo acOutputReport, "DropShipReportDSM", acFormatXLSX, tempPath, False, "DSMKey = '" & rs!DSMKey & "'"
            
            ' 发送带附件的邮件
            DoCmd.SendObject acSendNoObject, , , rs![DSMEmail], , , "您的销售数据报表", "您好，附件是您的专属销售报表，请查收。", True, tempPath
            
            ' 删除临时文件（可选）
            Kill tempPath
            
            rs.MoveNext
        Loop
    End If
    rs.Close
    Set rs = Nothing
End Sub

注意：若DSMKey是数值类型，去掉筛选条件中的单引号；确保临时文件路径有写入权限。

5. 验证报表本身的有效性 #

手动打开报表，输入筛选条件DSMKey = [具体销售人员ID]，确认是否能显示对应数据。如果手动打开也空白，说明报表的数据源或字段绑定存在问题，需检查报表的记录源设置和字段关联。

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