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

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

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

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