[求助]Access 和 Visual Basic 高手 ?
 

http://hk.geocities.com/ngc2008123/1.1.mdb

表單 -> 托運單 -> 設計 -> 寄件人地址 欄位 -> 右 鍵 -> 建立事件 -> 程式碼建立高手

我 已經 做 出來 一 部份

但是 有 一 個 問題

選 寄件人郵遞區號 後

寄件人地址 會 出現 地名

但 機會 只 有 一 次

選 完 之 後

在 選 其它 寄件人郵遞區號 後

寄件人地址 不會 改變

和之前的一樣

希望 各位 高手 可以 幫 我 解決 這 一 個 問題

目標 : 每 選擇 寄件人郵遞區號 後 (希望 可以 重覆 選擇) -> 在 寄件人地址 會 出現 相對 應 的 地名

Private Sub 寄件人郵遞區號_Change()
[寄件人地址] = DLookup("鄉鎮市", "寄件人郵遞區號", "郵遞區號='" & [寄件人郵遞區號] & "'")
End Sub

參考看看~
不確定可以

Private Sub 寄件人郵遞區號_AfterUpdate()
[寄件人地址] = DLookup("鄉鎮市", "寄件人郵遞區號", "郵遞區號='" & [寄件人郵遞區號] & "'")
End Sub

我試過上面這個是可行的！

不過以下你寫的這段寫法有點怪，不知是否有其
它的需求？你用if 去判斷如果寄件人的地址欄位
，如果不是空白的就結束，那麼如果第一次選錯
了，選到信義區，之後想改成大同區的話，程式
應該不會動，因為寄件人地址的欄位已經有字串
填進去了。

If [寄件人地址] <> "" Then
End
Else
[寄件人地址] = DLookup("鄉鎮市", "寄件人郵遞區號", "寄件人郵遞區號='" & [寄件人郵遞區號] & "'")
End If

Private Sub 寄件人郵遞區號_AfterUpdate()
[寄件人地址] = DLookup("鄉鎮市", "寄件人郵遞區號", "郵遞區號='" & [寄件人郵遞區號] & "'")
End Sub

是否 可以 解釋 上面 的 意思

如 : DLookup ..... 等

Private Sub 寄件人郵遞區號_AfterUpdate()
'當寄件人郵遞區號這個組合方塊顯示的資料更新後執行下面的程式碼

[寄件人地址] = DLookup("鄉鎮市", "寄件人郵遞區號", "郵遞區號='" & [寄件人郵遞區號] & "'")
'寄件人地址文字方塊內的資料=DLookup函數傳回的資料

End Sub
'結束


DLookup("鄉鎮市", "寄件人郵遞區號", "郵遞區號='" & [寄件人郵遞區號] & "'")

簡單的來說就是使用DLookup函數，以郵遞區號當做搜尋資料的條件，從寄件人郵遞區號
的資料表內，傳回鄉鎮市這個欄位的資料。而要傳回的那個鄉鎮市欄位所對應到的郵遞區號
必須和寄件人郵遞區號組合方塊所顯示的資料相同。


以下資料可以在Visual Basic 的說明裡找到更多的資訊

DLookup 函數

您可以使用 DLookup 函數，從指定的一組記錄中 (稱為範圍) 取得某個特定欄位的值。

語法：DLookup(Expr, Domain, Criteria)

Expr 必須提供的 String 資料型態。為一運算式，用來識別您要傳回其值的欄位。
此引數可為識別資料表欄位或查詢欄位的字串運算式，或是執行計算該欄位中的資
料的運算式。您可以在 expr 中包含資料表欄位的名稱、表單上控制項的名稱、常
數或函數。expr 中包含的函數可為內建函數或使用者定義函數，但不可為另一個
範圍聚合函數或 SQL 聚合函數。

Domain 必須提供的 String 資料型態。為一字串運算式，用來識別構成範圍的一
組記錄。此引數可為資料表或查詢的名稱。

Criteria 選擇性的 Variant 資料型態。為一選擇性字串運算式，用來限制 DLookup
函數執行時的資料範圍。例如，criteria 與 SQL 運算式中不含 WHERE 這個字的
WHERE 子句通常具有相同的意義。如果省略 criteria，DLookup 函數便針對整個
範圍來計算 expr。criteria 中包含的任何欄位都必須為 domain 中的欄位；否則
DLookup 函數將傳回 Null。