Discussion :

[olra72]

Bonjour,

Je voudrais parcourir tous les formulaires (ouverts ou non => AllForms) pour leur affecter un ruban (prop. RibbonName) donné.

Le code ci-dessous permet bien d'afficher les noms de tous les formulaires ...

Code :

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

1
2
3
4
5
6
7
Dim obj As AccessObject
    Dim dbs As Object
    Set dbs = Application.CurrentProject
    ' Search for open AccessObject objects in AllForms collection.
    For Each obj In dbs.AllForms
        Debug.Print obj.Name
    Next obj

... mais comment, à partir du nom puis-je accéder à un objet qui reconnaisse la propriété RibbonName ?

J'ai essayé dbs.AllForms(obj.Name).RibbonName = myRibbon et deux douzaines d'autres variantes mais aucune ne passe la compilation. J'ai l'impression que AllForms donne accès à des "AccessObject" et non à des "Form".

Une idée ? Au passage, est-il possible d'utiliser l'explorateur d'objet pour résoudre ce genre de problème ?

Cordialement,
Olivier

[Jean-Philippe André]

Salut

1/ tu dois charger ton ruban
2/ tu l'associes a ton formulaire

http://warin.developpez.com/access/ruban/

[olra72]

Bonjour,

Grâce à votre excellent article, je n'ai rencontré aucune difficulté à définir PLUSIEURS rubans pour la même application (selon le niveau d'accréditation de l'utilisateur).

Mon AutoExec envoie sur un premier formulaire d’authentification. Quand j'en sors, je connais dorénavant le ruban qui doit apparaître pour tous les formulaires - c'est pourquoi je voudrais écrire une boucle qui parcoure tous ces formulaires (et pas seulement ceux qui sont ouverts, d'où le AllForms) et qui redéfinit le paramètre RibbonName.

Bien sur, comme je connais in extenso ma liste de formulaire, je pourrais écrire une procédure qui les modifie nominalement un par un ... mais il faudrait que je la complète à chaque ajout de nouveau formulaire, et ce serait très inesthétique .

Donc ma question reste la même : comment balayer les propriétés RibbonName à partir d'un AllForms ?

Cordialement,
Olivier

[Jean-Philippe André]

RibbonName attend une chaine de caracteres, que vaut MyRibbon dans ton cas ?

[olra72]

Ma variable globale gvRibbon contient une chaîne de caractère (et je la vois bien avec le déboggueur).

Le problème vient de l'accès à la propriété RibbonName à partir d'une "racine" AllForms.

dbs.AllForms(obj.Name).RibbonName n'existe pas
dbs.AllForms![obj.Name].RibbonName non plus

etc.

Tout ce que je trouve en partant d'un AllForms, ce sont des "AccessObject", et non des objets de type "Form" donc, à moins qu'il ne soit possible de forcer le type d'un objet, je ne vois pas comment faire pour retomber sur RibbonName.

Cordialement,
Olivier

[Jean-Philippe André]

Piste possible :

Code :

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

1
2
3
4
5
6
For Each obj In dbs.AllForms
'ouverture du formulaire en mode design
DoCmd.OpenForm obj.Name, acViewDesign
Forms(obj.Name).RibbonName = "PLOP"
DoCmd.Close acForm, obj.Name,acSaveYes
Next obj

[olra72]

Merci !

Ça prend un peu de temps et la fenêtre de propriété clignote sur la droite mais c'est déjà ça (acHidden à la place de acViewDesign ne change rien, je vais chercher) !

Merci beaucoup ! Je laisse encore un peu en non-résolu dès fois que quelqu'un ait une autre idée ?

Cordialement,
Olivier

[olra72]

Bon ! Finalement, j'ai opté pour une re-définition du Ruban sur chaque activation (cf. Sub Form_Current) de chacun de mes formulaires (une vingtaine).

Merci du coup de main !