Partager via


Objet CurrentProject (Access)

L'objet CurrentProject fait référence au projet du projet Microsoft Access (.adp) ou de la base de données Microsoft Access active.

Remarques

L’objet CurrentProject a plusieurs collections qui contiennent des objets AccessObject spécifiques dans la base de données active. Le tableau suivant répertorie le nom de chaque collection et les types d'objets qu'elle contient.

Collections Type d’objet
AllForms Tous les formulaires
AllReports Tous les états
AllMacros Toutes les macros
AllModules Tous les modules

Remarque

[!REMARQUE] Les collections dans le tableau précédent contiennent tous les objets respectifs dans la base de données, qu'ils soient ouverts ou fermés.

Par exemple, un objet AccessObject représentant un formulaire est un membre de la collection AllForms, qui est une collection d'objets AccessObject dans la base de données en cours. Dans la collection AllForms, les membres individuels de la collection sont indexés à partir de zéro. Faites référence à un objet AccessObject individuel dans la collection AllForms en faisant référence au formulaire par son nom ou en faisant référence à son index dans la collection. Si vous souhaitez faire référence à un objet spécifique dans la collection AllForms , il est préférable de le désigner par son nom, car l’index de collection d’un élément peut changer. Si le nom de l'objet inclut un espace, il doit être entouré par de crochets ([ ]).

Syntaxe Exemple
AllForms!NomFormulaire AllForms!FormulaireCommande
AllForms![Nom Formulaire] AllForms![Formulaire Commande]
AllForms("NomFormulaire") AllForms("FormulaireCommande")
AllForms(index) AllForms(0)

Exemple

L’exemple suivant imprime certains paramètres de propriété actuels de l’objet CurrentProject , puis définit une option pour afficher les objets masqués dans l’application.

Sub ApplicationInformation() 
 ' Print name and type of current object. 
 Debug.Print Application.CurrentProject.FullName 
 Debug.Print Application.CurrentProject.ProjectType 
 ' Set Hidden Objects option under Show on View Tab 
 'of the Options dialog box. 
 Application.SetOption "Show Hidden Objects", True 
End Sub

L’exemple suivant montre comment utiliser l’objet CurrentProject à l’aide d’Automation à partir d’une autre application Microsoft Office. Tout d’abord, à partir de l’autre application, créez une référence à Microsoft Access en choisissant Références dans le menu Outils de la fenêtre Module. Cochez la case en regard de Bibliothèque d’objets Microsoft Access, puis entrez le code suivant dans un module Visual Basic au sein de cette application et appelez la procédure GetAccessData .

L’exemple transmet un nom de base de données et un nom de rapport à une procédure qui crée une instance de la classe Application , ouvre la base de données et vérifie que le rapport spécifié existe à l’aide de l’objet CurrentProject et de la collection AllReports .

Sub GetAccessData() 
' Declare object variable in declarations section of a module 
 Dim appAccess As Access.Application 
 Dim strDB As String 
 Dim strReportName As String 
 
 strDB = "C:\Program Files\Microsoft " _ 
          & "Office\Office11\Samples\Northwind.mdb" 
 strReportName = InputBox("Enter name of report to be verified", _ 
                          "Report Verification") 
 VerifyAccessReport strDB, strReportName 
End Sub 
 
Sub VerifyAccessReport(strDB As String, _ 
                       strReportName As String) 
 ' Return reference to Microsoft Access 
 ' Application object. 
 Set appAccess = New Access.Application 
 ' Open database in Microsoft Access. 
 appAccess.OpenCurrentDatabase strDB 
 ' Verify report exists. 
 On Error Goto ErrorHandler 
 IsObject appAccess.CurrentProject.AllReports(strReportName) 
 MsgBox "Report " & strReportName & _ 
        " verified within " & appAccess.CurrentProject.Name & " database."
 appAccess.CloseCurrentDatabase 
 Set appAccess = Nothing 
Exit Sub 
ErrorHandler: 
 MsgBox "Report " & strReportName & _ 
        " does not exist within " & appAccess.CurrentProject.Name & " database."
 appAccess.CloseCurrentDatabase 
 Set appAccess = Nothing 
End Sub

Méthodes

Propriétés

Voir aussi

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.