ACC: How to Retrieve the Path of Linked MS Access 95/97 Tables

MORE INFORMATION

1. Open the sample database Northwind.mdb.
2. Link the Examples table from the Developer Solutions sample application (Solutions.mdb, which is usually in the Samples folder.)
3. Create a new module and type the following procedure:

         '===============================================================
         ' The GetLinkedDBName() function requires the name of a
         ' linked Microsoft Access table, in quotation marks, as an
         ' argument. The function returns the full path of the originating
         ' database if successful, or returns 0 if unsuccessful.
         '===============================================================
   
         Function GetLinkedDBName (TableName As String)
            Dim db As Database, Ret
            On Error GoTo DBNameErr
            Set db = CurrentDb()
            Ret = db.TableDefs(TableName).Connect
            GetLinkedDBName = Right(Ret, Len(Ret) - (InStr _
               (1, Ret, "DATABASE=") + 8))
            Exit Function
         DBNameErr:
            GetLinkedDBName = 0
         End Function
   						

4. To test this function, type the following line in the Debug window, and then press ENTER:

         ? GetLinkedDBName("Examples")
   						

   Note that the path of the linked table's originating database is displayed in the Debug window.