Error 3027 Cannot Update. Database Or Object Is Read-only
Contents |
Posts Search Community Links Social Groups Pictures & Albums Members List Calendar Search Forums Show Threads Show Posts Tag Search Advanced Search Find All Thanked Posts Go to Page... Thread Tools Rating: Display Modes 04-27-2009, 08:10 AM #1
Run-time Error '3027' Cannot Update. Database Or Object Is Read-only
shenty Newly Registered User Join Date: Jun 2007 Posts: 117 Thanks: 0 Thanked 0 cannot update. database or object is read-only access 2013 Times in 0 Posts Error 3027 Cannot Update. Database or object is read-only I have a very strange problem that has appeared on
Cannot Update. Database Or Object Is Read-only Excel
3 databases. Error 3027. Cannot update. Database or object is read-only. I have checked & changed nothing to do with folder persmissions etc. The 3 databases are independant but similar. All 3 use linked data tables. The error happens https://support.microsoft.com/en-us/kb/161252 in the VBA code rSt.AddNew. I have created a new blank database & imported the necessary forms, tables & queries so there are no linked tables and the error is still there. But all these databases used to work !!!! Does anyone have the slightest idea where these errors have suddenly appeared from ? Help would be much appreciated. P.S. My Stripped down DB is attached. Clicking the "Add Record to cows history ---->" causes it. Attached Files http://www.access-programmers.co.uk/forums/showthread.php?t=170950 error 3027 fixing.zip (141.1 KB, 443 views) shenty View Public Profile Find More Posts by shenty 04-27-2009, 09:18 AM #2 jzwp22 Access Hobbyist Join Date: Mar 2008 Posts: 2,629 Thanks: 0 Thanked 311 Times in 308 Posts Re: Error 3027 Cannot Update. Database or object is read-only The query for the recordset appears to be un-updateable. Since all of the fields you want to add to are in the tblAIRegister, I would use just the table rather than the query. Code: If MsgBox("Add to history ?", vbYesNo, "Add Record") = vbYes Then Set rSt = dbs.OpenRecordset("tblAIRegister") rSt.AddNew rSt!AIDate = Me.AIBullingDate rSt!TAG = Me.txtTAG rSt!AIBull = Me.txtBullName rSt!AIorBull = RecordType rSt!AIBullBreed = Me.Combo26 rSt!Action = Action rSt!Notes = Me.txtNotes rSt.Update End If jzwp22 View Public Profile Find More Posts by jzwp22 04-27-2009, 11:34 AM #3 shenty Newly Registered User Join Date: Jun 2007 Posts: 117 Thanks: 0 Thanked 0 Times in 0 Posts Re: Error 3027 Cannot Update. Database or object is read-only you hit the nail on the head there mate......coincidently i figured that out about an hour ago before realising you posted. i noticed the query was unupdateable because of the animal register table and linked field in the qryAIRegister. but why would that make it unupdateable ? i am also racking my brains as to
here for a quick overview of the site Help Center Detailed answers to any questions you might have Meta Discuss the workings and policies of this site About Us Learn more about Stack Overflow the company Business Learn more http://stackoverflow.com/questions/16969367/error-3027-database-or-object-is-ready-only about hiring developers or posting ads with us Stack Overflow Questions Jobs Documentation Tags Users Badges Ask Question x Dismiss Join the Stack Overflow Community Stack Overflow is a community of 4.7 million programmers, just like you, helping each other. Join them; it only takes a minute: Sign up Error 3027, Database or object is ready only? up vote 1 down vote favorite When I run the code blow on, it stops and gives me an error cannot update 3027 Database or Object is Read only When I clicked debug, it pointed at rec.edit. Yet I have no idea how it is read only. I did check to make sure that the object was closed and the same error still came up. The person who came up with it said it worked for them and that they didn't have any issues with readonly. Any ideas? Public Function HitTest() Dim db As Database Dim rec As DAO.Recordset database or object Dim fld As DAO.Field Set db = CurrentDb Set rec = db.OpenRecordset("PlayerSal") EditTable = "PlayerSal" For Each fld In rec.Fields If fld.Name <> "Name" And fld.Name <> "Salary" And Left(fld.Name, 4) <> "Per_" Then strFieldName = "Per_" & fld.Name & "" 'rs.Fields (strFieldName) 'X = "IIf(rec([" & fld.Name & "]) <> 0, Format((rec([Salary]) / rec([" & fld.Name & "])), '$#,###.##'), 0)" If FieldExists(EditTable, strFieldName) Then Else 'AltTable = "ALTER TABLE " & EditTable & " ADD COLUMN " & strFieldName & " Double;" 'CurrentDb.Execute (AltTable) End If rec.Edit X = IIf(rec((fld.Name)) <> 0, Format((rec("Salary") / rec((fld.Name))), "$#,###.##"), 0) rec.Fields(strFieldName).Value = X rec.Update End If Next fld End Function Because I know that Access can be really silly at times, I decided to try a new Database and just import the few files I needed. I've had times where doing that randomly makes things work for some reason. When I imported the module you see below, it then stopped at the If FeildsExists(EditTable, strFieldName) and it said Sub or Function not defined... I don't know if either of these two are related to something simple.. but this is getting silly... especially when the guy who put this together had it work fine. vba ms-access share|improve this question edited Jun 7 '13 at 12:06 asked Jun 6 '13 at 18:23 Chris Jones 3921416 change to this: Set rec = db.Open