Question

我尝试将多个值连接到表单上的单个文本字段，并需要有关将这些值分配给文本字段的帮助。

设置：我有一个访问表单，用户可以选择下拉列表并选择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

在文本框中，我尝试将值添加到我希望它按顺序将描述添加到单个文本框中。

文本框包含：学科： 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

在Do之外是否存在annBody变量，而在循环时在每个值中添加？

Answer 1

您可以“累积”每条记录的“说明”字段的内容：

memswap_limit

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

1 个答案: