DLookup 函數
DLookup 函數用于從指定記錄集（一個域）獲取特定字段的值。可以在 Visual Basic、宏、查詢表達式、窗體或報表上的計算控件中使用 DLookup 函數。
使用 Dlookup 函數可以顯示不在窗體或報表記錄源中的字段值。例如，假定有一個基于“訂單明細”表的窗體，顯示“訂單ID”、“產品ID”、“單價”、“數量”和“折扣”字段。而“產品名稱”字段位于另一個表 （“產品”表）中。通過在計算控件中使用 Dlookup 函數，可以在同一窗體上顯示“產品名稱”。

DLookup(expr, domain, [criteria])

DLookup 函數具有下列參數：

參數 說明
expr 一個表達式，用于標識需要返回其值的字段。它既可以是用于標識表或查詢中字段的字符串表達式，也可以是以該字段上的數據進行計算的表達式。在 expr 中，可以包括表中字段的名稱、窗體上的控件、常量或函數。如果 expr 包含函數，那么它可以是內置的，也可以是用戶定義的，但不能是另一個域聚合函數或 SQL 聚合函數。
domain 字符串表達式，代表組成域的記錄集。可以是表名稱或不需要參數的查詢名稱。
criteria 可選的字符串表達式，用于限制 DLookup 函數執行的數據范圍。例如，criteria 通常等價于 SQL 表達式中的 WHERE 子句，只是不含 WHERE 關鍵字。如果忽略 criteria，DLookup 函數將在整個域范圍內計算 expr。任何包含在 criteria 中的字段必須同時也是 domain 中的字段，否則 Dlookup 函數將返回 Null。

說明
DLookup 函數將基于 criteria 中指定的信息返回單個字段的值。雖然 criteria 是可選參數，但如果不給 criteria 提供值，Dlookup 函數將返回域中的一個隨機值。

如果沒有記錄滿足 criteria，或者 domain 中沒有記錄，DLookup 函數將返回 Null。

如果有多個字段滿足 criteria，DLookup 函數將返回第一個匹配字段。所以應該指定條件以確保 DLookup 函數返回的字段值是唯一的。可以在條件中使用主鍵值，在下例中，使用 [EmployeeID] 來確保 DLookup 函數返回唯一的值：

Dim varX As VariantvarX = DLookup("[LastName]", "Employees", "[EmployeeID] = 1")
無論是在宏、模塊、查詢表達式中，還是在計算控件中使用 DLookup 函數，都必須仔細地構造 criteria 參數，以確保能夠正確地進行計算。

在查詢的“條件”行、查詢的計算字段表達式中或更新查詢的“更新到”行中均可以使用 DLookup 函數來指定條件。

如果需要顯示的字段不在窗體或報表所基于的記錄源中，也可以在窗體或報表的計算控件表達式中使用 DLookup 函數。例如，假定有一個“Order Details”窗體基于“Order Details”表，并且含有一個顯示“ProductID”字段的名為“ProductID”的文本框，要從基于這個文本框值的“Products”表中查閱“ProductName”字段，可以創建另一個文本框，并將它的 ControlSource屬性設為如下表達式：

=DLookup("[ProductName]", "Products", "[ProductID] =" _& Forms![Order Details]!ProductID)
提示

雖然可以使用 DLookup 函數顯示來自外部表字段中的值，但是通過創建包含兩表中所需字段的查詢，然后將窗體或報表建立在這個查詢的基礎上，效率將更高。
也可以使用“查閱向導”來查找外部表中的值。
注釋?? 使用此函數時，不包括對 domain 記錄未保存的更改。如果希望 DLookup 函數基于更改后的值，必須先保存更改。方法是：單擊“記錄”菜單上的“保存記錄”命令、將焦點移到另一個記錄上，或使用 Update 方法。

示例
下面的示例將從滿足 criteria 內容記錄的“CompanyName”字段中返回名稱信息。域為“Shippers”表。criteria 參數將結果記錄集限制為“ShipperID”等于 1 的記錄。

Dim varX As VariantvarX = DLookup("[CompanyName]", "Shippers", "[ShipperID] = 1")
下一個示例來自 Shippers 表，它使用窗體控件 ShipperID 來為 DLookup 函數提供條件。請注意，控件的兩側未加上用以表示字符串的引號，這樣可以確保每次調用 DLookup 函數時，Microsoft Access 都將從控件中獲取當前值。

Dim varX As VariantvarX = DLookup("[CompanyName]", "Shippers", "[ShipperID] = " _& Forms!Shippers!ShipperID)
下一個示例使用變量 intSearch 來獲取值。

Dim intSearch As IntegerDim varX As VariantintSearch = 1varX = DLookup("[CompanyName]", "Shippers", _"[ShipperID] = " & intSearch)看書累的，要是看上不怎么樣的書就更累了，還是看系統幫助吧！(2007-01-25 14:58:06)??? 竹笛(56217686)Stemp = DLookup("[用戶編號]","系統用戶","[用戶編號]=''''''''''''''''''''''''''''''''"& Me![用戶編號] &"''''''''''''''''''''''''''''''''") 的意思是 找出 系統用戶 表中 用戶編號字段等于 x 的 用戶編號，不也就是x嘛 (2007-01-25 14:58:51)??? 竹笛(56217686)Stemp = DLookup("[用戶名]","系統用戶","[用戶編號]=''''''''''''''''''''''''''''''''"& Me![用戶編號] &"''''''''''''''''''''''''''''''''") 的意思是 找出 系統用戶 表中 用戶編號字段等于 x 的 用戶名 繼續學習......