Finding the path of the backend in a split database

[ProgramError]

For those who wish to lookup the path of the tables/backend/links in a split database use the following in the control source of a textbox.

=DLookUp("Database","MSysObjects","[flags] = 2097152")


If the location of the back end changes, use the link manager to re-link to the tables.



Hope this helps someone.


Ian Mayor (UK)
Program Error
Programming is 1% coding, 50% error checking and 49% sweat as your application bombs out in front of the client.

 

[Remou]

Another way is to look at the connect property:

    For Each tdf In db.TableDefs
        strConnect = tdf.Connect
        If Dir(Mid(strConnect, InStr(strConnect, "DATABASE=") + 9)) = "" Then
            'All is not well
            blnConnectError = True
        End If
    Next

 

[Crowley16]

the MSysObject is a hidden system table which includes a lot of very useful information...

I'd recommend everyone who's going to be doing any largeish project to have a look at it.

p.s. only select statements allowed on it

--------------------
Procrastinate Now!

 

[dhookom]

The msys tables store lots of interesting information but they are not guarenteed to survive into new versions. I'm not sure they are still viable in Access 2007 or other future versions.

I generally use DAO expressions like:
[blue]Mid(CurrentDb.TableDefs("tblActivities").Connect,11)[/blue]

Duane MS Access MVP
[green]Ask a great question, get a great answer.[/green] [red]Ask a vague question, get a vague answer.[/red]
[green]Find out how to get great answers faq219-2884.[/green]

 

[Crowley16]

I'd have thought there's be something similar in 2007, after all, the application itself needs to store and access this information somewhere...

--------------------
Procrastinate Now!

 

[dhookom]

I'm sure the information is stored somewhere. The "msys..." tables aren't officially documented by MS for our use. They have been very reliable in most cases over many versions.

Duane MS Access MVP
[green]Ask a great question, get a great answer.[/green] [red]Ask a vague question, get a vague answer.[/red]
[green]Find out how to get great answers faq219-2884.[/green]