如何将Microsoft Access子窗体数据添加到邮件？已尝试循环方案未成功

问题诊断 #

你当前的两种循环方案都存在结构或取值错误，导致子窗体数据无法正常显示：

1. 循环尝试1：缺少HTML表格的<td>单元格标签，所有字段内容会无格式堆叠；未明确获取字段的.Value属性，且未添加表头行。
2. 循环尝试2：直接使用Field1等未定义变量，未从记录集rs中读取对应字段值；未闭合<tr>标签，同样缺少表头。

修正后的完整代码 #

以下代码会正确生成带表头的HTML表格，读取子窗体关联记录，并处理空值避免拼接错误：

Private Sub Command80_Click()
    Dim Msg As String
    Dim rs As DAO.Recordset
    Dim i As Integer
    Dim strTable As String
    Dim fieldName As String
    
    ' 获取子窗体关联父记录的当前记录集副本
    Set rs = Forms!formName!subformName.Form.RecordsetClone
    
    ' 邮件正文开头内容
    Msg = "Dear " & Me.Contact & ",<P>" & "Email message is here. <P><BR>"
    
    ' 初始化HTML表格并添加表头
    strTable = "<Table border='1' cellpadding='4' cellspacing='0'>"
    For i = 0 To rs.Fields.Count - 1
        fieldName = rs.Fields(i).Name
        strTable = strTable & "<TH>" & fieldName & "</TH>"
    Next
    strTable = strTable & "</TR>"
    
    ' 遍历记录集生成表格数据行
    Do Until rs.EOF
        strTable = strTable & "<TR>"
        For i = 0 To rs.Fields.Count - 1
            ' 处理空值，避免HTML显示异常或代码报错
            Dim fieldValue As String
            fieldValue = Nz(rs.Fields(i).Value, "")
            strTable = strTable & "<TD>" & fieldValue & "</TD>"
        Next
        strTable = strTable & "</TR>"
        rs.MoveNext
    Loop
    strTable = strTable & "</Table>"
    
    ' 组合完整邮件正文
    Dim strBody As String
    strBody = Msg & strTable
    
    ' 生成Outlook邮件草稿
    Dim O As Outlook.Application
    Dim M As Outlook.MailItem
    
    Set O = New Outlook.Application
    Set M = O.CreateItem(olMailItem)
    
    With M
        .BodyFormat = olFormatHTML
        .HTMLBody = strBody
        .To = Me.Email
        .Subject = "Subject"
        .Display
    End With
    
    ' 释放对象资源
    Set M = Nothing
    Set O = Nothing
    Set rs = Nothing
End Sub

关键修正点 #

• 完善表格结构：补充<TH>表头标签和<TD>单元格标签，确保HTML表格格式规范。
• 正确读取字段值：通过rs.Fields(i).Value从记录集中获取字段内容，避免使用未定义变量。
• 空值处理：用Nz()函数将空值转换为空字符串，防止拼接时产生错误或显示异常。
• 控件引用优化：使用Me.Contact和Me.Email直接引用主窗体控件值（需确保控件名称与代码一致）。
• 资源释放：添加Set rs = Nothing释放记录集对象，避免内存泄漏。

内容的提问来源于stack exchange，提问作者H. Denis