Méthode Application.OpenCurrentDatabase (Access)

Utilisez la méthode OpenCurrentDatabase pour ouvrir une base de données Microsoft Access existante en tant que base de données active.

Syntaxe

expression. OpenCurrentDatabase (filepath, Exclusive, bstrPassword)

expressionUne variable qui représente un objetApplication.

Paramètres

Nom	Requis/Facultatif	Type de données	Description
filepath	Obligatoire	String	Nom d'un fichier de base de données existant, y compris le chemin d'accès et l'extension du nom de fichier.
Exclusive	Facultatif	Boolean	Indique si vous voulez ouvrir la base de données en mode exclusif. La valeur par défaut est False, elle indique que la base de données Access doit être ouverte en mode partagé.
bstrPassword	Facultatif	Chaîne	Mot de passe permettant d'ouvrir la base de données.

Valeur renvoyée

Aucune

Remarques

Utilisez cette méthode pour ouvrir une base de données à partir d’une autre application qui contrôle Microsoft Access via Automation, anciennement appelée OLE Automation. Par exemple, vous pouvez utiliser la méthode OpenCurrentDatabase de Microsoft Excel pour ouvrir l’exemple de base de données Northwind.mdb dans la fenêtre Access. Après avoir créé une instance d’Access à partir d’une autre application, vous devez également créer une base de données ou spécifier une base de données particulière à ouvrir. Cette base de données s’ouvre dans la fenêtre Access.

Si vous avez déjà ouvert une base de données et que vous souhaitez ouvrir une autre base de données dans la fenêtre Access, vous pouvez utiliser la méthode CloseCurrentDatabase pour fermer la première base de données avant d’en ouvrir une autre.

Remarque

Utilisez la méthode OpenAccessProject pour ouvrir un projet Access existant (.adp) en tant que base de données active.

Remarque

Ne confondez pas la méthode OpenCurrentDatabase avec la méthode Open d’ActiveX Data Objects (ADO) ou la méthode OpenDatabase DAO (Data Access Object). La méthode OpenCurrentDatabase ouvre une base de données dans la fenêtre Access. La méthode DAO OpenDatabase renvoie une variable objet Database , qui représente une base de données particulière, mais n’ouvre pas réellement cette base de données dans la fenêtre Access.

Exemple

L’exemple suivant ouvre une base de données Access à partir d’une autre application via Automation, puis ouvre un formulaire dans cette base de données.

Vous pouvez taper ce code dans un module Visual Basic dans n'importe quelle application pouvant faire office de composant COM. Par exemple, vous pouvez exécuter le code suivant à partir d’Excel, Visual Basic ou Access.

Lorsque la variable pointant vers l’objet Application sort de l’étendue, l’instance d’Access qu’elle représente se ferme également. Par conséquent, vous devez déclarer cette variable au niveau du module.

' 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

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.