Adam has attended:
Access VBA course
Database Corruption - "MSysDb" not found
Hello,
I made some changes to a database yesterday and when I have gone to open it today i get the error :
"The Microsoft Access database engine could not find the object 'MySysDb'. Make sure the object exists and that you spell its name and the path name correctly. If 'MySysDb' is not a local object, check your network connection or contact the server administrator."
I have tried some simple recovery steps such as compact and repair, and importing the data from the corrupted database into a new blank database but without any success.
Do you have any suggestions on fixing the issue ?
Thanks
RE: Database Corruption - "MSysDb" not found
Hi Adam,
Thank you for your question and welcome to the forum.
That message is usually associated with corruption. I don't know of a way of fixing this issue.
What version of Access are you running and what version was the database created in?
I found this post on a forum and you could try this:
------------------------------------------------------------------------
"Thanks to Wayne P I finally sorted out where MSysDb resides. There are stacks of entries on Google but they all talk about corruption.
I created a blank db (db1), turned on System tbls in Tools -> Options and saw that there were 5 system tbls (but no "MSysObjects"). I then created a 1 fld tbl called "Dummy" with 1 record "Dummy" in it - still no "MSysObjects".
I then unloaded and reloaded db1, and suddenly, there was "MSysObjects", a RO tbl. Went to the bottom of the tbl and the last record showed as MSysDB - my problem solved.
Thanks to all who replied to my orig question on this.
I will now resume my search as to what caused this - Vista OS gets a few questions, including one where "Drag and Drop" from 1 folder to another seemed to cause the "MSysDb" error msg"
------------------------------------------------------------------------
I hope this helps.
Regards
Simon
RE: Database Corruption - "MSysDb" not found
Hi Simon,
I'm not sure if this will fix the problem or not so I have been trying to work on adding the possibly missing "MSysDb" record from the "MSysObject" table, in the hope this could fix my problem.
However in the code i have come up with it is trying to open the database, please see below :
Public Function addmysydb()
Dim dbs As Database
Set dbs = "\\C:\Users\DZN36X\Desktop\New SSP 2.accdb"
Set rst = dbs.OpenRecordset(MSysObject, dbOpenDynaset)
rst.MoveLast
rst.Fields("Connect").Value = ""
rst.Fields("Database").Value = ""
rst.Fields("DateCreate").Value = ""
rst.Fields("DateUpdate").Value = ""
rst.Fields("Flags").Value = "-2147483648"
rst.Fields("ForeignName").Value = ""
rst.Fields("Id").Value = "268435456"
rst.Fields("Lv").Value = ""
rst.Fields("LvExtra").Value = ""
rst.Fields("LvModule").Value = ""
rst.Fields("LvProp").Value = "Long binary data"
rst.Fields("Name").Value = "MSysDb"
rst.Fields("Owner").Value = ""
rst.Fields("ParentId").Value = "251658242"
rst.Fields("RmtInfoLong").Value = ""
rst.Fields("RmtInfoShort").Value = ""
rst.Fields("Type").Value = "2"
rst.Update
End Function
Do you know of an alternative to just connect to the database rather then the opendatabase command ?
RE: Database Corruption - "MSysDb" not found
Hello Adam,
I am currently going through our forum to clear out any active questions. Can you please tell me whether you have managed to resolve this problem?
If not, please reply within five days so I can contact a trainer who can help, otherwise this question will be marked as Resolved.
Thank you for your assistance.
Regards,
Cindy
Microsoft Office Trainer
