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