?
Solved

Error 3113 Cannot Update "PercentagesFortBenningEMI'; field not updateable

Posted on 2013-06-29
1
Medium Priority
?
425 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 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

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

AutoNumbers should increment automatically, without duplicates.  But sometimes something goes wrong, and the next AutoNumber value is a duplicate.  This article shows how to recover from this problem.
This article shows how to get a list of available printers for display in a drop-down list, and then to use the selected printer to print an Access report or a Word document filled with Access data, using different syntax as needed for working with …
The viewer will learn how to simulate a series of coin tosses with the rand() function and learn how to make these “tosses” depend on a predetermined probability. Flipping Coins in Excel: Enter =RAND() into cell A2: Recalculate the random variable…
Access reports are powerful and flexible. Learn how to create a query and then a grouped report using the wizard. Modify the report design after the wizard is done to make it look better. There will be another video to explain how to put the final p…

649 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