PCMAN

語法：    DLookup(expr, domain, [criteria])

參數解釋：
    expr：要取得值的字段名稱
    domain ：要取得值的表或查詢名稱
    criteria：用于限制 DLookup 函數執行的數據範圍。如果不給 criteria 提供值，Dlookup 函數將返回DOMAIN中的一个随機值。

正常用法:-
    用於數值型條件值:
DLookup("字段名稱" , "表或查詢名稱" , "條件字段名 = n")

    用于字符串型條件值:(注意字符串的單引號不能丢失)
DLookup("字段名稱" , "表或查詢名稱" , "條件字段名 = '字符串值'")

    用于日期型條件值:(注意日期的"#"號不能丢失)
DLookup("字段名稱" , "表或查詢名稱" , "條件字段名 = #日期值#")

从窗體控件中引用條件值用法:-
    用於數值型條件值:
DLookup("字段名稱" , "表或查詢名稱" , "條件字段名 =" &   forms!窗體名!控件名)

    用於字符串型條件值:(注意字符串的單引號不能丢失)
DLookup("字段名稱" , "表或查詢名稱" , "條件字段名 = '" &   forms!窗體名!控件名 & "'")
    用於日期型條件值:(注意日期的"#"號不能丢失)
DLookup("字段名稱" , "表或查詢名稱" , "條件字段名 = #" &   forms!窗體名!控件名 & "#")

混合使用方法(支持多條件):-
    在這種方法中也可以在條件中寫入固定的值。
    DLookup("字段名稱" , "表或查詢名稱" , "條件字段名1 = " & Forms!窗體名!控件名1 _
            & " AND 條件字段名2 = '" & Forms!窗體名!控件名2 & "'" _
            & " AND 條件字段名3 =#" & Forms!窗體名!控件名3 & "#")

Option Compare Database
Const DB_Text As Long = 10
Const DB_Boolean As Long = 1
'禁止全部菜單
ChangeProperty "AllowFullMenus", DB_Boolean, False
'允許全部菜單
ChangeProperty "AllowFullMenus", DB_Boolean, True
'清除啟動窗口
ChangeProperty "StartupForm", DB_Text, "(none)"
'禁止查看代碼
ChangeProperty "AllowBreakIntoCode", DB_Boolean, False
'禁止數據庫窗口
ChangeProperty "StartupShowDBWindow", DB_Boolean, False
'禁止使用[shift]鍵
ChangeProperty "AllowBypassKey", DB_Boolean, False
'禁止特殊鍵
ChangeProperty "AllowSpecialKeys", DB_Boolean, False
'禁止狀態欄
ChangeProperty "StartupShowStatusBar", DB_Boolean, False
'禁止內置工具欄
ChangeProperty "AllowBuiltinToolbars", DB_Boolean, False
****************************
以下為為ACCESS檔進行資料壓縮及修復的指令(適合繁體中文)。
使用時, ACCESS都是需要獨佔(沒有第二者使用之下)才可以運作。

Private Sub repairbtn_Click()
CommandBars("Tools"). _
Controls("資料庫公用程式(&D)"). _
Controls("壓縮及修復資料庫(&C)..."). _
accDoDefaultAction
End Sub
****************************

在ACCESS中DLOOKUP的用法(轉載)

Access一些指令之一