例如,假设有一个基于订单明细表的表单。 表单显示 orderID、 ProductID、 UnitPrice、 数量和折扣字段。 但是,UnitPrice 字段位于另一个表中:产品。 您可以在计算控件中使用 DLookup 函数,以在用户选择产品时在同一窗体上显示 UnitPrice。
下面的示例使用 ProductID 组合框中当前所选产品的价格填充 UnitPrice 文本框。
Private Sub ProductID_AfterUpdate()
' 在将过滤器传递给DLookup函数之前对其进行赋值
strFilter = "ProductID = " & Me!ProductID
' 查找产品的单价,并将其赋值给UnitPrice控件.
Me!UnitPrice = DLookup("UnitPrice", "Products", strFilter)
End Sub
函数有三个参数。 第一个参数指定要查询的字段(“单价”);第二参数指定表(“产品”);第三个参数指定要查找的值(“产品 ID”与“订单”子窗体中当前记录上的“产品 ID”相同的记录的值)。