如何找到当前的 MS Access 数据库路径

Question

我有一个连接到 MS Access 数据库的 MS Access 应用程序，我想要在文本框中显示数据库的路径。比如数据库路径为D:\NewFolder\Database\Test.accdb 这条路径如何显示在文本框中？我试过这段代码，但它不起作用

Me.Text71 = CurrentDb.Path

Answer 1

如果要获取后端数据库的路径名，可以使用以下代码来获取后端数据库的名称。

将以下代码放在一个通用模块中(Insert/Module)

Public Function getDBname(tblName As String) As String

    Dim db As DAO.Database
    Dim tdf As DAO.TableDef
    Dim con() As String
    Dim i As Long
 
    On Error GoTo EH

    Set db = CurrentDb
    Set tdf = db.TableDefs(tblName)
    con = Split(tdf.Connect, ";")
    For i = 0 To UBound(con)
        If Left(con(i), 9) = "DATABASE=" Then
            getDBname = Mid(con(i), 10)
        End If
    Next i

EH:

End Function

那么你可以使用

 Me.Text71 = getDBname ("tbl1")

tbl1 必须是您要访问的后端数据库的链接 table 的名称。

如评论中所述，前端可以连接到不同的后端数据库。所以，请谨慎使用。

如何找到当前的 MS Access 数据库路径

How to find current MS Access database path

ms-access