DLookup的具体应用

示例

下面的示例将从满足 criteria 内容记录的“CompanyName”字段中返回名称信息。域为“Shippers”表。criteria 参数将结果记录集限制为“ShipperID”等于 1 的记录。

Dim varX As Variant
varX = DLookup("[CompanyName]", "Shippers", "[ShipperID] = 1")
		

下一个示例来自 Shippers 表，它使用窗体控件 ShipperID 来为 DLookup 函数提供条件。请注意，控件的两侧未加上用以表示字符串的引号，这样可以确保每次调用 DLookup 函数时，Microsoft Access 都将从控件中获取当前值。

Dim varX As Variant
varX = DLookup("[CompanyName]", "Shippers", "[ShipperID] = " _
    & Forms!Shippers!ShipperID)
		

下一个示例使用变量 intSearch 来获取值。

Dim intSearch As Integer
Dim varX As Variant

intSearch = 1
varX = DLookup("[CompanyName]", "Shippers", _
    "[ShipperID] = " & intSearch)