使用 Dlookup 返回访问中的多个项目答案

【问题标题】：Return multiple items in access using Dlookup使用 Dlookup 返回访问中的多个项目
【发布时间】：2012-06-16 00:00:49
【问题描述】：

DealID 使用 Combobox 设置，需要在其下方的字段中显示最多 3 个 MID

Private Sub DealID_AfterUpdate()
Dim strFilter As String
strFilter = "DealID = " & Me!DealID
Me!MID = DLookup("MID", "DealContent", strFilter)
Exit_ProductID_AfterUpdate:
Exit Sub
End Sub

这就是我使用的代码，明显的限制是 Dlookup 只返回它找到的第一个结果。这会产生 2 个问题，但我会专注于第一个，它不会显示多个 MID

那么我如何才能显示 1-3 个 MID？

我遇到的第二个问题更深入，但如果有人想提供帮助，我们将不胜感激。基本上上面的表单是一个子表单，我需要它在表单表中为每个安装 ID 保存一个单独的条目。

如果有人想提供帮助但不理解（我提交的内容经常出现这种情况），我认为在 Skype 上共享屏幕是最好的选择。

【问题讨论】：

DLookup 仅用于返回一个值。您是否考虑过使用 RecordSet？
关于你的第二个问题：请从这个问题中删除它并为它发布一个新问题。在一个问题中问两种不同的东西太令人困惑了。

标签： ms-access vba

【解决方案1】：

正如评论中已经说过的，您不能使用DLookup 返回多个值。

您需要将前三个MIDs 选择成一个Recordset，遍历它们并将它们附加到Me!MID：

Dim RS As DAO.Recordset
Dim SQL As String

'ordering is only important if you want the FIRST three MIDs.
'If you don't care, just omit the "order by MID" part.
SQL = "select top 3 MID from DealContent where DealID = xxx order by MID"

Set RS = CurrentDb.OpenRecordset(SQL)
Do While Not RS.EOF
    Me!MID = Me!MID & RS("mid") & " "
    RS.MoveNext
Loop
RS.Close
Set RS = Nothing

请注意，此示例使用 DAO，这是较新 Access 版本中的默认（MS 推荐）数据访问技术。旧版本默认使用 ADO。
DAO 也可以在那里工作，您只需要引用 Microsoft DAO x.x Object Library。

【讨论】：