Determine path of backend database 1

[48Highlander]

How can I determine the path and name of the backend database (not in the same directory as the main program)?

Bill J

 

[MajP]

Public Function getBackEndPath(strLinkTableName As String) As String
    getBackEndPath = Mid(CurrentDb.TableDefs(strLinkTableName).Connect, 11)
End Function

strLinkTableName is the name of a linked table.

 

[MajP]

That uses DAO so you need a reference to DAO.

 

[JerryKlmns]

No DAO way...

Public Function getBackEndPath(strLinkTableName As String) As String
    getBackEndPath = DLookup("Database", "MSysObjects", "Name='" & strLinkTableName & "'"
End Function