Ms access Access VBA将多个值写入表单上的单个文本字段

我正在尝试将多个值连接到表单上的单个文本字段中，需要帮助将这些值指定给文本字段

设置：我有一个访问表单，用户可以选择下拉列表并选择ID号。选择ID，然后单击按钮将运行一个查询，该查询可以返回一行或多行结果。结果中返回的行除了一个字段（例如描述）外，都将有重复的数据。我试图循环遍历结果，并将描述添加到表单上的文本字段中，以便显示每行的所有字段值，从而列出所有描述

返回的数据示例： 栏目：

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

在文本框中，我试图添加值，我希望它按顺序将说明添加到单个文本框中

文本框包含： 主题： 身份证

正文： 基础知识 XYZ LMN 卡兹

这里是我到目前为止的代码：它可以工作，但我不知道如何将描述连接在一起

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

当Do循环时，在每个值中添加annBody变量时，Do之外是否应该有annBody变量？

您可以“累积”每个记录的描述字段的内容：

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)

您可以“累积”每个记录的描述字段的内容：

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)

---

这是一个常见的话题。您是否搜索了“连接相关记录”？回顾我用过各种各样的谷歌搜索试图找到我需要的东西，但我没有找到确切的搜索结果。现在读一遍。这是一个常见的话题。您是否搜索了“连接相关记录”？回顾我用过各种各样的谷歌搜索试图找到我需要的东西，但我没有找到确切的搜索结果。现在读一遍。