计算并删除重复访问vba

Question

以下是我必须删除catid＆amp;的重复出现的一些代码。在tblcat1_rec表中重新记录，只留下一个条目：

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”列中。这也意味着，对于已经唯一的记录，值为1。

Answer 1

我认为你必须把它分成两部分。首先记录每个catid＆amp;的所有记录的计数。 recid然后取消1。之后，您可以运行此处的删除SQL语句。