利用DLOOKUP()函數在ACCESS表單中做查詢

我想要做一個可以在執行表單時，在表單裡面做輸入我要的值然後查詢並直接從資料表中找到資料。
--------------------------------------------------------------------------------------------------------------------------------------
EX:
資料表----客戶資料

識別碼:35
姓名:某某某
連絡電話:****-****
出生年月日:54/5/6

表單----客戶資料

識別碼:
姓名:
連絡電話:
出生年月日:

在表單中建立查詢>然後我要輸入出生年月日和姓氏就可以跳出以上資料。

答案:

Private Sub 姓名_AfterUpdate()
If IsNull(DLookup([姓名], "客戶資料", "姓名='" & Me![姓名] & "'")) Then
     MsgBox "找不到你輸入的資料"
     Exit Sub
End If
Me![識別碼] = DLookup([識別碼], "客戶資料", "姓名='" & Me![姓名] & "'")
Me![姓名] = DLookup([姓名], "客戶資料", "姓名='" & Me![姓名] & "'")
Me![連絡電話] = DLookup([連絡電話], "客戶資料", "姓名='" & Me![姓名] & "'")
Me![出生年月日] = DLookup([出生年月日], "客戶資料", "姓名='" & Me![姓名] & "'")
End Sub

注意,表單上的那4個資料項最好不要和資料庫連接, 要 非結合 狀態,這樣比較不會出其他問題.
因為上面已經用最簡單的方法去做,不想搞大. 單純只有用到 DLookup()函數 來處理.
還有, DLookup()只能給你 1 個資料,多出來的不處理.