Question

使用Combobox设置DealID，它需要在其下方的字段中显示最多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？

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

如果有人愿意提供帮助但不理解（我的提交通常就是这种情况），我认为Skype上的屏幕共享是最好的选择。

Answer 1

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

您需要在MID中选择前三个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。

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

1 个答案: