访问ID自动编号大于另一个表的ID号

时间:2020-04-21 16:56:30

标签: vba ms-access

我有一个按钮,可以将数据从Excel导入到我的Access数据库中的临时表中。导入的数据进入临时表,因此用户可以将数据与主表中的数据进行比较。如何获得临时表中的ID自动编号大于主表中的ID号?

下面是我导入Excel的代码

Private Sub BtnImportSpreadsheet_Click()
    Dim FSO As New FileSystemObject
    Dim FilePath As String

    FilePath = Me.TxtFileName

    DoCmd.SetWarnings False
    If FSO.FileExists(Me.TxtFileName) Then
        DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, "ImportedTempData_tbl", FilePath, True
    Else
        MsgBox "File does not found"
    End If
    DoCmd.SetWarnings True
End Sub

0 个答案:

没有答案
相关问题