Application.CurrentDb 方法 (Access)

CurrentDb 方法會傳回 Database 類型的物件變數，代表目前在 Microsoft Access 視窗中開啟的資料庫。

語法

運算式。CurrentDb

expression 代表 Application 物件的變數。

傳回值

Database

註解

注意事項

在 Microsoft Access 中， CurrentDb 方法會在 Microsoft Access 資料庫中建立 Microsoft Office 12.0 Access Connectivity Engine 物件程式庫的隱藏參考。

若要從 Visual Basic 運算元據庫及其資料的結構，您必須使用資料存取物件 (DAO) 。 CurrentDb 方法可讓您從 Visual Basic 程式碼存取目前的資料庫，而不用知道資料庫的名稱。 當您有指向目前資料庫的變數之後，您也可以存取及操作 DAO 階層中的其他物件和集合。

使用 CurrentDb 方法可建立多個參考目前資料庫的物件變數。 在下列範例中，變數 dbsA 和 dbsB 都參考目前的資料庫：

Dim dbsA As Database, dbsB As Database 
Set dbsA = CurrentDb 
Set dbsB = CurrentDb

注意事項

在舊版 Microsoft Access 中，您可能已使用 語 DBEngine.Workspaces(0).Databases(0) 法或 DBEngine(0)(0) 傳回目前資料庫的指標。 在 Microsoft Access 2000 和更新版本中，您應該改用 CurrentDb 方法。 CurrentDb方法會建立目前資料庫的另一個實例，而 DBEngine(0)(0) 語法則是指目前資料庫的開啟複本。 CurrentDb 方法能讓您為參照目前資料庫的 Database 類型建立一個以上的變數。 Microsoft Access 仍然支援 DBEngine(0)(0) 語法，但您應該考慮對程式碼進行這項修改，以避免多使用者資料庫中可能發生的衝突。

如果您需要在 Microsoft Access 視窗中開啟目前資料庫的同時使用另一個資料庫，請使用Workspace物件的OpenDatabase方法。 OpenDatabase 方法不會在 Microsoft Access 視窗中實際開啟第二個資料庫，它只是傳回代表第二個資料庫的 Database 變數。 下列範例讓指標返回目前資料庫，並返回名為 Contacts.mdb 的資料庫：

Dim dbsCurrent As Database, dbsContacts As Database 
Set dbsCurrent = CurrentDb 
Set dbsContacts = DBEngine.Workspaces(0).OpenDatabase("Contacts.mdb")

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。