Application.CloseCurrentDatabase-Methode (Access)

Verwenden Sie die CloseCurrentDatabase-Methode , um die aktuelle Datenbank zu schließen, entweder eine Microsoft Access-Datenbank oder ein Access-Projekt (ADP) aus einer anderen Anwendung, die eine Datenbank über Automation geöffnet hat.

Syntax

Ausdruck. CloseCurrentDatabase

expression Eine Variable, die ein Application-Objekt darstellt.

Rückgabewert

Nichts

Bemerkungen

Sie können diese Methode z. B. von Microsoft Excel aus verwenden, um die derzeit im Microsoft Access-Fenster geöffnete Datenbank zu schließen, bevor Sie eine andere Datenbank öffnen.

Die CloseCurrentDatabaseCloseCurrentDatabase-Methode ist sinnvoll, wenn Sie eine Microsoft Access-Datenbank von einer anderen Anwendung aus über Automatisierung geöffnet haben. Nachdem Sie eine Instanz von Microsoft Access aus einer anderen Anwendung erstellt haben, müssen Sie auch eine neue Datenbank erstellen oder eine vorhandene Datenbank angeben, die geöffnet werden soll. Diese Datenbank wird im Microsoft Access-Fenster geöffnet.

Wenn Sie die CloseCurrentDatabaseCloseCurrentDatabase-Methode verwenden, um die in der aktuellen Instanz von Microsoft Access geöffnete Datenbank zu schließen, können Sie anschließend eine andere Datenbank öffnen, ohne eine weitere Instanz von Microsoft Access erstellen zu müssen.

Beispiel

Im folgenden Beispiel wird eine Microsoft Access-Datenbank aus einer anderen Anwendung über Automation geöffnet, ein neues Formular erstellt und gespeichert und dann die Datenbank geschlossen.

Sie können diesen Code in jeder Anwendung, die als COM-Komponente fungieren kann, in ein Visual Basic-Modul eingeben. Sie könnten z. B. den folgenden Code aus Microsoft Excel oder Microsoft Visual Basic heraus ausführen.

Wenn der Programmbereich verlassen wird, in dem die Variable gültig ist, die auf das Application-Objekt zeigt, wird auch die Microsoft Access-Instanz geschlossen, die der Variablen entspricht. Sie sollten diese Variable daher auf Modulebene deklarieren.

' 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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.