Ms access 计数并删除重复访问vba

以下是一些代码，我必须删除tblcat1_rec表中重复出现的catid和recid，只留下一个条目：

mysql = "DELETE FROM tblcat1_rec "
mysql = mysql & " WHERE ID <> (SELECT Min(ID) AS MinOfID FROM tblcat1_rec AS Dupe "
mysql = mysql & " WHERE (Dupe.catid = tblcat1_rec.catid) "
mysql = mysql & " AND (Dupe.recid = tblcat1_rec.recid)); "
DoCmd.RunSQL mysql

---

我想统计一下，在剩余记录的TL列中发现的重复项总数。这也意味着，对于allready唯一的记录，值为1

我想你得把它分成两部分。首先统计每个catid和recid的所有记录，然后取1。之后，您可以运行这里的delete SQL语句。

最好将整个过程封装在事务中，以确保不会出现不一致的结果。