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

參考看看~
不確定可以