在表單中輸入其中一個欄位的資料後帶出其他欄位的資料

Me!地址 = DLookup("地址", "客戶資料", "[客戶編號]='" & Me!客戶編號 & "'")
Me!地址1 = DLookup("地址1", "客戶資料", "[客戶編號]='" & Me!客戶編號 & "'")
Me!地址2 = DLookup("地址2", "客戶資料", "[客戶編號]='" & Me!客戶編號 & "'")
Me!電話 = DLookup("電話", "客戶資料", "[客戶編號]='" & Me!客戶編號 & "'")
Me!傳真 = DLookup("傳真", "客戶資料", "[客戶編號]='" & Me!客戶編號 & "'")
Me!聯絡人 = DLookup("聯絡人", "客戶資料", "[客戶編號]='" & Me!客戶編號 & "'")
End Sub