สอบถามเรื่อง Combo box หน่อยครับ
กระทู้เก่าบอร์ด อ.Yeadram

 1,117   1
URL.หัวข้อ / URL
สอบถามเรื่อง Combo box หน่อยครับ

ใครพอจะบอกวิธีทำ แบบนี้ได้บ้างคับ

table Personnel

ID Personnel | Personnel Name   | ID Workgroup


table Workgroup

ID Workgroup | Workgroup Name


table ComputerName

ID WorkgroupCN   | ComputerName   |   ID Workgroup

คือผมต้องการให้เลือก workgroup แล้ว มีข้อ ช่อง Personnel ขึ้นชื่อของคนใน workgroup นั้น แล้ว ช่อง ComputerName ให้ขึ้น ComputerName ของ workgroup นั้น

คล้ายๆ เลือก จังหวัดแล้ว ขึ้น อำเภอ แบบนั้นอ่ะครับ

ผมมี listbox ของ Personal ผมใช้ชื่อว่า listpn
ผมมี listbox ของ Computername ผมใช้ชื่อว่า listcn
แล้ว ที่ combobox ของ workgroup ผมใช้ขื่อว่า cmbwg ผมใส่เป็น

SELECT workgroup.workgroup_name, workgroup.id_workgroup FROM workgroup ORDER BY workgroup.id_workgroup;

แล้วเขียน even แบบนี้

Private Sub cmbwg_Click()
Listpn.RowSource = "Select * From personnel Where id_workgroup = " & cmbwg.Column(1)
Listpn.Requery
Listcn.RowSource = "Select id_workgroup From computername Where id_workgroup = " & cmbwg.Column(1)
Listcn.Requery
End Sub


ตอนนี้ค่าขึ้นแล้ว แต่ ค่าที่ขึ้นมันเป็นช่อง ID Workgroup ขึ้นแบบนี้ ทั้ง 2 List เลยครับ ผมต้องการให้ขึ้นเป็น Personnel Name ใน listpn และขึ้น ComputerName ใน listcn ผมต้องแก้ตรงไหนเหรอครับ

ช่วยผมทีคับ

1 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R15154
** ได้แล้วครับ โพส ตอบให้เป็น กรณีศึกษาแล้วกันครับ

combobox ของ workgroup ผมใช้ขื่อว่า cmbwg ผมใส่เป็น

SELECT workgroup.workgroup_name, workgroup.id_workgroup FROM workgroup ORDER BY workgroup.id_workgroup;

ผมมี listbox ของ Personal ผมใช้ชื่อว่า listpn
ผมมี listbox ของ Computername ผมใช้ชื่อว่า listcn

เขียน VBA เป็นแบบนี้คับ

Private Sub cmbwg_Click()
Listpn.RowSource = "Select personnel_name From personnel Where id_workgroup = " & cmbwg.Column(1)
Listpn.Requery
Listcn.RowSource = "Select computername From computername Where id_workgroup = " & cmbwg.Column(1)
Listcn.Requery
End Sub

@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.3974s