Field ใดบ้างเป็นตัวกำหนดว่า ห้ามซ้ำ
ก็กำหนดให้ field กลุ่ม นั้นเป็น Key เลยครับ

ลองใส่ข้อมูลใน table แล้วใช้ tool "Analyze Table" ของ Access ดูก็ได้ครับ

ขอบคุณคุณ PichaiTC ที่ช่วยตอบครับปัญหาคือจะกำหนดฟิว id   ตาราง A เป็น Key ไม่ได้ครับข้อมูลก่อนหน้านั้นมีการซ้ำกันไปแล้วโปรแกรมไม่ยอมครับที่ข้างบนคือยกตัวอย่างเฉยๆครับข้อมูลจริงมี ID ซ้ำกันเพียบเลย เลยจะให้ข้อมูลที่จะเพิ่มหลังจากนี้ไม่ต้องซ้ำแล้ว ขอทุกท่านช่วยหาแนวทางให้หน่อยครับ

ถ้าไม่ลำบากมากนักก็ควรกำหนด id เป็นคีย์หลัก
ก่อนหน้านี้ id ซ้ำกัน โปรแกรมก็ยังสามารถทำงานได้
แล้วถ้าหลังจากนี้ไม่อยากให้ id ซ้ำกัน แล้วจะมีความหมายอะไร

ทำอย่างนี้ดีไหมครับ
   ทำการ re-id ใหม่
   สร้างตารางขึ้นมาใหม่ แล้วนำข้อมูลจากตาราง A ไปเก็บในตารางสำรองก่อน
ขณะเราย้ายข้อมูลไป ก็ทำการ re-id ไปด้วยเลย

PRIVATE SUB Command1_Click()
     DIM rst1 as Recordset
     DIM rst2 as Recordset

     set rst1 = CurrentDB.OpenRecordset("ตารางA",dbOpendynaset)
     set rst2 = CurrentDB.OpenRecordset("ตารางB",dbOpendynaset)
     rst1.Movefirst

WITH rst2
     WHILE not(rst1.EOF)
          .Addnew
          .field("name") = rst1.field("name")
               ...
               ...
          .Update
     WEND
END WITH
     rst1.Close
     rst2.Close
END SUB

จากนั้นค่อยลบตาราง A ออก
แล้วเปลี่ยนชื่อตาราง B เป็น ตาราง A

*** หมายเหตุ
     หากตาราง A มีความสัมพันธ์กับตารางอื่น ๆ และ/หรือ ใช้ตาราง A ในคิวรี่ MS Access อาจขอให้คุณลบ
ความสัมพันธ์ดังกล่าวออกไปก่อน จากนั้นเราค่อยเชื่อมความสัมพันธ์ใหม่

ถ้าคุณมีการใช้ตาราง A ในหลาย ๆ ที่กลัวปัญหาเรื่องการเชื่อมความสัมพันธ์จะเสียไป อาจต้องใช้วิธีการต่อไปนี้

PRIVATE SUB command1_click()
dim i as integer
     dim rst1 as recordset
     dim rst2 as recordset

     set rst1 = currentdb.openrecordset("ตารางA",dbopendynaset)
     set rst2 = rst1.RecordsetClone
     rst1.MoveFirst
     rst2.MoveFirst

'Delete all content in ตาราง A
WITH rst1
     WHILE NOT(rst1.EOF)
           .Edit
           .Delete
           .Update
           rst1.MoveNext
     WEND
END WITH

i = 1
WITH rst1
     WHILE NOT(rst2.EOF)
          .AddNew
          .Field("id") = i
          .Field("name") = rst1.Field("name")
               ...
               ...
          .Update
          i = i +1
     WEND
END WITH
     rst1.close
     rst2.close
END SUB

*** ถ้าตาราง A มีความสัมพันธ์กับตารางอื่น และมีการกำหนด Cadcading Delete/Cadcading Update ข้อมูลในตารางย่อยอาจสูญหายหรือเปลี่ยนแปลงไปด้วย

*** โปรดสำรอง ข้อมูล/ไฟล์ ก่อน เพื่อความมั่นใจว่าข้อมูลของคุณจะไม่สูญหาย

insert into A(id,name,surname,qty,ad1,ad2,total )
select id,name,surname,qty,ad1,ad2,total from B where not exists (select * from A where A.id = B.id)

ขอบคุณคุณ U&ME และคุณ สันติสุข ที่ช่วยตอบเพิ่มครับ
ตอนนี้กำลังลองอยู่ครับได้ผลยังไงเดี๋ยวมาแจ้งครับ