Solved

Error 3113 Cannot Update "PercentagesFortBenningEMI'; field not updateable

Posted on 2013-06-29
1
418 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
1 Comment
 
LVL 61

Accepted Solution

by:
mbizup earned 500 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

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

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

You need to know the location of the Office templates folder, so that when you create new templates, they are saved to that location, and thus are available for selection when creating new documents.  The steps to find the Templates folder path are …
Ever visit a website where you spotted a really cool looking Font, yet couldn't figure out which font family it belonged to, or how to get a copy of it for your own use? This article explains the process of doing exactly that, as well as showing how…
In Microsoft Access, learn different ways of passing a string value within a string argument. Also learn what a “Type Mis-match” error is about.
In Microsoft Access, learn how to use Dlookup and other domain aggregate functions and one method of specifying a string value within a string. Specify the first argument, which is the expression to be returned: Specify the second argument, which …

724 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