Légende des formulaires
Je souhaiterais que tous mes formulaires aient la même légende (un texte identique, sur la barre bleue de titre). Comment modifier en une seule opération la légende de tous les formulaires de ma base de données ?
Solution
- Recopiez le code qui suit dans un module standard d’Access (Insertion/Module).
- Faites apparaître la fenêtre Exécution (
Ctrl+G). - Dans cette fenêtre, tapez :
|
1 |
FormCaption "Blah blah" |
(où « Blah blah » est la nouvelle légende de vos formulaires).
Le code VB
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 |
' --- ' MODIFIER LA LEGENDE DE TOUS LES FORMULAIRES ' --- ' Sub FormCaption(ByVal strCaption As String) Dim ao As Access.AccessObject If MsgBox( _ "Confirmez-vous le changement de légende pour tous les formulaires ?", _ vbQuestion + vbYesNo) = vbNo Then Exit Sub ' Geler l'affichage écran DoCmd.Echo False For Each ao In CurrentProject.AllForms ' Ouvrir le formulaire en mode Création DoCmd.OpenForm ao.Name, acDesign ' Modifier la légende du formulaire Forms(ao.Name).Caption = strCaption ' Fermer et enregistrer le formulaire DoCmd.Close acForm, ao.Name, acSaveYes Next ' Terminé ! DoCmd.Echo True MsgBox "Opération terminée !", vbInformation End Sub |
Bonjour,
J’ai commencé à gérer ma base de données généalogiques avec Access97. Je suis passé ensuite à Access2003, 2007, 2010 et aujourd’hui 2016. Environ 16 000 lignes de code VBA et VB6 associé.
La base étant ouverte, mes « anciens » formulaires ont leur légende inscrite au centre de la barre supérieure du formulaire. Mais mes « nouveaux » formulaires, créés sous Access2016 ont leur légende inscrite à gauche de cette même barre. Et bien sûr je ne trouve nulle part la propriété « Center » du texte de légende.
Ceci est un souci sans aucune conséquence sur la base de données bien sûr. Mais c’est énervant de ne pas savoir maîtriser un truc si bête…
Si vous avez une solution, je suis preneur.
Il n’y a effectivement pas de réglage pour aligner le titre d’un formulaire : c’est imposé par Windows. Les formulaires « classiques » ont un titre centré, les formulaires indépendants ont un titre aligné à gauche.
C’est le cas pour les produits Microsoft eux-mêmes : Access et Excel (par ex.) ont leur titre centré, mais leurs titres de boîtes de dialogues alignés à gauche.
Du coup, la solution consiste à faire en sorte que les formulaires où le titre est à gauche ne soient plus des formulaires indépendants.
Dans les propriétés du formulaire, sous l’onglet Autres, il faut régler :
Fenêtre contextuelle = Non.(ce réglage s’appelait « Fenêtre indépendante » sur des Access plus anciens).
Merci beaucoup d’avoir attiré mon attention de ce côté. J’ai testé et… il ne suffit pas de mettre « Fenêtre contextuelle » à Non, il faut aussi mettre « Fenêtre modale » à Oui. Dans ce cas on retrouve bien la légende du formulaire centrée en haut.
Mon souci (pas bien grave !) est résolu.
J’ai fait beaucoup de trouvailles, et incidemment bcp de progrès en venant sur ce site!
Merci pour ce précieux partage d’expérience !
Bien sympathiquement
Eric
Merci !
Merci encore, votre grenier aide bien!
Merci aussi ! 🙂
salut, c’est vraiment fantastique pour le travail que vous faite. Merci pour les notions que vous nous apprenez.A la suite de cette notion qui est : Comment modifier une legende de formulaire , j’aimerais savoir s »il exixte un code VBA pour modifier les propriétés d’un formulaire (les propriétés Modifier autorisé , supprimer autorisé). Merci
Christ > Ces propriétés sont effectivement modifiables en VBA. Pour autoriser les ajouts (Additions), les modifications (Edits) et les suppressions (Deletions), il suffit d’écrire :
Pour désactiver les propriétés, il faut remplacer
TrueparFalse.Par contre, contrairement à l’exemple de l’article sur les légendes, ce bout de code ne sera sans doute pas exécuté en boucle pour tous les formulaires. Il s’utilise plutôt au cas par cas, dans un seul formulaire. Et comme le code sera tapé dans le formulaire concerné, on peut simplifier en :
Ouala !