Méthode Application.CloseCurrentDatabase (Access)

Article
04/07/2023

Utilisez la méthode CloseCurrentDatabase pour fermer la base de données active, une base de données Microsoft Access ou un projet Access (.adp) à partir d’une autre application qui a ouvert une base de données via Automation.

Syntaxe

expression. CloseCurrentDatabase

expressionUne variable qui représente un objetApplication.

Valeur renvoyée

Aucune

Remarques

Par exemple, vous pourriez utiliser cette méthode à partir de Microsoft Excel pour fermer la base de données active dans la fenêtre Microsoft Access, avant d'ouvrir une autre base de données.

La méthode CloseCurrentDatabase est utile lorsque vous avez ouvert une base de données Microsoft Access à partir d'une autre application en utilisant Automation. Après avoir créé une instance de Microsoft Access à partir d’une autre application, vous devez également créer une base de données ou spécifier une base de données existante à ouvrir. Cette base de données s'ouvre dans la fenêtre Microsoft Access.

Si vous utilisez la méthode CloseCurrentDatabase pour fermer la base de données ouverte dans l'instance active de Microsoft Access, vous pouvez alors ouvrir une autre base de données sans devoir créer une autre instance de Microsoft Access.

Exemple

L’exemple suivant ouvre une base de données Microsoft Access à partir d’une autre application via Automation, crée un formulaire et l’enregistre, puis ferme la base de données.

Entrez ce code dans un module Visual Basic dans n'importe quelle application pouvant servir de composant COM. Par exemple, le code suivant pourrait être exécuté à partir de Microsoft Excel ou de Microsoft Visual Basic.

Lorsque la variable pointant sur l’objet Application est hors de portée (quand l’exécution sort des limites de la variable), l’instance de Microsoft Access qu’elle représente se ferme également. Par conséquent, vous devez déclarer cette variable au niveau du module.

' 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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.

Partage via