我有一个按钮,可以将数据从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