我有一個連接到 MS Access 資料庫的 MS Access 應用程式，我想要在文本框中顯示資料庫的路徑。比如讓資料庫路徑為 D:\New Folder\Database\Test.accdb 這個路徑怎么會顯示在文本框中呢？我試過這段代碼，但它不起作用
Me.Text71 = CurrentDb.Path
uj5u.com熱心網友回復：
如果要獲取后端資料庫的路徑名，可以使用以下代碼來獲取后端資料庫的名稱。
將以下代碼放入一個通用模塊（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必須是您所追求的后端資料庫中的鏈接表的名稱。
正如評論中提到的，前端可以連接到不同的后端資料庫。所以，小心使用。
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/451408.html
標籤：毫秒访问
上一篇：使用動態名稱呼叫多行宏？