How to show the design of an Access database?

[everycat]

I have a Microsoft Access Database X.mdb file which was developed by another programmer.

I would like to see the design of that Access database X.mdb file.

However, each time when I press SHIFT key and double click the X.mdb file name,what I can see is only the user interface, I CAN NOT enter the design mode of the database. I am not sure what the other programmer has done to hide its design.

I also try to create a blank Access database, then import all the tables, forms, reports ... of X.mdb, but there is always some missing information after importing. And in the new access database which imports X.mdb, when I try to view the code, it will give me a "network access error" message.

I am wondering how I can enter the design mode of X.mdb. Any help will be appreciated!

 

[lameid]

The below is DAO code as I have not done this with an Access 2Kx database.

There is a database property that can prevent the allow bypass key from working. I think you need administer permission to the datbase object type to set the property. I added the only necessary DAO declaration to the below code. You may have to add a DAO reference or search the Access forums for the ADO version (I have seen it and recently). The function takes the Path and File Name of the problem database. If the other developer used a workgroup you may need to join it and log in as the develoepr to get it to work right. Good luck.

Function AllowByPassKeyTrue(strDatabase As String) As Integer
Dim DAO.dbs As Database, prp As Property
Dim strPropName As String
Const conPropNotFoundError = 3270

Set dbs = DBEngine.Workspaces(0).OpenDatabase(strDatabase)
strPropName = "AllowBypassKey"
On Error GoTo AllowByPassKeyTrue_Err
dbs.Properties(strPropName) = True
AllowByPassKeyTrue = True

AllowByPassKeyTrue_Exit:
Exit Function
AllowByPassKeyTrue_Err:
If Err = conPropNotFoundError Then ' Property not found.
Set prp = dbs.CreateProperty(strPropName, dbBoolean, False)
dbs.Properties.Append prp
Resume Next
Else
' Unknown error.
AllowByPassKeyTrue = False
Resume AllowByPassKeyTrue_Exit
End If
End Function