กระทู้เก่าบอร์ด อ.Yeadram
1,563 3
URL.หัวข้อ /
URL
อยากทราบว่าสามารถนำข้อมูลจากคิวรี่มาใส่ในตารางได้ห
คือหนูต้องการนำข้อมูลจากคิวรี่(ผลรวมของสินค้าบางตัวค่ะ) มาใส่ในตารางบางคอลัม ประมาณ 2 คอลัม จะสามารถทำได้หรือเปล่าค่ะ ถ้าได้ต้องทำอย่างไรบ้าง รบกวนอาจารย์ด้วยนะค่ะ ขอบคุณค่ะ
3 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R08174
หนูก็ยัง งง ค่ะ พอดีหนูใหม่จริงๆค่ะ ช่วยอธิบายหน่อยได้ไหมค่ะว่าโค๊ดนี้เอาไปวางที่ไหนอย่างไร หนู งงมากเลยค่ะ
***
ประมาณว่าหนูมีรายการสินค้าจำนวนมาก พอเวลาคีข้อมูล หนูจะคีระหัสและจำนวนไปเรื่อยๆ ในอีกหนึ่งตาราง และใช้คิวรี่ ในการหาผลรวม ที่นี้หนูต้องการนำผลรวมนี้ไปใส่ในตารางหลักค่ะที่รวม ผลรวมของสินค้าทั้งหมดค่ะ
ขอบคูรนะค่ะ
***
ประมาณว่าหนูมีรายการสินค้าจำนวนมาก พอเวลาคีข้อมูล หนูจะคีระหัสและจำนวนไปเรื่อยๆ ในอีกหนึ่งตาราง และใช้คิวรี่ ในการหาผลรวม ที่นี้หนูต้องการนำผลรวมนี้ไปใส่ในตารางหลักค่ะที่รวม ผลรวมของสินค้าทั้งหมดค่ะ
ขอบคูรนะค่ะ
3 @R08191
มี form อยู่แล้วป่าวคับ ถ้ายังให้สร้าง form ขึ้นมาอันนึง แล้วสร้างปุ่มขึ้นมาอันนึงบน form
จากนั้น คลิ๊กขวาที่ปุ่ม เลือก build event แล้วใส่ code ตามนี้
Dim rsQry as dao.recordset
set rsQry = currentdb.openrecordset("select dbfieldlink,dbfieldupdate from query1)
If rsQry.recordcount <> 0 then
While Not rsQry.EOF
currentdb.execute("update table1 set dbtabfieldupdate=" & rsQry![dbfieldupdate] & " where dbtabfieldlink='" & rsQry![dbfieldlink] & "'")
rsQry.movenext
Wend
End If
rsQry.close
หมายเหตุ: query1 คือชื่อของ query ที่จะเอาข้อมูลมาใส่ table1
table1 คือชื่อของ table ที่ต้องการใส่ข้อมูลลงไป
dbtabfieldupdate คือ field จาก table1 ที่จะเอาข้อมูลมาใส่
dbtabfieldlink คือ field จาก table1 ที่จะใช้ link กับ query1
dbfieldlink คือ ชื่อ field จาก query1 ที่เป็น key ในการ link กับ table1
dbfieldupdate คือ field ข้อมูล จาก query1 ที่จะใช้ใส่ลงไปใน table1
จากนั้น คลิ๊กขวาที่ปุ่ม เลือก build event แล้วใส่ code ตามนี้
Dim rsQry as dao.recordset
set rsQry = currentdb.openrecordset("select dbfieldlink,dbfieldupdate from query1)
If rsQry.recordcount <> 0 then
While Not rsQry.EOF
currentdb.execute("update table1 set dbtabfieldupdate=" & rsQry![dbfieldupdate] & " where dbtabfieldlink='" & rsQry![dbfieldlink] & "'")
rsQry.movenext
Wend
End If
rsQry.close
หมายเหตุ: query1 คือชื่อของ query ที่จะเอาข้อมูลมาใส่ table1
table1 คือชื่อของ table ที่ต้องการใส่ข้อมูลลงไป
dbtabfieldupdate คือ field จาก table1 ที่จะเอาข้อมูลมาใส่
dbtabfieldlink คือ field จาก table1 ที่จะใช้ link กับ query1
dbfieldlink คือ ชื่อ field จาก query1 ที่เป็น key ในการ link กับ table1
dbfieldupdate คือ field ข้อมูล จาก query1 ที่จะใช้ใส่ลงไปใน table1
Time: 0.2441s
currentdb.execute("update table1 set updatefield=" & query1![updatefield] & " where table1.linkfield=" query1![linkfield])