在「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