查找重复和原始

问题描述

HI人 -

我有一个VBA例程，用于识别给定列中的重复项。但是，我也需要识别原文。是否有一种简单的方法来修改我的例程？

I have a VBA routine that identifies duplicates in a given column. However, I also need to idenfity the original as well. Is there an easy way to modify my routine?

    
    'Identify duplicates
    Set rsObj = db.OpenRecordset("TEMP_PROTOCOL2")
    If rsObj.RecordCount > 0 Then
        Do Until rsObj.EOF
            rsObj.Edit
            If Not rsObj![Project] = "" Then
                strDupName = rsObj![Project]
                If strDupName = strSaveName Then
                    rsObj![DUPLICATE] = "True"
                Else
                    strSaveName = rsObj![Project]
                    rsObj![DUPLICATE] = "False"
                End If
                rsObj.Update
            End If
            rsObj.MoveNext
        Loop
    End If

谢谢！

Thanks!

推荐答案

只是想知道你为什么这么做不使用Access"Find Duplicates"精灵？ （创建|查询向导的选项之一）

Just wondering why you're not using the Access "Find Duplicates" wizard? (One of the options of the Create | Query Wizard)

这篇关于查找重复和原始的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！