VBA在插入记录之前将Excel数据与Ms Access Table进行比较

Question

我已经有代码将数据从Excel插入到MS Access，唯一的问题是，在插入数据之前，我需要确定数据是否与MS Access Table唯一。

通过比较所有25列的字段组合，我认为它是唯一的。 我已经有了一个主意，但我认为这不是最好的主意。

表1 =主表

表2 = Excel数据

表3 =空白表（我将使用此表合并表1和表2）

1. 将Excel数据上传到MS Access的其他表中（表2）

2. 将主表（表1）和表2复制到表3

3. 在表3中应用一个不同的查询

希望有人能帮忙。 这是我的代码从Excel插入数据以进行访问：

With Workbooks(MyWB).Sheets(MySH)
    .AutoFilterMode = False
    LastRow = .Cells(Rows.Count, RNG_PO_NUM).End(xlUp).Row

    If SAPLastRow <= SAP_START_ROW + 1 Then
        MsgBox "No Data in " & SAP_SHEET & " please check!", vbCritical
        Exit Sub
    End If

    'Upload all records from SAP Sheet to MS Access Database.
    For i = SAP_START_ROW + 1 To SAPLastRow
        rst.AddNew
        counter = 1
        For j = 1 To RNG_KEY
            If j = 3 Then
                'Do nothing
            Else
                If Application.IsNA(.Cells(i, j).Value) Then
                    .Cells(i, j).Value = "N/A"
                ElseIf Application.IsErr(.Cells(i, j).Value) Then
                    .Cells(i, j).Value = "VALUE!"
                End If

                If .Cells(i, j).Value <> "" Then
                    rst(rst.Fields(counter).Name) = Trim(.Cells(i, j).Value)
                    rst.Update
                End If
                counter = counter + 1
            End If
        Next j
    Next i
End With