Discussion :

[bertin]

Bonjour à tous,

Je suis en pleine conversion d'une application initialement en Access97 vers Access2010.

Je dois renseigner la propriété [Nom du ruban] à la valeur "XXXXXX" et mettre à vide la propriété [barre de menus]

De la même façon je voudrais pouvoir changer les polices, les couleurs d'arrière plan ....

J'aimerai avoir à éviter d'ouvrir chaque formulaire, ou état pour faire ces modifications !

Existe-t-il un moyen d'extraire sous forme de fichier texte la définition d'un formulaire, de modifier certaines informations par rechercher/remplacer, et de recréer un formulaire à partir de ce fichier texte, un peu sur le modèle de la documentation ?

Ou peut-être avez vous déjà créé une moulinette en VBA pour faire ce genre de chose ?

Merci et bon courage à tous

[mumen]

C'est facile. Tu fais ton coeur de procédure comme ça :

Code :

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

1
2
3
4
5
6
7
    DoCmd.OpenForm strNomFormulaire, acDesign
    With forms(strNomFormulaire)
        .MaPropriété1 = "XXX"
        .MaPropriété2 = "XXX"
        etc.
    End With
    DoCmd.Close acForm,,acSaveYes

Pour la boucle, tu peux prendre la liste intégrale des formulaires de ta base :

Code :

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

1
2
3
4
5
6
7
    Dim doc as Document
    With Currentdb.Containers
        !Forms.Documents.Refresh
        For Each doc In !Forms.Documents
            strNomFormulaire = doc.name
        Next
    End With

Tu peux extraire les formulaires que tu veux :

Code :

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

1
2
3
4
5
    Select Case strNomFormulaire
    Case "PasCeluiLa", "NiCeluiCi"
    Case Else
        Docmd...
    End Select

Pour finir avec (code au vol) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
    Dim doc as Document        
    For Each doc In Currentdb.Containers!Forms.Documents
        strNomFormulaire = doc.name
        Select Case strNomFormulaire
        Case "PasCeluiLa", "NiCeluiCi"
        Case Else
            DoCmd.OpenForm strNomFormulaire, acDesign
            With forms(strNomFormulaire)
                .MaPropriété1 = "XXX"
                .MaPropriété2 = "XXX"
                etc.
            End With
            DoCmd.Close acForm,,acSaveYes
        End Select
    Next

Fais une sauvegarde avant.

[bertin]

Merci pour ta réponse,

Je me suis orienté dans cette démarche en ajoutant un passage en revue de tous les contrôles de chaque formulaire.

J'ai hâte de voir le résultat.