Roger's Access Library Homepage
Forum Home Forum Home > Other Download Libraries > MS Access MVP Libraries > Long, Crystal
  New Posts New Posts RSS Feed - Get Path\Filename of Back End
  FAQ FAQ  Forum Search   Events   Register Register  Login Login


Please consider donating $1 per sample downloaded, (find out why here)

Get Path\Filename of Back End

 Post Reply Post Reply
Author
Message
Crystal Long View Drop Down
Microsoft MVP
Microsoft MVP


Joined: 21 May 2012
Location: Colorado
Status: Offline
Points: 35
Post Options Post Options   Thanks (0) Thanks(0)   Quote Crystal Long Quote  Post ReplyReply Direct Link To This Post Topic: Get Path\Filename of Back End
    Posted: 03 Nov 2013 at 11:00am
Given a table name, this function returns the path\filename of the Back End database if it is Access:

Function GetAccessBE_PathFilename(pTableName As String) As String
'strive4peace

   ' RETURN
   '  the file path and file name of the BE database
   '  "" if the table is not linked
  
   On Error GoTo Proc_Err
  
   Dim db As dao.Database _
      , tdf As dao.TableDef
  
   GetAccessBE_PathFilename = ""
  
   Set db = CurrentDb
   Set tdf = db.TableDefs(pTableName)
  
   If Len(tdf.Connect) = 0 Then
      GoTo Proc_Exit
   End If
  
   ' look at Connect string - Database Type is the first thing specified
   ' if the BE is Access
   If InStr(tdf.Connect, ";DATABASE=") <> 1 Then
      GoTo Proc_Exit
   End If
  
   GetAccessBE_PathFilename = Mid(tdf.Connect, 11)
   
Proc_Exit:
   On Error Resume Next
   Set tdf = Nothing
   Set db = Nothing
   Exit Function
 
Proc_Err:
   MsgBox Err.Description, , _
        "ERROR " & Err.Number _
        & "   GetAccessBE_PathFilename"

   Resume Proc_Exit
   Resume
            
End Function


to test, you can type this into the Immediate window:
? GetAccessBE_PathFilename("MyLinkedTableName")

WHERE
MyLinkedTableName is the name of a table that is linked to an Access back end

Warm Regards,
Crystal

My Analyzer
... the ultimate Data Dictionary Tool (Free download. As of November 2013, last update was October 2013)
http://www.AccessMVP.com/strive4peace/Analyzer.htm#Download

 *
   (: have an awesome day :)
 *

Warm Regards,
Crystal
Microsoft MVP
Remote Training & Programming
Let's Connect and Build Together

http://www.AccessMVP.com/strive4peace
http://YouTube.com/LearnAccessByCrystal
~have an awesome day ~
Back to Top
Sponsored Links


Back to Top
 Post Reply Post Reply
  Share Topic   

Forum Jump Forum Permissions View Drop Down