How to find the path of data files in a split database

[GL]

Hi,

Is there a property that gives the path where the data files are located in
a split database as the Currentproject.Path gives the path of the application?

Thanks
GL

 

[Rick Brandt]

Hi,

Is there a property that gives the path where the data files are located in
a split database as the Currentproject.Path gives the path of the application?

The Connect property of any linked table.

CurrentDB.TableDefs("TableName").Connect

 

[Albert D. Kallal]

I used the follwing:

Function strBackEnd() As String

Dim mytables As TableDef

Dim strTempBack As String
Dim strFullPath As String
strFullPath = ""

For Each mytables In CurrentDb.TableDefs
If Left(mytables.Connect, 10) = ";DATABASE=" Then
strFullPath = Mid(mytables.Connect, 11)
Exit For
End If
Next mytables

strBackEnd = strFullPath

End Function