'Import Excel file into tblTempImport DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "tblTempImport", Me.FileList, True 'Code to delete any import error tables Dim tblDef As TableDef For Each tblDef In CurrentDb.TableDefs If InStr(1, tblDef.Name, "ImportError") > 0 Then DoCmd.SelectObject acTable, tblDef.Name, True 'DoCmd.PrintOut DoCmd.DeleteObject acTable, tblDef.Name Beep 'MsgBox "There was an error importing all of your records." & vbCrLf & vbLf & "An error report was sent to your default printer." & vbCrLf & vbLf & "The error report will detail the error reason for each field and row number for each record that was not successfully imported from your file." & vbCrLf & vbLf & "Please correct all errors and import your data again.", vbInformation, "Import Errors" End If Next tblDef 'Use tblTempImport to add records to table named tblImportRecords Dim db As Database Set db = CurrentDb db.Execute "apndtblqryImportRecords", dbFailOnError 'Run query to delete records from tblTempImport db.Execute "delqryDeleteRecordsFromtblTempAppealsImport", dbFailOnError MsgBox "The import has been executed." DoCmd.Close , ""
Do more with