считать и удалять дубликаты доступа vba

Question

Вот некоторый код, который я должен удалить из-за повторяющихся вхождений catid & recid в таблице tblcat1_rec, оставив только 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 для записей, которые уже являются уникальными.

Answer 1

Я думаю, вам придется разбить это на две части.Сначала поставьте счет всех записей для каждой группы и повторений, затем снимите 1.После этого вы можете запустить оператор удаления SQL, который у вас есть.