?
Solved

Error 3113 Cannot Update "PercentagesFortBenningEMI'; field not updateable

Posted on 2013-06-29
1
Medium Priority
?
429 Views
Last Modified: 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.



DoCmd.SetWarnings False

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
DoCmd.OpenQuery "qryDeleteFortBenningEMIOnly"
DoCmd.OpenQuery "qryDeleteScopeUnitFortBenningEMIOnly"
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!"

Exit Sub




End If

'Delete old data from import
If Len(Dir("C:\ImportFolder\tblScopeUnitFortBenningEMIOnly.xlsx")) > 0 Then
Kill ("C:\ImportFolder\tblScopeUnitFortBenningEMIOnly.xlsx")
   
If Len(Dir("C:\ImportFolder\qryPercentageFortBenningEMIOnly.xlsx")) > 0 Then
Kill ("C:\ImportFolder\qryPercentageFortBenningEMIOnly.xlsx")

MsgBox "C drive Deleted!"
End If
End If
End Sub
0
Comment
Question by:gigifarrow
1 Comment
 
LVL 61

Accepted Solution

by:
mbizup earned 2000 total points
ID: 39286671
It looks like you are trying to import data into a query, not a table.

 Try rewriting your code to update the table(s) directly.
0

Featured Post

Configuration Guide and Best Practices

Read the guide to learn how to orchestrate Data ONTAP, create application-consistent backups and enable fast recovery from NetApp storage snapshots. Version 9.5 also contains performance and scalability enhancements to meet the needs of the largest enterprise environments.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Code that checks the QuickBooks schema table for non-updateable fields and then disables those controls on a form so users don't try to update them.
Windows Explorer lets you open cabinet (cab) files like any other folder. In VBA you can easily handle normal files and folders, but opening and indeed creating cabinet files takes a lot more - and that's you'll find here.
Add bar graphs to Access queries using Unicode block characters. Graphs appear on every record in the color you want. Give life to numbers. Hopes this gives you ideas on visualizing your data in new ways ~ Create a calculated field in a query: …
Have you created a query with information for a calendar? ... and then, abra-cadabra, the calendar is done?! I am going to show you how to make that happen. Visualize your data!  ... really see it To use the code to create a calendar from a q…

809 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question