Function/Routine to determine the directory of a linked database

[Mike I.]

I have a database that contains linked tables from a second database.
I want to programmatically determine the directory the second database
resides in based on what is entered into the Linked Tables screen.
Does anybody know a function or routine that can do this?

Thanks in advance for any help!

[Allen Browne]

Parse it from the Connect property of the TableDef, e.g.:
? CurrentDb().TableDefs("MyLinkedTable").Connect

--
Allen Browne - Microsoft MVP. Perth, Western Australia.
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"Mike I." <mi****@earthlink.net> wrote in message
news:7a**************************@posting.google.c om...

I have a database that contains linked tables from a second database.
I want to programmatically determine the directory the second database
resides in based on what is entered into the Linked Tables screen.
Does anybody know a function or routine that can do this?

Thanks in advance for any help!

[Mike Ihrke]

I will give that a try. Thank you! As you can tell I am a newbie!
*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

[Mike Ihrke]

I tried using the following code and it returns nothing.
Am I missing something? I know if I did a Currentdb.Name I get the
directory of the current database, but "Customer" is in a linked DB and
that's the directory path I need.

CurrentDb.TableDefs("Customer").Connect

Thanks for the assistance!!!
*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

[Salad]

Mike Ihrke wrote:

I tried using the following code and it returns nothing.
Am I missing something? I know if I did a Currentdb.Name I get the
directory of the current database, but "Customer" is in a linked DB and
that's the directory path I need.

CurrentDb.TableDefs("Customer").Connect

Thanks for the assistance!!!

Is "Customer" a linked table in your app?

If Customer is linked, you could enter
msgbox CurrentDb.TableDefs("Customer").Connect
or
Dim strConnect As String
strConnect = CurrentDb.TableDefs("Customer").Connect
msgbox strConnect

This will return the connection string which will contain the name of
the database.