Access 2010 VBAのRecordsetからメーリングリストを作成しますか？

Question

テーブルからメールアドレスを引き出し、「to」で使用できる文字列にフォーマットしようとしています。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

Answer 1

あなたはそれを逃しました MoveNext 電話：

この行をdo unt loopに追加します

rs.MoveNext()