Database Corruption - "MSysDb" not found

Resolved · Urgent Priority · Version 2010

Tue 8 Jan 2013, 13:19 Delegate Adam said...

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

Wed 9 Jan 2013, 16:02 Trainer Simon said...

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

Thu 10 Jan 2013, 15:23 Delegate Adam said...

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 ?

Fri 10 May 2013, 10:21 Trainer Cindy said...

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

Training courses

	98.8 % recommend us
	More live stats...

Training information:

Access tip:

Hiding rows and columns

To hide a column or row in Access, you need to minimise the column or row. This can be done by placing your mouse on the right edge of a column, wait for the mouse to change to a double aroow and then drag to minimise the column

View all Access hints and tips