Application.OpenCurrentDatabase メソッド (Access)
OpenCurrentDatabase メソッドを使用して、既存の Microsoft Access データベースを現在のデータベースとして開きます。
構文
式。OpenCurrentDatabase (filepath, Exclusive, bstrPassword)
expressionApplication オブジェクトを 表す変数。
パラメーター
| 名前 | 必須 / オプション | データ型 | 説明 |
|---|---|---|---|
| filepath | 必須 | String | パス名およびファイル名拡張子を含む既存のデータベース ファイルの名前を指定します。 |
| 排他 | 省略可能 | Boolean | データベースを排他モードで開くかどうかを指定します。 既定値は False で、データベースを共有モードで開きます。 |
| bstrPassword | 省略可能 | String | 指定したデータベースを開くために使用するパスワードを指定します。 |
戻り値
なし
解説
このメソッドを使用して、以前は OLE Automation と呼ばれる Automation を使用して Microsoft Access を制御している別のアプリケーションからデータベースを開きます。 たとえば、Microsoft Excel の OpenCurrentDatabase メソッドを使用して、Access ウィンドウで Northwind.mdb サンプル データベースを開くことができます。 別のアプリケーションから Access のインスタンスを作成したら、新しいデータベースを作成するか、開く特定のデータベースを指定する必要もあります。 このデータベースが [アクセス] ウィンドウで開きます。
データベースを既に開き、Access ウィンドウで別のデータベースを開く場合は、 CloseCurrentDatabase メソッドを使用して、別のデータベースを開く前に最初のデータベースを閉じることができます。
注:
OpenAccessProject メソッドを使用して、現在のデータベースとして既存の Access プロジェクト (.adp) を開きます。
注:
OpenCurrentDatabase メソッドと ActiveX データ オブジェクト (ADO) Open メソッド、または Data Access Object (DAO) OpenDatabase メソッドを混同しないでください。 OpenCurrentDatabase メソッドは、Access ウィンドウでデータベースを開きます。 DAO OpenDatabase メソッドは、特定のデータベースを表す Database オブジェクト変数を返しますが、実際には Access ウィンドウでそのデータベースを開くわけではありません。
例
次の例では、Automation を介して別のアプリケーションから 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 のサポートおよびフィードバックを参照してください。