ACCESS : Créer des compléments (menu/assistants) en VBA

Vous avez tous déjà utilisé des compléments (ou add-ins), peut-être sans le savoir!
Les assistants de création de contrôles, de formulaires… sont des compléments.

Ces compléments sont de simples bases Access, sauvegardées habituellement avec l'extension mda, ou mde si le complément est compilé.

Pour créer de tels compléments, seul Access est nécessaire.

Nous ne traiterons pas dans cet article des compléments COM.

La particularité d'un complément est d'avoir, dans une table système nommée USysRegInfo, les paramètres nécessaires à son installation.

L'installation se fait grâce au Gestionnaire de compléments accessible dans le menu :
Outils --> Macros complémentaires --> Gestionnaire de compléments.

A partir d'Access 2007, le gestionnaire de compléments est disponible dans l'onglet Outils de base de données du ruban.
Dans Compléments, sélectionnez Gestionnaire de compléments.

Cette installation se fait en deux étapes :

1. copie du complément dans le répertoire approprié ;
2. copie des entrées de la table USysRegInfo dans le registre de Windows.

Une fois installés sur un ordinateur, les compléments sont accessibles dans toutes les bases de données ouvertes sur cet ordinateur.

Sous Windows Vista ou Seven, la sécurité peut vous empêcher d'installer le complément.
Vous devez exécuter Access en administrateur :

Clic droit sur le raccourci vers Access.exe => Propriétés => onglet Compatibilité => cochez Exécuter ce programme en tant qu'administrateur.
Décochez la case après avoir installé l'assistant.

Vous pouvez également procéder selon les indications suivantes.

I-B-1. Sécurité sous Vista▲

Cliquez sur le bouton en bas à gauche de Windows :	Ouvrez le panneau de configuration :
Choisissez Comptes utilisateurs :	Cliquez sur le bouton Activer ou désactiver le contrôle des comptes utilisateurs.
Décochez l'option :	Redémarrez le PC quand cela est demandé :

Installez le complément lorsque le PC est redémarré.

Faites ensuite la manipulation inverse pour réactiver la sécurité.

Ou réactivez-la en ouvrant le centre de sécurité :

Cliquez alors sur le bouton Activer maintenant.

Merci à Dolphy35 pour ces explications.

I-B-2. Sécurité sous Seven▲

Ouvrez le panneau de configuration. Choisissez Comptes utilisateurs :	cliquez sur le bouton Modifier les paramètres de contrôle des comptes utilisateurs.
Abaisser le niveau : Ne jamais m'avertir :	Redémarrez le PC quand cela est demandé.

Installez le complément lorsque le PC est redémarré.

Faites ensuite la manipulation inverse pour réactiver la sécurité.

Merci à Domi2 pour ces explications.

Pour que le complément soit installable, il faut créer une table système qui contient les paramètres d'installation du complément.
Cette table USysRegInfo est utilisée par le gestionnaire de compléments d'Access lors de l'installation.

Voici la structure de cette table :

La structure de la table est identique quel que soit le type de complément.

Les données de cette table seront copiées dans le registre de Windows :

• Subkey : clé de registre ;
• Type : type de valeur ;
• ValName : nom de la valeur ;
• Value : donnée de la valeur.

Comme c'est une table système, il faut d'abord demander l'affichage de ces tables système.
Outils --> Options --> onglet Affichage --> cochez Objets système

A partir d'Access 2007 : clic droit sur l'en-tête du volet de navigation à gauche puis :
Options de navigation… => cochez Afficher les objets système.

Vous pouvez soit :

• créer vous-même cette table ;
• importer la structure de cette table d'un autre complément.

L'import est la solution la plus simple :
Dans le menu : Fichier --> Données externes --> Importer, choisissez un complément.
A partir d'Access 2007 : dans l'onglet Données externes du ruban, choisissez Access.

Vous pouvez trouver les compléments d'Access dans le répertoire d'installation d'Office :
Pour Access 2003 par exemple : C:\Program Files\Microsoft Office 2003\OFFICE11\ACWZMAIN.MDE

Choisissez ici la table USysRegInfo et cliquez OK.

Videz le contenu de la table importée si elle est déjà remplie.

Si la structure est toujours identique, le contenu de la table varie en fonction du type de complément.

Les chapitres suivants détaillent la création des entrées de table dans chaque cas.

II-A-1. Création de la table de paramètres d'installation▲

II-A-2. Création de la base de données▲

Créez une nouvelle base Access, cette base est notre complément de menu.
Nommez la par exemple Test_Menu.mda

On a d'abord besoin de la fonction qui sera le point d'entrée du complément de menu.
On crée donc dans un nouveau module une fonction nommée par exemple Fonction_Test_Menu.

On peut par exemple utiliser Screen.ActiveForm pour connaître le formulaire actif

 

Sélectionnez

Function Fonction_Test_Menu()
    On error resume next
    MsgBox "Le formulaire actif est : " & Screen.ActiveForm.Name
    If err.number <> 0 then MsgBox "Pas de formulaire actif"
End Function

Les propriétés de la base de données doivent également être modifiées, dans Fichier --> Propriétés de la base)

Le Titre, la Société et le Commentaire apparaîtrons dans le gestionnaire de compléments.

Dans le menu : Outils --> Macros complémentaires --> Gestionnaire de compléments.
Cliquez sur le bouton : Ajoutez un nouveau…, sélectionnez le fichier mda du complément à installer.

