フォームにある複数の値を単一のテキストフィールドに書き込む

Question

複数の値をフォーム上の1つのテキストフィールドに連結しようとしていますが、これらの値をテキストフィールドに割り当てる際に助けが必要です。

セットアップ：ユーザーがドロップダウンを選択してID番号を選択できるアクセスフォームがあります。 IDを選択してからボタンをクリックすると、1つまたは複数の結果行を返すクエリが実行されます。結果に返される行には、1つのフィールド（説明など）を除いてデータが重複しています。結果をループし、フォームのテキストフィールドに説明を追加して、各行のすべてのフィールド値を表示し、すべての説明をリストします。

データの例は、返さ： 列：

ID | Issue Date | Description | CBD | ECD 

結果リターンが1行以上のことができます。たとえば、テキストボックスに

17-0001 | 11/30/2017 | ABC | 12/5/2017 | 12/10/2017 
17-0001 | 11/30/2017 | XYZ | 12/5/2017 | 12/10/2017 
17-0001 | 11/30/2017 | LMN | 12/5/2017 | 12/10/2017 
17-0001 | 11/30/2017 | QAZ | 12/5/2017 | 12/10/2017 

下に私がに値を追加しようとしています私はそれが単一のテキストボックスに説明を順番に追加したいと思う。

テキストボックスが含まれています 件名： ID

本文テキスト： ABC XYZ LMN QAZ

ここ

私がこれまで持っているコードです：それは動作しますが、私はただではないが、必ずどのように取得するには一緒に連結する記述。

Private Sub createAnnouncement_Click() 
Dim qdf As DAO.QueryDef 
Dim rst As DAO.Recordset 
Dim db As Database 
Dim issID As String 

Set db = CurrentDb 
Set qdf = db.QueryDefs("nso_announce_qry") 
qdf.Parameters(0) = Forms![NSO Announcements]!annID 

Set rst = qdf.OpenRecordset 

annSubject = rst.Fields("Issuance Title") 

Do While (Not rst.EOF) 
    MsgBox (rst.Fields("Issuance Detail Description").Value) 
    rst.MoveNext 
Loop 
End Sub 

DoBの外にannBody変数があり、ループしながら各値に追加する必要がありますか？

Answer 1

あなたが「acumulate」各レコードの説明]フィールドの内容は次のことができます。これは、共通の話題である

Dim concatenated as String 

Do While (Not rst.EOF) 
    concatenated = concatenated + rst.Fields("Issuance Detail Description") + " " 
    rst.MoveNext 
Loop 
concatenated = Left(concatenated, Len(concatenated) - 1)