กระทู้เก่าบอร์ด อ.Yeadram
        
           1,326   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.6117s
    
      
		
DMax("[AutoRunID]","table_A") + 1