次の方法で共有


Application.CloseCurrentDatabase メソッド (Access)

CloseCurrentDatabase メソッドを使用して、Automation を使用してデータベースを開いた別のアプリケーションから、現在のデータベース (Microsoft Access データベースまたは Access プロジェクト (.adp) を閉じます。

構文

CloseCurrentDatabase

expressionApplication オブジェクトを 表す変数。

戻り値

なし

解説

たとえば、Excel からこのメソッドを使って、Access ウィンドウに現在開いているデータベースを閉じ、別のデータベースを開くことができます。

CloseCurrentDatabase メソッドは、オートメーションを介して別のアプリケーションから Microsoft Office Access データベースを開いている場合に便利です。 別のアプリケーションから Microsoft Access のインスタンスを作成したら、新しいデータベースを作成するか、開く既存のデータベースを指定する必要があります。 このデータベースは、Microsoft Office Access ウィンドウで開きます。

CloseCurrentDatabase メソッドを使用して、Microsoft Office Access のカレント インスタンスで開いているデータベースを閉じると、Microsoft Office Access のインスタンスを新たに作成しなくても別のデータベースを開くことができます。

次の例では、Automation を使用して別のアプリケーションから Microsoft Access データベースを開き、新しいフォームを作成して保存してから、データベースを閉じます。

このコードは、COM コンポーネントであるアプリケーションの Visual Basic モジュールに入力することができます。 このようなアプリケーションには、Excel や Visual Basic があります。

Application オブジェクトを示している変数が適用範囲を外れると、Microsoft Access のインスタンスが閉じます。 したがって、この変数はモジュール レベルで宣言する必要があります。

' Enter the following in the Declarations section of the module. 
Dim appAccess As Access.Application 

Sub CreateForm() 
 Const strConPathToSamples = "C:\Program Files\Microsoft Office\Office12\Samples\" 
 
 Dim frm As Form, strDB As String 
 
 ' Initialize string to database path. 
 strDB = strConPathToSamples & "Northwind.mdb" 
 ' Create new instance of Microsoft Access. 
 Set appAccess = CreateObject("Access.Application") 
 ' Open database in Microsoft Access window. 
 appAccess.OpenCurrentDatabase strDB 
 ' Create new form. 
 Set frm = appAccess.CreateForm 
 ' Save new form. 
 appAccess.DoCmd.Save , "NewForm1" 
 ' Close currently open database. 
 appAccess.CloseCurrentDatabase 
 Set AppAccess = Nothing 
End Sub

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。