Error 3113 Cannot Update "PercentagesFortBenningEMI'; field not updateable
Posted on 2013-06-29
I have code that imports data from Excel to a Access table. I have the same code for other tables to import and they work fine. when I click on the button to Import data I get this Message"Error 3113 Cannot Update "PercentagesFortBenningEMI'; field not updateable".
I checked the fields and they are the same. So I dont know what to check next. Any suggestions experts? Thank you for your time and help in advance!
I can import the data in by using the dab in Access for external data . Which seems like it shouldnt work if the import button is not working.
Below is the code.
Dim DailyReportmsgbox As String
DailyReportmsgbox = MsgBox("You are about to update data and delete Old Data .Do you want to continue?", vbInformation + vbYesNo, "Export Data")
If (DailyReportmsgbox = vbYes) Then
MsgBox "Delete Records Successful!"
'Import new Data
DoCmd.TransferSpreadsheet transfertype:=acImport, tablename:="tblScopeUnitFortBenningEMIOnly", FileName:="C:/ExportFolder/tblScopeUnitFortBenningEMIOnly.xlsx", HasFieldNames:=True
DoCmd.TransferSpreadsheet transfertype:=acImport, tablename:="qryPercentageFortBenningEMIOnly", FileName:="C:/ExportFolder/qryPercentageFortBenningEMIOnly.xlsx", HasFieldNames:=True
MsgBox "Import Successful!"
ElseIf (DailyReportmsgbox = vbNo) Then
MsgBox "Action Aborted!"
'Delete old data from import
If Len(Dir("C:\ImportFolder\tblScopeUnitFortBenningEMIOnly.xlsx")) > 0 Then
If Len(Dir("C:\ImportFolder\qryPercentageFortBenningEMIOnly.xlsx")) > 0 Then
MsgBox "C drive Deleted!"