On note que les propriétés de la base de données mises à jour précédemment ont bien été utilisées.

Désormais, dans toutes les bases Access, on obtient une nouvelle entrée de menu dans Macro Complémentaire :

Si on clique sur ce menu, on exécute la fonction Fonction_Test_Menu.

L'exemple affiche simplement le nom du formulaire actif dans une boîte de message.
Il est possible de faire mieux en ajoutant aux compléments des formulaires, des tables, des états…
Les objets Screen.ActiveControl, Screen.ActiveForm, Screen.ActiveReport sont utiles pour connaître le nom des objets actifs.

III-A-1. Création de la table de paramètres d'installation▲

III-A-2. Création de la base de données▲

Créez une nouvelle base Access, cette base est notre assistant de création de formulaire ou d'état.
Nommez la par exemple Test_Formulaire.mda

On a d'abord besoin de la fonction qui sera le point d'entrée de l'assistant.
On crée donc dans un nouveau module une fonction nommée par exemple Fonction_Test_formulaire.

La fonction doit avoir un paramètre optionnel pour le choix de la source de données.

 

Sélectionnez

        Function Fonction_Test_formulaire(Optional pRecordSource As String)
            ' Pour tests, on affiche la source de données choisie dans une boîte de message
            MsgBox "Source de données choisie = " & pRecordSource
        End Function

Les propriétés de la base de données doivent également être modifiées, dans Fichier --> Propriétés de la base.

Le Titre, la Société et le Commentaire apparaîtrons dans le gestionnaire de compléments.

Dans le menu : Outils --> Macros complémentaires --> Gestionnaire de compléments.
Cliquez sur le bouton : Ajoutez un nouveau…, sélectionnez le fichier mda du complément à installer.

On note que les propriétés de la base de données mises à jour précédemment ont bien été utilisées.

Désormais, dans toutes les bases Access, on obtient un nouvel assistant de création de formulaire.

Si on choisit cet assistant, on exécute la fonction Fonction_Test_Formulaire.

L'exemple affiche simplement, dans une boîte de message, le nom de la source de données sélectionnée.

En fonction du type d'assistant développé, on pourra utiliser les méthodes : CreateForm, CreateReport et CreateControlpour créer un nouvel objet en suivant ses propres règles.

IV-A-1. Création de la table de paramètres d'installation▲

IV-A-2. Création de la base de données▲

Créez une nouvelle base Access, cette base est notre assistant contrôle ou propriété.
Nommez la par exemple Test_Control.mda

On a d'abord besoin de la fonction qui sera le point d'entrée de l'assistant.
On crée donc dans un nouveau module une fonction nommée par exemple Fonction_Test_Control.

La fonction doit avoir des paramètres pour recevoir des informations au lancement de l'assistant.

 

Sélectionnez

        Function Fonction_Test_Control(Optional pArg1 As String, Optional pArg2 As String, Optional pArg3 As String)
        ' Pour tests, on affiche les paramètres reçus à l'exécution de l'assistant
        MsgBox pArg1 & ":" & pArg2 & ":" & pArg3
        End Function

Les propriétés de la base de données doivent également être modifiées, dans Fichier --> Propriétés de la base.

Le Titre, la Société et le Commentaire apparaîtront dans le gestionnaire de compléments.

Dans le menu : Outils --> Macros complémentaires --> Gestionnaire de compléments.
Cliquez sur le bouton : Ajoutez un nouveau…, sélectionnez le fichier mda du complément à installer.

On note que les propriétés de la base de données mises à jour précédemment ont bien été utilisées.

Désormais, dans toutes les bases Access, on obtient un nouvel assistant de création de zone de texte.

Lorsque l'on crée une nouvelle zone de texte, on exécute la fonction Fonction_Test_Control.

L'exemple affiche simplement, dans une boîte de message, les paramètres reçus par l'assistant.
On s'aperçoit qu'il y a deux paramètres pour une zone de texte : le nom de l'étiquette et le nom de la zone de texte.

Le formulaire courant est : Screen.ActiveForm

On peut alors modifier les propriétés de ces deux objets.

V-A-1. Création de la table de paramètres d'installation▲

V-A-2. Création de la base de données▲

Créez une nouvelle base Access, cette base est notre assistant contrôle ou propriété.
Nommez la par exemple Test_Table.mda

On a d'abord besoin de la fonction qui sera le point d'entrée de l'assistant.
On crée donc dans un nouveau module une fonction nommée par exemple Fonction_Test_Table.

La fonction n'a pas de paramètre.

 

Sélectionnez

        Function Fonction_Test_Table()
        ' Pour tests, on affiche un message
        MsgBox "Assistant table DVP"
        End Function

Les propriétés de la base de données doivent également être modifiées, dans Fichier --> Propriétés de la base.

Le Titre, la Société et le Commentaire apparaîtront dans le gestionnaire de compléments.

Dans le menu : Outils --> Macros complémentaires --> Gestionnaire de compléments.
Cliquez sur le bouton : Ajoutez un nouveau…, sélectionnez le fichier mda du complément à installer.

On note que les propriétés de la base de données mises à jour précédemment ont bien été utilisées.

Désormais, dans toutes les bases Access, on obtient un nouvel assistant de création de table.

L'exemple affiche simplement une boîte de message.

On peut utiliser par exemple une requête création de table (cf. https://access.developpez.com/sql/#L2.1.1) pour créer une nouvelle table).