获取“Access 2013报告”中的列作为分号分隔的字符串值

Question

我有一份报告 - 新客户，显示客户在过去一个月内添加的“客户”表中的子集。报告中的一个字段是“电子邮件地址”。我的要求是我想添加一个按钮“向这些客户发送电子邮件”，此按钮应该打开一个'新电子邮件正文'。我已经想通了。

现在是棘手的部分。如何将“新客户报告”中的所有电子邮件地址作为电子邮件的“收件人”字段中的分号分隔列表获取？

OpenRecordset可以与报告一起使用吗？

Answer 1

这会创建一个名为list的字符串，其中包含记录集中的所有电子邮件，只需将rs = db.OpenRecordset调整为报告的Record Source：

Set db = CurrentDb()
Set rs = db.OpenRecordset("SELECT * FROM tblCustomers WHERE [JoinDate] + 30 >= Date()")

Dim list As String

With rs
    .MoveFirst
    list = ![Email]
    .MoveNext

    While Not .EOF
        list = list & ";" & ![Email]
        .MoveNext
    Wend
End With