主にExcel・AccessのVBAのサンプルコードです。

メニュー   ＞   全てのサンプルコード   ＞  Accessを起動する(Access.Application.OpenCurrentDatabaseメソッド)

Sub Sample()
Dim acApp As Object
Set acApp = CreateObject("Access.Application")
acApp.OpenCurrentDatabase "C:\test.accdb"
acApp.Visible = True
acApp.UserControl = True
End Sub

既存のMicrosoftAccessデータベースをカレントデータベースとして開きます。

構文
式.OpenCurrentDatabase( filepath, Exclusive, bstrPassword )

名前	必須/ オプション	データ型	説明
filepath	必須	String 型	パス名及びファイル名拡張子を含む既存のデータベースファイルの名前を指定します。
Exclusive	オプション	Boolean 型	データベースを排他モードで開くかどうかを指定します。 既定値は False で、データベースを共有モードで開きます。
bstrPassword	オプション	String 型	指定したデータベースを開くために使用するパスワードを指定します。

戻り値
なし

このメソッドを使用すると、オートメーションを使ってMicrosoftAccessを制御する他のアプリケーションからデータベースを開く事ができます。
例えば、OpenCurrentDatabaseメソッドを使ってMicrosoftExcelからNorthwind.adpサンプルデータベースをMicrosoftAccessウィンドウで開く事ができます。
別のアプリケーションからMicrosoftAccessのインスタンスを作成すると、新しいデータベースを作成するか、または開きたい特定のデータベースを指定する必要があります。
このデータベースはMicrosoftAccessウィンドウに表示されます。
既にデータベースを開いている時に、MicrosoftAccessウィンドウで別のデータベースを開くには、CloseCurrentDatabaseメソッドを使って、まず現在開いているデータベースを閉じ、それから別のデータベースを開きます。

メモ
既存のMicrosoftAccessプロジェクト(.adp)をカレントデータベースとして開くには、OpenAccessProjectメソッドを使います。

メモ
OpenCurrentDatabaseメソッドをActiveXデータオブジェクト(ADO)のOpenメソッドまたはDataAccessObject(DAO)のOpenDatabaseメソッドと混同しないでください。 OpenCurrentDatabaseメソッドは、データベースをMicrosoftAccessウィンドウに開きます。 DAOのOpenDatabaseメソッドは、特定のデータベースを表すDatabaseオブジェクト変数を返しますが、実際にはデータベースをMicrosoftAccessウィンドウに開きません。

Copyright (C) 2013    VBAサンプルコード    All rights reserved

▲