กระทู้เก่าบอร์ด อ.Yeadram
1,176 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 ผมต้องแก้ตรงไหนเหรอครับ
ช่วยผมทีคับ
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
Time: 0.2761s
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