กระทู้เก่าบอร์ด อ.Yeadram
5,360 8
URL.หัวข้อ /
URL
ขอถามเกี่ยวกับการ Find Record ด้วย Combo Box ค่ะ
ขออธิบายข้อมูลที่มีก่อนนะคะ
ทำ DB เกี่ยวกับ ข้อมูลของนักเรียนในห้อง โดยจะมีอยู่ Field หนึ่งเป็นข้อมูลผลไม้ที่ชอบ (Primaty key คือ ชื่อนักเรียน) คำถามก็คือ อยากจะ Find Record โดยเลือกผ่านที่ ComboBox 2 อัน คือ
1. ComboBox1 แสดงชื่อผลไม้ที่อยู่ใน Field ผลไม้ แบบไม่ซ้ำอะค่ะ คือ อาจจมีเด็กชอบแอปเปิ้ล 10 คน ส้ม 6 คน แต่ว่าใน ComboBox1 ก็จะแสดงแค่ แอปเปิ้ล และ ส้ม
2. ComboBox2 แสดงรายชื่อนักเรียน โดยจะแสดงตาม ComboBox1 เช่น ComboBox1 เลือก ส้ม ComboBox2 ก็จะแสดงรายชื่อของนักเรียนที่ชอบส้ม เป็นต้นค่ะ
แล้วพอเลือกชื่อนักเรียนมาแล้ว กด ok ก็จะ Shoe หน้า Form ของ นักเรียนคนนั้นอะค่ะ ไม่ทราบว่าแบบนี้ทำอย่างไร
จำเป็นต้องมีฐานข้อมูลของผลไม้ทั้งหมดอยู่อีกตารางหนึ่งด้วยรึเปล่าคะ
วานผู้รู้ช่วยหน่อยนะคะ ขอบคุณค่ะ
ทำ DB เกี่ยวกับ ข้อมูลของนักเรียนในห้อง โดยจะมีอยู่ Field หนึ่งเป็นข้อมูลผลไม้ที่ชอบ (Primaty key คือ ชื่อนักเรียน) คำถามก็คือ อยากจะ Find Record โดยเลือกผ่านที่ ComboBox 2 อัน คือ
1. ComboBox1 แสดงชื่อผลไม้ที่อยู่ใน Field ผลไม้ แบบไม่ซ้ำอะค่ะ คือ อาจจมีเด็กชอบแอปเปิ้ล 10 คน ส้ม 6 คน แต่ว่าใน ComboBox1 ก็จะแสดงแค่ แอปเปิ้ล และ ส้ม
2. ComboBox2 แสดงรายชื่อนักเรียน โดยจะแสดงตาม ComboBox1 เช่น ComboBox1 เลือก ส้ม ComboBox2 ก็จะแสดงรายชื่อของนักเรียนที่ชอบส้ม เป็นต้นค่ะ
แล้วพอเลือกชื่อนักเรียนมาแล้ว กด ok ก็จะ Shoe หน้า Form ของ นักเรียนคนนั้นอะค่ะ ไม่ทราบว่าแบบนี้ทำอย่างไร
จำเป็นต้องมีฐานข้อมูลของผลไม้ทั้งหมดอยู่อีกตารางหนึ่งด้วยรึเปล่าคะ
วานผู้รู้ช่วยหน่อยนะคะ ขอบคุณค่ะ
8 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R01727
ลองดูเรื่องที่คล้ายๆกันจาก http://www.thai-access.com/yeadram_view.php?topic_id=276 ก่อน แล้วถ้าไม่ได้ตรงจุดไหนก็มาถามอีกทีครับ
3 @R01728
link ที่คลิ๊กต่อไปมันเข้าไม่ได้หนะค่ะ เลยไม่รู้จะเข้าไปยังไง ^^"
4 @R01729
table1
st_id
st_name
st_fruit
comboFruit
- Row source type = "Table/query"
- Row soure = "Select Disctinc st_fruit From table1"
- Column count = 1
comboStudent
- Rowsouretype = "Table/query"
- Rowsouce = "select * from table1"
- column count = 3
- column width = "0,3,0"
Code:
Private sub comboFruit_Change()
if comboFruit<>"" then
comboStudent.RowSource = "Select * From table1 where st_Fruit like '" & comboFruit & "'"
comboStudent.Requery
end if
End Sub
Private Sub comboStudent_Change()
if comboStudent<>"" then
docmd.OpenForm "ฟอร์มนักเรียน", acNormal, "[st_ID] = " & comboStuden.column(0)
docmd.close acForm, me.name
end if
End sub
st_id
st_name
st_fruit
comboFruit
- Row source type = "Table/query"
- Row soure = "Select Disctinc st_fruit From table1"
- Column count = 1
comboStudent
- Rowsouretype = "Table/query"
- Rowsouce = "select * from table1"
- column count = 3
- column width = "0,3,0"
Code:
Private sub comboFruit_Change()
if comboFruit<>"" then
comboStudent.RowSource = "Select * From table1 where st_Fruit like '" & comboFruit & "'"
comboStudent.Requery
end if
End Sub
Private Sub comboStudent_Change()
if comboStudent<>"" then
docmd.OpenForm "ฟอร์มนักเรียน", acNormal, "[st_ID] = " & comboStuden.column(0)
docmd.close acForm, me.name
end if
End sub
5 @R01730
ขอบคุณคุณสันติสุขและคุณyeadram มากนะคะ ^^
6 @R01731
Row soure = "Select Disctinc st_fruit From table1"
ตรง Disctinc นี่เป็นโค้ดให้เลือกชนิดแบบไม่ซ้ำออกมาหรอค่ะ
เหมือนกับใน Field ผลไม้มี ส้ม 6 แอปเปิ้ล 5 มะละกอ 3 ถ้าเราใช้ Disctinc มันก็จะเลือกออกมาแค่ ส้ม แอปเปิ้ล มะละกอ ใช่มั๊ยคะ
เอาไปใส่ใน Row Source แล้ว มันบอกว่า error อ่ะคะ
ตรง Disctinc นี่เป็นโค้ดให้เลือกชนิดแบบไม่ซ้ำออกมาหรอค่ะ
เหมือนกับใน Field ผลไม้มี ส้ม 6 แอปเปิ้ล 5 มะละกอ 3 ถ้าเราใช้ Disctinc มันก็จะเลือกออกมาแค่ ส้ม แอปเปิ้ล มะละกอ ใช่มั๊ยคะ
เอาไปใส่ใน Row Source แล้ว มันบอกว่า error อ่ะคะ
7 @R01732
อ่อ ได้แล้วค่ะ ต้องพิมพ์เป็น Distinct ขอบคุณทั้งสองท่านมากนะคะ ^^
8 @R03146
ขอบคุณครับ
Time: 0.3744s
คือเราต้อง SET Properties ขอ ง ComboBox1 และ ComboBox2 เป็นยังไง
แล้ว Macro ที่ใช้ต้องใช้อย่างไรบ้างคะ