4

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 上共享屏幕是最好的选择。

4

1 回答 1

6

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

您需要将前三个MIDs 选择为 a 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.

于 2012-06-25T21:19:47.203 回答