在访问2010 vba中创建记录集的邮件列表？

Question

我试图从表格中拉出电子邮件地址，并将它们格式化为可用于Outlook邮件的“TO：”字段的字符串。出于某种原因，我写的循环冻结了程序。任何人都可以发现我做错了什么或提供更好的方法来做到这一点？这里是代码，我目前的样子：

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 

Answer 1

你错过了MoveNext电话：

此行添加到DO直到循环

rs.MoveNext()