Backend Path 1

[emergencyplan]

Hello,

I wish to have a very basic form with one command button and one text box, when the command button is selected by the user the path (file location) of the database back-end is displayed. Lets assume I have one table called "MyTable".

Is there a easy way of doing this, I have looked at the "Connect" property but I am not having any success.

Many thanks,

Laurence

 

[BuGlen]

Hi Laurence,

The following function will extract and return the full path of a linked jet database file from it's connection string:

-----

Function GetLinkedMDBPath(ConnectString As String) As String

    Dim intStart As Integer, intLength As Integer
    
    intStart = InStr(1, ConnectString, "DATABASE=") + 9
    intLength = (InStrRev(ConnectString, ".mdb") + 4) - intStart
    GetLinkedMDBPath = Mid(ConnectString, intStart, intLength)

End Function

-----

Call the function using the following sample syntax:

strFilePath = GetLinkedMDBPath(CurrentDb.TableDefs("MyTable&quot.Connect)

Hope this helps.

Glen Appleton

VB.Net student.