กระทู้เก่าบอร์ด อ.Yeadram
1,171 2
URL.หัวข้อ /
URL
ปัจจุบันใช้ตาราง Temp แต่จำเป็นต้องรับค่า IDMax จา
คือ หนูมีปัญหาเป็นอย่างมากเลยค่ะ เพราะหนูกำลังงง รบกวนผู้รู้ช่วยดู code ให้หนูด้วย จะได้ไหมคะ
สมมติว่า ฟอมร์ปัจจุบัน หนูตั้ง record source กับ tbTemp_A
เวลากรอกข้อมูล ก็จะ save ใส่ tbTemp_A ก่อน แล้วค่อยใช้มาโคร ยัดใส่ตาราง tbA อีกครั้ง
แต่หนูติดปัญหาตรงที่
ตรง id หนูจำเป็นต้องป้อนค่าต่อจาก ตาราง tbA โดยอัตโนมัติ แต่ตารางปัจจุบันมันคือ tbTemp_A หนูจะเขียนโค้ดแบบไหนดีคะ ให้มันรับค่า Max จากตาราง tbA
ทั้งๆ ที่ปัจจุบัน หนูกำลังทำงานกับ tbTemp_A หน่ะค่ะ
Dim MyDb As Database
Dim rstMax As Recordset
Set MyDb = CurrentDb
Set rstMax = MyDb.OpenRecordset("SELECT Max(AutorunID) As MaxRecord FROM table_A ;", dbOpenDynaset)
txtAutorun.Value = rstMax
txtAutorun.Value = rstMax!MaxRecord + 1
rstMax.Close
Set rstMax = Nothing
MyDb.Close
หนูเขียนแบบนี้แล้ว txtAutorun ของหนู มันยังเป็น 0 ตลอด คือมองแต่ค่า tbTemp_A ว่าเป็น 0 อยู่เลยนะจ๊ะ แต่หนูอยากให้มันมองค่าจากตารางหลักเฉพาะตรงการรัน id นี่แหละค่ะ พอจะมีวิธีไหมคะ ขอบคุณมากเลยค่ะ
สมมติว่า ฟอมร์ปัจจุบัน หนูตั้ง record source กับ tbTemp_A
เวลากรอกข้อมูล ก็จะ save ใส่ tbTemp_A ก่อน แล้วค่อยใช้มาโคร ยัดใส่ตาราง tbA อีกครั้ง
แต่หนูติดปัญหาตรงที่
ตรง id หนูจำเป็นต้องป้อนค่าต่อจาก ตาราง tbA โดยอัตโนมัติ แต่ตารางปัจจุบันมันคือ tbTemp_A หนูจะเขียนโค้ดแบบไหนดีคะ ให้มันรับค่า Max จากตาราง tbA
ทั้งๆ ที่ปัจจุบัน หนูกำลังทำงานกับ tbTemp_A หน่ะค่ะ
Dim MyDb As Database
Dim rstMax As Recordset
Set MyDb = CurrentDb
Set rstMax = MyDb.OpenRecordset("SELECT Max(AutorunID) As MaxRecord FROM table_A ;", dbOpenDynaset)
txtAutorun.Value = rstMax
txtAutorun.Value = rstMax!MaxRecord + 1
rstMax.Close
Set rstMax = Nothing
MyDb.Close
หนูเขียนแบบนี้แล้ว txtAutorun ของหนู มันยังเป็น 0 ตลอด คือมองแต่ค่า tbTemp_A ว่าเป็น 0 อยู่เลยนะจ๊ะ แต่หนูอยากให้มันมองค่าจากตารางหลักเฉพาะตรงการรัน id นี่แหละค่ะ พอจะมีวิธีไหมคะ ขอบคุณมากเลยค่ะ
2 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R08206
ขอบคุณ คุณแดน มากเลยนะคะ
คำตอบของคุณ ถึงแม้ว่าจะสั้น แต่ก็จุดประกายความคิดของหนูได้มากเลยค่ะ
เหมือนแสงเทียน ในคืนเดือนมืด อ่ะค่ะ
คำตอบของคุณ ถึงแม้ว่าจะสั้น แต่ก็จุดประกายความคิดของหนูได้มากเลยค่ะ
เหมือนแสงเทียน ในคืนเดือนมืด อ่ะค่ะ
Time: 0.2312s
DMax("[AutoRunID]","table_A") + 1