access下拉式選單製作

Question

舉例來說：
有a及b二個下拉式選單
a是縣市：1.台北縣 2.台中縣 3.高雄縣
b是鄉鎮：1-1金山 1-2萬里 2-1大里 2-2太平 3-1仁武 3-2大社
假設我要在a縣市選「2.台中縣」時要鄉鎮那個下拉式選單出現的是「2-1大里 2-2太平」，選「1.台北縣」時鄉鎮的下拉式選單出現「1-1金山 1-2萬里」要如何做到呢？
麻煩各位大大說明解惑吧！謝謝！

Answer 1

1:先假設你_b下拉式選單_資料來源的資料表名稱是_ 鄉鎮表單
而它欄位名稱 是_ 鄉鎮

2: 假設你_a下拉式選單_名稱_Combo0
b下拉式選單_名稱_Combo2
在a下拉式選單_AfterUpdate() 輸入_

Private Sub Combo0_AfterUpdate()
If Me!Combo0 ＜＞＂＂ Then
Me!Combo2.RowSource=＂SELECT 鄉鎮, FROM 鄉鎮表單 WHERE LEFT(鄉鎮,1)=　、　＂ & LEFT(Me!Combo0.Column(0),1) & ＂、;＂
Me!Combo2.Requery
End Sub

以上1:＜＞＂＂、是全型符號.請自行改回半形符號.
2:Me!Combo2.RowSource= 鄉鎮/鄉鎮表單改回實際名稱
3:Me!Combo0 Me!Combo2 改回實際名稱

2007-03-20 09:09:17 補充：
上述 .....鄉鎮 ,FROM 鄉鎮表單......多一個符號
下列是正確.
Me!Combo2.RowSource=＂SELECT 鄉鎮 FROM 鄉鎮表單 WHERE LEFT(鄉鎮,1)=　、　＂ & LEFT(Me!Combo0.Column(0),1) & ＂、;＂

Answer 2

假設縣市下拉選單為combo_a
鄉鎮下拉選單為combo_b


Private Sub Form_Load（）
Me.combo_a.RowSourceType=’Value list’
Me.combo_b.RowSourceType=’Value list’
Me.combo_a.RowSource=’1.台北縣, 2.台中縣, 3.高雄縣’
End Sub

Private Sub combo_a_Afterupdate（）
Dim stLocal As string
stLocal = combo_a.Text
Select Case stLocal

Case ’1.台北縣’
Me.combo_b.RowSource=’1-1金山, 1-2萬里’

Case ’2.台中縣 ’
Me.combo_b.RowSource=’2-1大里, 2-2太平’

Case ’3.高雄縣’
Me.combo_b.RowSource=’3-1仁武, 3-2大社’

End Select

End Sub



記得把（）改為半形
’改為半形的 "