ไม่ทราบว่าเป็น Query ตัวเดียวกันตลอดหรือเปล่าครับ และตารางเป้าหมาย 1 ตาราง หรือว่า หลายตาราง และต้องการให้โปรแกรมทำงานเองทุก 15 วินาทีหรือจะต้องมีคนคอยสั่งงาน ถ้าเป็นการ Query ข้อมูลขนาดใหญ่ ผมเกรงว่าจะทำงานไม่เสร็จภายในเวลาที่ต้องการ หลักการ ก็คงจะใช้ Action Queries เช่น Append Query หรือ MakeTable Query แล้วใช้ Timer ของ Form ในการสั่งงานทุกๆ 15 วินาทีครับ จากตัวอย่างข้างล่าง ผมสร้าง Form ขึ้นมา 1 อัน แล้วใส่ Timer Interval = 15000 คือ 15 วินาที แล้วใส่โค้ดต่อไปนี้ลงไป Option Compare Database Option Explicit Dim dbs As Database Private Sub Form_Close() dbs.Close End Sub Private Sub Form_Load() Set dbs = CurrentDb End Sub Private Sub Form_Timer() dbs.Execute "INSERT INTO tblTest " _ & "SELECT AllFarmers.* " _ & "FROM AllFarmers;" End Sub จะเห็นตรง On Timer จะมีการเรียกใช้ Append Query ให้ทำการ Append ข้อมูลจากตาราง AllFarmers ไปยังตาราง tblTest ลองให้ข้อมูลเพิ่มเติมมาอีกนะครับ ถ้ายังไม่ตรงกับที่ต้องการ

ขอบคุณคุณสุภาพมากครับ ขอเพิ่มเติม query ที่ต้องการจะ copy เป็น table จะเหมือนกันทุกอย่าง เพียงแต่ว่า หากใช้ query โดยตรง โดยใช้ sql ดึงต่อจะเกิด error ถ้าจะกรุณา ช่วยแปลง cdoe vb ให้หน่อยได้ไหมครับ ขอบคุณให้ความกรุณาอีกครั้ง

ไม่ทราบว่าเกิด Error อย่างไรครับ มีข้อความว่าอะไร และจะแปลงโค้ดตัวไหนครับ

ได้แล้วครับ ขอบคุณมาก แต่ว่า tbltest นั้น มีการเพิ่ม ข้อมูลเดิมซ้ำเรื่อยๆครับ ผมต้องการว่าถ้า Allfarmers ไม่มีข้อมูลเพิ่มก็จะมีข้อมูลเท่าเดิมครับ ช่วยกรุณาอีกครั้งครับ

หมายความว่า ถ้าไม่มีข้อมูลใหม่ ก็ไม่ต้องทำการ Copy ไป ใช่หรือไม่ครับ ถ้าใช่ ให้ลองดูกระทู้ก่อนหน้านี้ครับ ผมจะใช้ Not In เข้ามาช่วย ถ้ายังไม่ตรง ก็ให้เพิ่มเติมมาได้ครับ

ใช่แล้วครับ กระทู้ไหนครับ

กระทู้ที่ 144 ครับ ให้คลิกที่นี่เลย http://www.thai-access.com/suphap.php?topic_id=144 ครับ