ผมมี Table อยู่ 3 Table (Table 1 Table 2 Table 3)
Table 1 เก็บข้อมูลขาย ดังนี้
IDmem(รหัสสมาชิก)      CodeID(รหัสสินค้า)
1                             001
1                             002
1                             003
2                             002
2                             003
3                             001
4                             002
Table 2 เก็บข้อมูลรหัสสมาชิก 1 คน 1 เรคคอด ดังนี้
IDmem(รหัสสมาชิก)
1
2
3
4
Table 3 เก็บข้อมูลเฉพาะรหัส 002 ดังนี้
IDmem(รหัสสมาชิก)      CodeID(รหัสสินค้า)
1                             002
2                             002
4                             002
ต้องการเขียนโคตให้เก็บข้อมมูลจาก Table1 ไปเก็บไว้ใน Table2 และ Table3
ผมลองทำดูเป็นดังนี้
Set dbs = CurrentDb
Set rstT1 = dbs.OpenRecordset("Table 1", dbOpenSnapshot)
Set rstT2 = dbs.OpenRecordset("Table 2", dbOpenDynaset)
Set rstT3 = dbs.OpenRecordset("Table 3", dbOpenDynaset)
   Do Until rstT1.EOF   
        rstT2.addNew              
        rstT2!IDmem = rstT1!IDmem
        rstT2.update    
                  rstT3.addNew
                       rstT3!IDmem = rstT12!IDmem
                    rstT3!CodeID = rstT1!CodeID
                      rstT3.update
                    rstQ.MoveNext
    Loop

จากโคตใน Table2 รหัสสมาชิกน่าจะออกมาซ้ำ เพราะยังไม่ได้ใส่เงื่อนไข(ใส่ไม่ถูก)
จากโคตใน Table2 ก็น่าจะออกรหัสสินค้ามาทั้งหมด เพราะยังไม่ได้ใส่เงื่อนไข(ใส่ไม่ถูก)
ฝากอาจารย์ช่วยปรับแก้ หรือมี โคตอื่นที่ดีกว่านี้ครับ ผมเอามาประติดปะต่อกัน แต่ใส่เงื่อไขไม่ถูก