Discussion :

[Ric500]

Bonjour à tous!

Je viens vers vous pour aborder une question de méthode.

Je suis en train d'écrire un petit soft qui:

1/ recense les objets d'une base:
. Tables
. Requêtes
. Formulaires
. Etats
2/ Enregistre leurs propriétés dans une table avec une valeur d'origine et une valeur de modification.
3/ Met à jour les valeurs en mode traitement par lots des valeurs de propriétés par celles modifiées. Exemple: mettre à jour les couleurs de fond de toutes les étiquettes sélectionnées de tous les formulaires sélectionnés de fond transparent à bleu ciel (backStyle et backColor).


Pour les tables et requêtes, no problemo, il suffit de parcourir TableDefs et QueryDefs.

Çà se complique pour les formulaires et états: je n'ai pas trouvé d'autre solution que de d'ouvrir les objets de MSysObjects avec un type = -32768 (form) ou Type=-32764 (report) en mode acDesign et hidden, de parcourir leur collection de contrôles et pour chaque contrôle de parcourir sa collection de properties pour les enregistrer.

Çà tourne! Mais c'est Hyyypeeeer long! (8H pour les 160 formulaires d'une appli!)

J'ai un peu optimisé le bazar en excluant certains types de contrôles et de propriétés, mais çà reste très très long à l'exécution.

J'imagine qu'il doit y avoir une autre méthode: auriez-vous une idée ? (mes pauvres neurones sont à bout !)

Merci d'avance !

[loufab]

Bonjour,
8h en effet c'est (trop) long.

Forms et Reports ont leur collection.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

currentproject.AllForms

Voici un petit code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Function editfrm()
Dim frm As Form
Dim frmEdit As Form
DoCmd.Echo False
For Each frm In CurrentProject.AllForms
    DoCmd.OpenForm frm.Name, acDesign
    Set frmEdit = Forms(frm.Name)
    'traitement
    Set frmEdit = Nothing
    DoCmd.Close acForm, frm.Name 'sauve/sauve pas ?
Next
DoCmd.Echo True
End Function

cordialement,

[Ric500]

Merci loufab pour ta réponse,

En effet, j'ai essayé également, ce qui prend du temps c'est l'ouverture en mode acdesign
+ parcourir les propriétés de forms ou reports
+ enregistrement avec un SQL dans la table qui va bien
+ parcourir la collection de contrôles
+ la collection de propriétés de chacun d'entre eux
+ enregistrement avec un SQL dans la table qui va bien.
+ fermeture du form ou report

Dans un souci de performance, j'ai été obligé de créer des tables avec :
. les propriétés de formulaires et un booléen pour sélectionner les propriétés les + pertinentes
. idem pour les propriétés de contrôles, par type de contrôle

Dans la mesure où Access est capable de fournir une documentation de base de données (ils filtrent, eux aussi les objets) qui peut être longue à produire également, je me demandais s'il existait une méthode plus radicale.
Peut-être avec des tables système ?
Apparemment, non

J'espère avoir des réponses plus encourageantes!

Merci encore!

[Thierry_PALLIER]

Bonjour.

@ Ric500 , je ne comprends pas trop l'utilité de stocker toutes les propriétés de tous les objets, dans des tables. De plus ,est-ce que ces tables seront bien toujours à jour ?
Question rapidité , je pense que, après export au format texte des objets (tables, formulaires,états ...) ,il sera plus rapide de lire dans le fichier texte .
Par contre la difficulté (pour moi) , est de bien écrire le script !

Je pense (c'est meme évident) qu'Access stocke des infos quelque part.
example: une appli format 2007 , utilisée sur A2010, j'ai 7 mfc sur un controle, sur A2007, je ne peux en utiliser que3 , mais les 4 dernières n'ont pas disparues pour autant !

Je pense qu'un "petit" tuto sur les tables systèmes, serait utile .
Cdlt

[Ric500]

Bonjour Thierry,

je ne comprends pas trop l'utilité de stocker toutes les propriétés de tous les objets, dans des tables. De plus ,est-ce que ces tables seront bien toujours à jour ?

Imagine que tu aies écrit une suite logicielle (compta, gestion commerciale, contacts...) et que tu veuilles changer ou homogénéiser la charte graphique, par exemple...

Question rapidité , je pense que, après export au format texte des objets (tables, formulaires,états ...) ,il sera plus rapide de lire dans le fichier texte .

Là tu m'intéresses fortement! Je ne savais même pas que c'était possible (à condition que ce fichier texte stocke tout ce dont j'ai besoin).

Quelqu'un sait où trouver cette option?

[loufab]

Ces fichiers textes stockent tout et ils peuvent être réimporté.

Les commandes cachées :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
application.saveastext
 
 
 
application.loadfromtext

[Ric500]

Merci,

Je vais regarder çà de près

[Thierry_PALLIER]

Regarde dans ma contribution "DependancesPlusV2" (juillet 2017)
A+

[Ric500]

Merci Thierry,

Je regarde çà rapidement.