Application.OpenCurrentDatabase 方法 (Access)

使用 OpenCurrentDatabase 方法，將現有的 Microsoft Access 資料庫開啟為目前的資料庫。

語法

運算式。OpenCurrentDatabase (filepath， Exclusive， bstrPassword)

expression 代表 Application 物件的變數。

參數

名稱	必要/選用	資料類型	描述
filepath	必要	String	現有資料庫檔案的名稱，包含路徑名稱及副檔名。
獨家	選用	布林值	指定是否要以獨佔模式開啟資料庫。 預設值為 False，指定要以分享模式開啟資料庫。
bstrPassword	選用	字串	開啟指定資料庫的密碼。

傳回值

無

註解

使用此方法可從另一個透過自動化控制 Microsoft Access 的應用程式開啟資料庫，先前稱為 OLE Automation。 例如，您可以使用 Microsoft Excel 的 OpenCurrentDatabase 方法，在 Access 視窗中開啟 Northwind.mdb 範例資料庫。 從另一個應用程式建立 Access 實例之後，您也必須建立新的資料庫，或指定要開啟的特定資料庫。 此資料庫會在 [存取] 視窗中開啟。

如果您已經開啟資料庫，而且想要在 Access 視窗中開啟另一個資料庫，您可以使用 CloseCurrentDatabase 方法在開啟另一個資料庫之前先關閉第一個資料庫。

注意事項

使用 OpenAccessProject 方法開啟現有的 Access 專案 (.adp) 作為目前的資料庫。

注意事項

請勿混淆 OpenCurrentDatabase 方法與 ActiveX Data Objects (ADO) Open 方法或 Data Access 物件 (DAO) OpenDatabase 方法。 OpenCurrentDatabase方法會在 [存取] 視窗中開啟資料庫。 DAO OpenDatabase 方法會傳回 Database 物件變數，代表特定資料庫，但實際上不會在 Access 視窗中開啟該資料庫。

範例

下列範例會透過自動化從另一個應用程式開啟 Access 資料庫，然後在該資料庫中開啟表單。

您可以在任何可作為 COM 元件的應用程式的 Visual Basic 模組中輸入下列程式碼。 例如，您可以從 Excel、Visual Basic 或 Access 執行下列程式碼。

當指向 Application 物件的變數超出範圍時，它所代表的 Access 實例也會關閉。 因此您必須將此變數宣告於模組層級。

' Include the following in Declarations section of module. 
Dim appAccess As Access.Application 
 
Sub DisplayForm() 
 
 Dim strDB as String 
 
 ' Initialize string to database path. 
 Const strConPathToSamples = "C:\Program " _ 
 & "Files\Microsoft Office\Office11\Samples\" 
 
 strDB = strConPathToSamples & "Northwind.mdb" 
 ' Create new instance of Microsoft Access. 
 Set appAccess = _ 
 CreateObject("Access.Application") 
 ' Open database in Microsoft Access window. 
 appAccess.OpenCurrentDatabase strDB 
 ' Open Orders form. 
 appAccess.DoCmd.OpenForm "Orders" 
End Sub

支援和意見反應

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