在Access-VBA中使用SQL查询仅创建非重复记录

Sub CreateNonDuplicateRecords()
    Dim strSQL As String
    Dim rs As Recordset
    
    ' 构建SQL查询语句
    strSQL = "SELECT DISTINCT * FROM TableName;"
    
    ' 执行查询
    Set rs = CurrentDb.OpenRecordset(strSQL)
    
    ' 遍历结果集
    While Not rs.EOF
        ' 处理每条记录
        ' ...
        
        rs.MoveNext
    Wend
    
    ' 关闭结果集
    rs.Close
    Set rs = Nothing
End Sub