Access VBA：パスを取得

Accessファイルのパスを取得

確認する際の使用方法

Function myPath()
    Dim DBS As Database
    Dim tbl As TableDef
    Dim lnkPath As String
    Dim cnt As Integer

    Set DBS = CurrentDb
    For cnt = Len(DBS.Name) To 1 Step -1
        If Mid(DBS.Name, cnt, 1) = "\" Then
            lnkPath = Left(DBS.Name, cnt)
            Exit For
        End If
    Next
    
    myPath = lnkPath
End Function