Loops 从access 2010 vba中的记录集创建邮件列表？_Loops_Recordset_Ms Access 2010_Mailing List

Loops 从access 2010 vba中的记录集创建邮件列表？

loops

Loops 从access 2010 vba中的记录集创建邮件列表？,loops,recordset,ms-access-2010,mailing-list,Loops,Recordset,Ms Access 2010,Mailing List,我正在尝试从表中提取电子邮件地址，并将其格式化为一个字符串，该字符串可用于outlook邮件的“收件人：”字段。出于某种原因，我编写的循环正在冻结程序。有人能发现我做错了什么，或者提供更好的方法吗？以下是我目前掌握的代码： Private Function GetMailingList() As String Dim db As DAO.Database Dim rs As DAO.Recordset Dim results As String results

我正在尝试从表中提取电子邮件地址，并将其格式化为一个字符串，该字符串可用于outlook邮件的“收件人：”字段。出于某种原因，我编写的循环正在冻结程序。有人能发现我做错了什么，或者提供更好的方法吗？以下是我目前掌握的代码：

Private Function GetMailingList() As String

    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim results As String

    results = ""
    Set db = CurrentDb
    Set rs = db.OpenRecordset("lut_holdEmailList")

        Do Until rs.EOF
            results = results & rs.Fields("emailAddress") & ", "

        Loop

    GetMailingList = results

End Function

你错过了下一个电话：

将此行添加到Do-Untill循环中

rs.MoveNext()