I am importing a record or records from an Excel file. One of the fields in the file contains more than 255 characters. When I import the file the field is truncated at stops at 255 characters. Here is my VBA code:
'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.DeleteObject acTable, tblDef.Name
'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"
'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 , ""