アプリケーションの OpenCurrentDatabase メソッド (Access)Application.OpenCurrentDatabase method (Access)

OpenCurrentDatabase メソッドを使用すると、既存の Microsoft Access データベースをカレント データベースとして開くことができます。You can use the OpenCurrentDatabase method to open an existing Microsoft Access database as the current database.

構文Syntax

Opencurrentdatabase(filepathExclusivebstrpassword)expression.OpenCurrentDatabase (filepath, Exclusive, bstrPassword)

expression**Application** オブジェクトを 表す変数。expression A variable that represents an Application object.

パラメーターParameters

名前Name 必須 / オプションRequired/Optional データ型Data type 説明Description
filepathfilepath 必須Required StringString パス名およびファイル名拡張子を含む既存のデータベース ファイルの名前を指定します。The name of an existing database file, including the path name and the file name extension.
排他Exclusive 省略可能Optional BooleanBoolean データベースを排他モードで開くかどうかを指定します。Specifies whether you want to open the database in exclusive mode. 既定値は False で、データベースを共有モードで開きます。The default value is False, which specifies that the database should be opened in shared mode.
bstrPasswordbstrPassword 省略可能Optional 文字列型 (String)String 指定したデータベースを開くために使用するパスワードを指定します。The password to open the specified database.

戻り値Return value

なしNothing

解説Remarks

このメソッドを使用すると、オートメーション (以前は OLE オートメーションと呼ばれていました) を使って Microsoft Access を制御する他のアプリケーションからデータベースを開くことができます。You can use this method to open a database from another application that is controlling Microsoft Access through Automation, formerly called OLE Automation. たとえば、 Opencurrentdatabaseメソッドを使用すると、Microsoft Excel の access ウィンドウで northwind.mdb サンプルデータベースを開くことができます。For example, you can use the OpenCurrentDatabase method from Microsoft Excel to open the Northwind.mdb sample database in the Access window. 別のアプリケーションから Access のインスタンスを作成した後で、新しいデータベースを作成するか、開く特定のデータベースを指定する必要もあります。After you have created an instance of Access from another application, you must also create a new database or specify a particular database to open. このデータベースは、Access ウィンドウで開きます。This database opens in the Access window.

既にデータベースを開いている場合に、Access ウィンドウで別のデータベースを開くには、 CloseCurrentDatabase メソッドを使用して最初のデータベースを閉じてから、別のデータベースを開きます。If you have already opened a database and wish to open another database in the Access window, you can use the CloseCurrentDatabase method to close the first database before opening another.

注意

Openaccessproject メソッドを使用すると、既存の Access プロジェクト (.adp) をカレントデータベースとして開くことができます。Use the OpenAccessProject method to open an existing Access project (.adp) as the current database.

注意

Opencurrentdatabaseメソッドを、ActiveX データオブジェクト (ADO) Openメソッドまたはデータアクセスオブジェクト (DAO) OpenDatabaseメソッドと混同しないでください。Don't confuse the OpenCurrentDatabase method with the ActiveX Data Objects (ADO) Open method or the Data Access Object (DAO) OpenDatabase method. Opencurrentdatabaseメソッドは、Access ウィンドウでデータベースを開きます。The OpenCurrentDatabase method opens a database in the Access window. DAO OpenDatabaseメソッドは、特定のデータベースを表すdatabaseオブジェクト変数を返しますが、Access ウィンドウではそのデータベースを実際には開きません。The DAO OpenDatabase method returns a Database object variable, which represents a particular database but doesn't actually open that database in the Access window.

Example

次の使用例は、オートメーションを使用して他のアプリケーションから Access データベースを開き、そのデータベースのフォームを開きます。The following example opens an Access database from another application through Automation and then opens a form in that database.

このコードは、COM コンポーネントとして機能するアプリケーションの Visual Basic モジュールに入力することができます。You can enter this code in a Visual Basic module in any application that can act as a COM component. たとえば、Excel、Visual Basic、または Access から、次のコードを実行することができます。For example, you might run the following code from Excel, Visual Basic, or Access.

Applicationオブジェクトを指す変数がスコープ外になると、それが示すアクセスのインスタンスも同様に閉じられます。When the variable pointing to the Application object goes out of scope, the instance of Access that it represents closes as well. したがって、この変数はモジュール レベルで宣言する必要があります。Therefore, you should declare this variable at the module level.

' 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

サポートとフィードバックSupport and feedback

Office VBA またはこの説明書に関するご質問やフィードバックがありますか?Have questions or feedback about Office VBA or this documentation? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.