กระทู้เก่าบอร์ด อ.Yeadram
2,868 3
URL.หัวข้อ /
URL
access จังหวัด ตำบล อำเภอ
มีตาราง table ประมานนี้ ทำงัยให้เลือก ภาค จังหวัด อำเภอ ตำบล แลล combo box ได้ครับ งมมานาน เห็นแต่ table เดียวแต่ที่ผมมีมันหฃาย table ครับ อยากนำไปพัฒนาต่อ
ปล. access 2010 ครับ
3 Reply in this Topic. Dispaly 1 pages and you are on page number 1
1 @R17747
เอิ่ม! ไม่เข้าใจโจทย์
2 @R17755
ต้องเชื่อมความสัมพันธ์ระหว่าง table ก่อนครับถ้ามีหนังสือลองดูบทแรกๆเรื่องการสร้างความสัมพันธ์ระหว่าง table ส่วนมากจะเจอในบทแรกๆครับหลังจากนั้นเวลาสร้าง combo box ใน form ถ้าความต้องการคือ เลือกภาค แล้วที่ combo box ลำดับถัดไปจะ filter เฉพาะจังหวัดที่อยู่ใน ภาคที่ได้เลือกไว้ แล้วหลังจากเลือกจังหวัด ที่ combo box ถัดไปจะ filter เฉพาะอำเภอที่มีในจังหวัดที่ได้เลือกไว้ และหลังจากเลือกอำเภอ ที่ combo box ถัดไปจะ filter เฉพาะ ตำบลที่มีในอำเภอที่เลือกไว้ ถ้าที่ผมเขียนมานี้ตรงความต้องการ ก็ต้องไปดูเรื่องการใช้ query และต้องใช้คำสั่ง .requery ด้วยครับ
3 @R17757
Option Compare Database
Option Explicit
Public Sub cboprovince_AfterUpdate()
Me.cboprovince.SetFocus
cboaumper.RowSource = "SELECT DISTINCT thailand.aumper " & _
"FROM thailand " & _
"WHERE thailand.province = '" & cboprovince.Value & "' " & _
"ORDER BY thailand.aumper;"
Me.aumper = vbNullString
Me.tumbon = vbNullString
End Sub
Public Sub cboprovince_GotFocus()
Me.cboprovince= vbNullString
Me.cboaumper = vbNullString
Me.cbotumbon = vbNullString
End Sub
Public Sub cboaumper_AfterUpdate()
cbotumbon.RowSource = "SELECT DISTINCT thailand.tumbon " & _
"FROM thailand " & _
"WHERE thailand.aumper = '" & cboaumper.Value & "' " & _
"ORDER BY thailand.tumbon;"
End Sub
Public Sub cboaumper_GotFocus()
Me.cboaumper = vbNullString
Me.cbotumbon = vbNullString
End Sub
Option Explicit
Public Sub cboprovince_AfterUpdate()
Me.cboprovince.SetFocus
cboaumper.RowSource = "SELECT DISTINCT thailand.aumper " & _
"FROM thailand " & _
"WHERE thailand.province = '" & cboprovince.Value & "' " & _
"ORDER BY thailand.aumper;"
Me.aumper = vbNullString
Me.tumbon = vbNullString
End Sub
Public Sub cboprovince_GotFocus()
Me.cboprovince= vbNullString
Me.cboaumper = vbNullString
Me.cbotumbon = vbNullString
End Sub
Public Sub cboaumper_AfterUpdate()
cbotumbon.RowSource = "SELECT DISTINCT thailand.tumbon " & _
"FROM thailand " & _
"WHERE thailand.aumper = '" & cboaumper.Value & "' " & _
"ORDER BY thailand.tumbon;"
End Sub
Public Sub cboaumper_GotFocus()
Me.cboaumper = vbNullString
Me.cbotumbon = vbNullString
End Sub
Time: 0.3396s