计算并删除重复访问 vba答案

【问题标题】：count and remove duplicate access vba计算并删除重复访问 vba
【发布时间】：2011-04-02 20:39:37
【问题描述】：

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

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。

【问题讨论】：

标签： ms-access vba count duplicates

【解决方案1】：

我认为您必须将其分为两部分。首先将每个 catid 和 recid 的所有记录计数，然后减去 1。之后，您可以运行此处的删除 SQL 语句。

【讨论】：

将整个事情包装在一个事务中可能是个好主意，以确保您最终也不会得到不一致的结果。