Office中国论坛/Access中国论坛

标题: 自動郵遞區號 [打印本页]

作者: WTM1 时间: 2002-11-2 00:32
标题: 自動郵遞區號
在表單裡的地址欄裡輸入地址，上面的郵遞區號便會自動出現，不用再去死背、查表。

●首先我們要來建立一個對照表。

●這是對照表的內容，小瓜瓜將取地址欄位的前五個字元來作查詢。

●建立另一個具有郵遞區號與地址欄位的資料表，因為他才是主角。

●把通訊錄這一個資料表建立成一個表單。

●按一下滑鼠右鍵，來設計一下表單。

●出現表單設計畫面，圖中右上角有一個顯示〝未命名〞是一個ListBox，是後來拖曳進去的，他是這一次的關鍵物件，他的名字是List10。

●按一下滑鼠右鍵，呼叫他的屬性。

●List10其他設定都不要管他，只要把他設定成看不見。

●再來看住址這一個TextBox。

●切換到〝事件〞頁，在OnKeyUp裡選擇〝[事件程序]〞，選好之後，我們按下旁邊的〝...〞按鈕。

●與VB一樣的出現了程式碼編輯視窗，可以在裡面加入程式碼。

●程式碼如下：

Private Sub 住址_KeyUp(KeyCode As Integer, Shift As Integer)
List10.RowSource = "select [郵遞號碼對照].[郵遞號碼] from [郵遞號碼對照] Where [郵遞號碼對照].[行政區域] = '" & Trim(Left(住址.Text, 5)) & "'"
'List10清單的資料來源用SQL來篩選住址欄位的前五個字元
If List10.ListCount > 0 Then 郵遞區號.Value = List10.ItemData(0) Else 郵遞區號.Value = Null
'若住址欄前五個字元有出現在[郵遞號碼對照].[行政區域]時，List10裡一定會有資料，所以把List10第一筆資料寫到郵遞區號這一個TextBox裡
End Sub
●就這樣子自動郵遞區號產生的工作就完成了！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)