กระทู้เก่าบอร์ด อ.Yeadram
993 5
URL.หัวข้อ /
URL
เลือกจังหวัดในกล่อง Combo
มีเรื่องรบกวน อาจารย์และพี่ๆอีกแล้วค่ะ
มีตาราง 3 ตาราง 1 ตารางคนไข้ 2 ตารางจังหวัด 3 ตารางรายชื่อรพ ประจำจังหวัด
1. ต้องการเก็บข้อมูลคนไข้ (สามารถเก็บได้แล้ว)
2. ต้องการเลือกจังหวัด ของคนไข้
3. ต้องการเลือก รพ. ประจำหจังหวัดคนไข้
โจทย์
เหตุการณ์คลิก เมื่อคลิกเลือก จังหวัด ใน Combo 1 แล้ว ชื่อ รพ. ประจำจังหวัดนั้นโชว์ ใน Combo 2 หรือ ในดาต้าชีท แล้วดับเบิ้กคลิกชื่อ รพประจำจังหวัด เพื่อจัดเก็บเป็นข้อมูลของคนไข้ ค่ะ รบกวน อาจารย์และพี่ๆช่วยชี้แนะด้วยนะคะ ^_^
มีตาราง 3 ตาราง 1 ตารางคนไข้ 2 ตารางจังหวัด 3 ตารางรายชื่อรพ ประจำจังหวัด
1. ต้องการเก็บข้อมูลคนไข้ (สามารถเก็บได้แล้ว)
2. ต้องการเลือกจังหวัด ของคนไข้
3. ต้องการเลือก รพ. ประจำหจังหวัดคนไข้
โจทย์
เหตุการณ์คลิก เมื่อคลิกเลือก จังหวัด ใน Combo 1 แล้ว ชื่อ รพ. ประจำจังหวัดนั้นโชว์ ใน Combo 2 หรือ ในดาต้าชีท แล้วดับเบิ้กคลิกชื่อ รพประจำจังหวัด เพื่อจัดเก็บเป็นข้อมูลของคนไข้ ค่ะ รบกวน อาจารย์และพี่ๆช่วยชี้แนะด้วยนะคะ ^_^
5 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R24030
ชอบคลิป อ.TTTมากเลยค่ะ สอนเข้าใจง่าย แล้วทำงานได้จริง อาจารยืมีเปิดสอนไหมค่ะ
3 @R24033
รบกวนอาจารย์ช่วยชี้แนะด้วยค่ะ ลองทำตามคลิปของอาจารย์ TTT แล้วไม่สำเร็จ
https://drive.google.com/open?id=0B4ow2H4CSjIQTTlyQTV0UlQ3dVU
คลิกเลือกจังหวัด ที่ Cb1 แล้ว ชื่อโรงพยาบาลประจำจังหวัดที่ Cb2 จะเด้งขึ้นมาค่ะ รบกวนด้วยนะค่ะ
https://drive.google.com/open?id=0B4ow2H4CSjIQTTlyQTV0UlQ3dVU
คลิกเลือกจังหวัด ที่ Cb1 แล้ว ชื่อโรงพยาบาลประจำจังหวัดที่ Cb2 จะเด้งขึ้นมาค่ะ รบกวนด้วยนะค่ะ
4 @R24038
1. แก้ cb1
Data > Row Source:
SELECT ProvinceTbl.ProvID, ProvinceTbl.ProvTh FROM ProvinceTbl;
Format > Column Count: 2
Format > Column Widths: 0cm;2cm
Event > After Update: ใส่โค้ด
'Private Sub cb1_AfterUpdate()
Me.Recalc
'End Sub
2. แก้ cb2
Data > Row Source:
SELECT ProvinceTbl.ProvID, HospitalTbl.HosName FROM HospitalTbl INNER JOIN ProvinceTbl ON HospitalTbl.HosID = ProvinceTbl.HospitalID WHERE (((ProvinceTbl.ProvID)=[Forms]![HnF]![cb1]));
Format > Column Count: 2
Format > Column Widths: 0cm;2cm
ประมาณนี้ครับ ที่เหลือเป็นเรื่องการออกแบบ
Data > Row Source:
SELECT ProvinceTbl.ProvID, ProvinceTbl.ProvTh FROM ProvinceTbl;
Format > Column Count: 2
Format > Column Widths: 0cm;2cm
Event > After Update: ใส่โค้ด
'Private Sub cb1_AfterUpdate()
Me.Recalc
'End Sub
2. แก้ cb2
Data > Row Source:
SELECT ProvinceTbl.ProvID, HospitalTbl.HosName FROM HospitalTbl INNER JOIN ProvinceTbl ON HospitalTbl.HosID = ProvinceTbl.HospitalID WHERE (((ProvinceTbl.ProvID)=[Forms]![HnF]![cb1]));
Format > Column Count: 2
Format > Column Widths: 0cm;2cm
ประมาณนี้ครับ ที่เหลือเป็นเรื่องการออกแบบ
5 @R24052
แก้ไขตามที่ อ.TTT แนะนำ ทำสำเร็จแล้วค่ะ ขอบพระคุณอาจารย์มากค่ะ
Time: 0.4086s
https://www.youtube.com/watch?v=FEeXgAulBYE&t=1229s