เริ่มด้วยการสร้างตารางที่จะใช้เป็นแหล่งข้อมูลของ combobox ที่จะใช้เลือกจังหวัด อำเภอ และตำบล ก่อน ตั้งชื่อ
ตารางว่า COUNTY และมีฟิวสำหรับจัดเก็บข้อมูลตามรูป
จากนั้นสร้างฟอร์มใหม่ขึ้นมา 1 ฟอร์ม ในมุมมอง ออกแบบ และสร้าง combobox จำนวน 3 อัน ตามรูป
จากนั้นกำหนดคุณสมบัติของ
combobox ทั้ง 3 อัน
ดังนี้
1. combobox จังหวัด
1.1 ใช้ชื่อ comboCOUNTY
1.2 กำหนด Row source = SELECT
DISTINCT COUNTY.COUNTY FROM COUNTY;
1.3 กำหนด Row source
Type = Table/Query
1.4. ที่ Event After
Update ของ comboCOUNTY
เขียนโปรแกรมใส่ดังนี้
Private Sub comboCOUNTY_AfterUpdate()
DoCmd.Requery "comboCANTON"
If Not IsNull(Me.comboCANTON) Then
Me.comboCANTON = ""
End If
If Not IsNull(Me.comboDISTRICT) Then
Me.comboDISTRICT = ""
End If
End Sub
ก็เป็นอันเสร็จที่ comboCOUNTY
2. combobox อำเภอ
2.1 ใช้ชื่อ comboCANTON
2.2 กำหนด Row source =
SELECT
DISTINCT COUNTY.CANTON FROM COUNTY WHERE
(((COUNTY.COUNTY)=[Forms]![Form1]![comboCOUNTY]));
2.3 กำหนด Row source
Type = Table/Query
2.4. ที่ Event After
Update ของ comboCANTON
เขียนโปรแกรมใส่ดังนี้
Private Sub comboCANTON_AfterUpdate()
DoCmd.Requery "comboDISTRICT"
If Not IsNull(Me.comboDISTRICT) Then
Me.comboDISTRICT = ""
End If
End Sub
ก็เป็นอันเสร็จที่ comboCANTON
3. combobox ตำบล
3.1 ใช้ชื่อ comboDISTRICT
3.2 กำหนด Row source =
SELECT
COUNTY.DISTRICT FROM COUNTY WHERE
(((COUNTY.CANTON)=[Forms]![Form1]![comboCANTON]));
3.3 กำหนด Row source
Type = Table/Query
แค่นี้ก็เสร็จแล้วครับ เมื่อเลือกจังหวัดไหนใน combo อำเภอ ก็จะกรองเอาเฉพาะอำเภอในจังหวัดนั้นมาให้เท่านั้น
และเมื่อเลือกอำเภอแล้ว ใน combo ตำบล ก็จะกรองเฉพาะตำบลในอำเภอนั้นมาเท่านั้น
