Access Linked Table Problem

[James Edwards]

I have an access database that has been developed by someone else. I believe
there is a linked table in the table and when I try and open it, even though
I am entering the admin password, it is saying
"\\ServerName\ShareName\FolderName\LinkedDatabase.mdb" is not a valid path.
Make sure that the path name is spelled correctly and that you are connected
to the server on which the file resides.

I am not on the network it was developed on, but have a copy of the
LinkedDatabase too. I want to get into the main menu to run Linked table
manager but the custom menu prevents it from displaying. It's been a few
years since i have worked with access, but I seem to remember a shortcut key
or startup parameter you could use to display the database window and full
toolbar even if it started straight into a form. I have tried F11, Ctrl+F1,
but I am not getting any further than the error message.

Any Idea's??

thanks in advance...James

 

[M.L. Sco Scofield]

Try holding down the shift key when you open the database.

This should get you into the full menus so that you can get to Tools /
Database Utilities / Linked Table Manager.

Good luck.

Sco

M.L. "Sco" Scofield, Microsoft Access MVP, MCSD, MCP, MSS, A+
Useful Metric Conversion #17 of 19: 1 billion billion picolos = 1 gigolo
Miscellaneous Access and VB "stuff" at www.ScoBiz.com

 

[James Edwards]

I have just tried that but the problem remains. The database is actually not
password protected, but is using it's own internal code to show a logon form
and prompt for a password. Is there a way of modifying the paths externally?

 

[M.L. Sco Scofield]

If holding down the shift key doesn't work:

1 - Copy and paste this code into a module in another database

'~~~~~ Start Code ~~~~~
Public Sub UnlockBE()

Dim strAppName As String
Dim db As DAO.Database

strAppName = "C:\DataBaseName.mdb" ' Replace this with your database name
and path

Set db = DBEngine(0).OpenDatabase(strAppName)

db.Properties("AllowBypassKey") = True

ExitProceedure:
db.Close
Set db = Nothing
Exit Sub

End Sub

'~~~~~ End Code ~~~~~

2 - Put your path and database name in the line that starts with: strAppName
=

3 - Make sure there is a reference to DAO 3.6 (Tools / References in the
code window)

4 - With your cursor anywhere in the code, press the F-5 key

The shift key should now work.

Good luck.

Sco

M.L. "Sco" Scofield, Microsoft Access MVP, MCSD, MCP, MSS, A+
Useful Metric Conversion #17 of 19: 1 billion billion picolos = 1 gigolo
Miscellaneous Access and VB "stuff" at www.ScoBiz.com

 

[James Edwards]

You are a star - THANK YOU!!

If holding down the shift key doesn't work:

1 - Copy and paste this code into a module in another database

'~~~~~ Start Code ~~~~~
Public Sub UnlockBE()

Dim strAppName As String
Dim db As DAO.Database

strAppName = "C:\DataBaseName.mdb" ' Replace this with your database name
and path

Set db = DBEngine(0).OpenDatabase(strAppName)

db.Properties("AllowBypassKey") = True

ExitProceedure:
db.Close
Set db = Nothing
Exit Sub

End Sub

'~~~~~ End Code ~~~~~

2 - Put your path and database name in the line that starts with:
strAppName
=

3 - Make sure there is a reference to DAO 3.6 (Tools / References in the
code window)

4 - With your cursor anywhere in the code, press the F-5 key

The shift key should now work.

Good luck.

Sco

M.L. "Sco" Scofield, Microsoft Access MVP, MCSD, MCP, MSS, A+
Useful Metric Conversion #17 of 19: 1 billion billion picolos = 1 gigolo
Miscellaneous Access and VB "stuff" at www.ScoBiz.com

 

[M.L. Sco Scofield]

You're welcome.

Sco

M.L. "Sco" Scofield, Microsoft Access MVP, MCSD, MCP, MSS, A+
Useful Metric Conversion #17 of 19: 1 billion billion picolos = 1 gigolo
Miscellaneous Access and VB "stuff" at www.ScoBiz.com