ถ้าตารางคุณไม่ติดปัญหาเรื่อง Relationships แนะนำให้สร้างตารางใหม่เลย โดยทำตามภาพนี้ครับ



ก็จะได้ตารางใหม่ที่มีข้อมูลไม่ซ้ำกัน

แต่หากเป็นตารางที่มีการทำ Relationships กันยุ่งพอสมควรไม่สามารถใช้ตารางใหม่ได้ก็คงต้องใช้การลบ โดยยกตัวอย่างประมาณนี้ครับ

สมมุติมีตารางชื่อ Table1
----------Table1-----------
| ID | LastName | FirstName |
|----+---------------+---------------|
| 1 | Davolio.     | Nancy       |
| 2 | Fuller        | Andrew     |
| 3 | Leveling    | Janet        |
| 4 | Peacock    | Margaret |
| 5 | Buchanan | Steven      |
| 6 | Suyama    | Michael     |
| 7 | King          | Robert      |
| 8 | Callahan   | Laura       |
| 9 | Dodsworth| Anne        |
| 10 | Peacock | Margaret |
| 11 | Callahan | Laura       |
| 12 | Suyama   | Peter       |
-----------------------------------

- วิธีการก็คือการทำ Running Count แหละครับ เสร็จแล้วก็เอาค่าเรคคอร์ดที่มันมากกว่า 1 ลบออกให้หมด

- เขียนแบบเป็น SELECT ก่อน เพื่อดูว่าข้อมูลที่จะลบถูกต้องหรือไม่
------------------------------------------------------------------
SELECT Table1.*
FROM Table1
WHERE ((SELECT COUNT (*) FROM Table1 AS b
WHERE (b.LastName & b.FirstName = Table1.LastName & Table1.FirstName) AND (b.ID <= Table1.ID))>1);
------------------------------------------------------------------

- คิวรี่จะแสดงเรคคอร์ดที่ซ้ำกันมากกว่า 1 ออกมา ตรวจสอบว่าตรงตามต้องการหรือป่าว
- ถ้าถูกต้องก็เปลี่ยนจาก SELECT เป็น DELETE
------------------------------------------------------------------
DELETE Table1.*
FROM Table1
WHERE ((SELECT COUNT (*) FROM Table1 AS b
WHERE (b.LastName & b.FirstName = Table1.LastName & Table1.FirstName) AND (b.ID <= Table1.ID))>1);
------------------------------------------------------------------
- เซฟคิวรี่ แล้วปิด จากนั้นคลิ๊กๆคิวรี่นี้อีกครั้ง โปรแกรมก็จะทำการลบ หากข้อมูลมากๆ อาจต้องรอนานหลายนาทีกว่าจะเสร็จ

- หรืออาจเขียนโดยใช้ DCount() อย่างนี้จะเร็วขึ้นอีกประมาณนึง
------------------------------------------------------------------
DELETE *
FROM Table1
WHERE DCount("1", "Table1", "[LastName] & [FirstName] = '" & Table1.LastName & Table1.FirstName & "' AND [ID] <= " & Table1.ID)>1;
------------------------------------------------------------------

ประมาณนี้ครับปรับใช้ดู

ปล. สำรองข้อมูลก่อนทดสอบนะครับ

ขอบคุณท่าน TTT ที่ให้ความรู้
เรียนถาม หากเราจะเรียกใช้ delete query เราจะเขียนคำสั่งอย่างไร ผ่านปุ่ม command บน ฟอร์ม