Réaliser un dictionnaire de données

Bonjour, Je vous propose un nouvel élément à utiliser : Réaliser un dictionnaire de données



Versions : Access 2000 et supérieures



Parfois, lorsque vous reprennez le projet d'un autre développeur, vous avez besoin de réaliser le dictionnaire des données de la base afin d'avoir sous les yeux l'ensemble des champs (attributs) utilisés.





Cet exemple de code utilise la librairie Microsoft DAO (il vous faut donc ajouter cette référence) afin de parcourir la structure du fichier mdb.





L'ensemble du résultat est envoyé vers une table nommée Tbl_Dictionnaire que le module se chargera de créer si celle-ci n'existe pas.



Qu'en pensez-vous ?

Merci beaucoup pour ton travail, il m'a fait gagner un temps fou (reprise d'une grosse base Access d'un autre développeur pour la convertir dans mon logiciel).

:ccool:

:salut:

Travail génial. :king:
J'en avais ras le bol de faire des images écran des différentes tables !!!
C'est très utile, même pour le créateur de l'application. Cela permet d'avoir une documentation complète sur la base.

Je me permets d'ajouter à ce nouvel outil, un autre que j'ai également trouvé sur developpez.com : Analyse des dépendances

Merci, c'est effectivement très pratique :ccool:

Bonjour

Superbe idée. Merci beaucoup.

Juste un détail : je l'ai testé sur une base ou existe une règle de validation sur un champ texte.

="P" Ou "C" plante de même que IN("P";"C").

En revanche cela fonctionne impec avec le même type de validation en numérique : in(1;2;3)

Pour être précis, EnrichirDico ligne

Code:

---

1 2 3 4 5

oDb.Execute "INSERT INTO " & NOMTABLEDICO & " VALUES (" & _ MAJTexte(oTbl.Name) & "," & _ MAJTexte(oFld.Name) & "," & _ MAJTexte(TypeFr(oFld.Type)) & "," & _ MAJTexte(oFld.ValidationRule) & ")"

---

Merci pour ce module très pratique.

Comment l'utilisé, j'essaie mais ça marche pas !? une petite aide sera le bienvenu! Merci!!

Bonjour Tsinjo,

Qu'est-ce qui ne marche pas?
Tu importes le formulaire et le module dans ton application.
Tu lances l'application avec le bouton "Lancer l'exécution du dictionnaire" et tu attends que la liste s'affiche.

@+

Bonjour ,

Les règles de validation peuvent entrainer une erreur d'execution lorsqu'elle contiennent un "

Pour corriger il suffit de remplacer dans EnrichirDico() le code :
MAJTexte(oFld.ValidationRule)

par :
MAJTexte(Replace(oFld.ValidationRule, """", "'"))

En passant solution "dictionnaire de données du pauvre" :
* Lancer l'outil intégré de documentation de Access
* Fare imprimer dans un PDF (ça génère généralement un paquet de pages).
* Utiliser la fonction de recherche de l'outil de visualisation de PDF

Note attention au chemin d'accès long. L'entête de la page reprend le chemin au complet et masque le nom de l'objet ... pas cool :-(.

Je trouve cela pratique si on a pas d'outil plus perfectionné sous la main.
Bonus de cette solution : permet d'avoir autre chose que les tables (ex : formulaire, code) ce qui bien utile quand on a 50 écrans, pas de doc et qu'on cherche où tel champ est saisie dans l'application.

A+

Bonjour,
.
J'ai transmformé le formulaire d'appel en une fonction et incorporé le tout à mon appli. Cela fonctionne très bien.

Pièce jointe 642799

Merci à vous.