Discussion :

[FRED.G]

Origine du sujet : http://www.developpez.net/forums/viewtopic.php?t=332820

Quant à l'événement [Click] d'un CommandBarButton, j'ai pu constater des comportements bizarres.

Exemple:
en VBA on crée plusieurs barres d'outils personnalisées, associées à des formulaires distincts.
Quand l'utilisateur clique sur le bouton d'index n dans une barre d'outils particulière, alors l'événement Click est déclenché sur tous les boutons d'index n de toutes les barres d'outils personnalisées !!!

(expérience vécue et vérifiée tous les jours dans Access 2000)

Alors prudence

Merci pour ce retour d'expérience.

Il faudra que je fasse des tests un de ces jours. D'ailleurs je vais le faire tout de suite.


EDIT : tests ok sous office XP avec services packs à jour.

Mon test : j'ai créé deux barres d'outils "perso1" et "perso2" chacune contenant 3 boutons.

Sur chargement d'un formulaire, j'ai instancié un seul des contrôles. Puis je récupére bien son événement Click, uniquement lorsque je clique dessus.

[FRED.G]

Voici le code testé qui fonctionne très bien :

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 WithEvents A As Office.CommandBarButton
Dim WithEvents Y As Office.CommandBarButton
 
Private Sub Form_Load()
Set A = CommandBars!perso1.Controls("B")
Set Y = CommandBars!perso2.Controls("Y")
End Sub
 
Private Sub A_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)
MsgBox Ctrl.Parent.Name
End Sub
 
Private Sub Y_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)
MsgBox Ctrl.Parent.Name
End Sub

[=JBO=]

Sous Office XP les résultats sont corrects !?

Vais-je devoir changer de version ???

Merci d'avoir effectuer le contrôle.

Cordialement,
=JBO=

[FRED.G]

Vais-je devoir changer de version ???

Possible...
Car je sais que la mise en forme conditionnelle (tests réalisés avec Tofalu) est absoluement catastrophique sous Access 2000. Quoique nous avons testé sans services packs.

[FRED.G]

Je viens de tester mon code sur 2000. Il fonctionne très bien.

=JBO=, quel code ne fonctionne pas chez toi ?

[FRED.G]

Bon, je vais refaire des tests car je me suis peut-être un peu précipité :

en VBA on crée plusieurs barres d'outils personnalisées, associées à des formulaires distincts.

Je n'ai pas créé mes commandbar en vba.
Je re-teste...


EDIT : tout fonctionne parfaitement chez moi. Donc j'aimerais bien connaître ton code.

[=JBO=]

Je viens de tester mon code sur 2000. Il fonctionne très bien.

Exact, j'ai vérifié que ton code fonctionne parfaitement.

=JBO=, quel code ne fonctionne pas chez toi ?

Tu veux vraiment savoir ?

Il s'agit d'une utilisation particulière des barres d'outils.

Dans une application MDB Access 2000, les utilisateurs disposent d'environ 30 Forms, affichables façon MDI, pouvant être instanciés plusieurs fois, et complétés de barres d'outils générées à la volée et qui leur sont associées via la propriété ToolBar.
Selon la commande de menu invoquée, l'instance d'un Form peut être configurée de différentes manières (colonnes cachées, boutons supplémentaires ajoutés dans la barre d'outils, source de données, filtrage des données, etc.).

Point important: les barres d'outils mémorisent un ensemble de valeurs spécifiques à un Form, ce qui interdit de les partager entre plusieurs Forms.

Tu l'as compris, le nombre de configurations particulières multiplié par le nombre de Forms, ça fait beaucoup de cas et beaucoup de barres d'outils. Alors pour être efficace, j'ai développé un ensemble de classes dont les instances servent à configurer et piloter les Forms de l'application (en évitant de dupliquer du code ).
Ces instances sont des "contrôleurs de Forms" et référencent directement (withevents) les boutons de la barre d'outils associée au Form.

C'est dans ce contexte que les déclenchements de Click intempestifs ont lieu: l'appui sur un bouton d'une barre d'outils spécifique est répercuté vers tous les contrôleurs de Forms au lieu de se limiter à celui qui lui est associé.

Dernière précision: les barres d'outils sont générées sur une base commune (même boutons aux mêmes positions, mêmes Captions) puis complétées en fonction des instances de Form auxquelles elle sont ensuite associées.

L'application fait plus de 20 Mo . Bien sûr les données sont dans une autre base en réseau.
FIN

[FRED.G]

Ouf, ben ça me rassure ! Si tu utilises plusieurs instances d'une classe Form_X c'est déjà moins banal comme cas.

Mes derniers tests concernaient des forms "bien distincts".
Donc je présumme que je devrais réussir à reproduire les dysfonctionnement sur n'importe quelle version.

Ce qui m'intéresse, c'est de savoir si c'est vraiment un bug où si c'est "normal". En effet les événements de classes ne sont pas toujours à la hauteur de nos attentes mais ce n'est pas pour autant un bug.
Enfin tu vois ce que je veux dire...

Sur ce je vais relire ton message ^précédant pour essayer de bien cerner le pb.
Et je vais diviser le thread aussi.

[Tofalu]

Peut être un problème au niveau de la portée des objets. Veille bien à ne rien avoir en public

Peut être ça n'aura aucun rapport avec ta question mais j'aurais au moins eu le plaisir à répondre à un message ouvert par FRED 8)

[FRED.G]

Peut être un problème au niveau de la portée des objets. Veille bien à ne rien avoir en public

=JBO= ne revient que la semaine prochaine je crois. Mais d'ici là j'aimerais recreer son problème afin de voir si c'est une limite ou un vrai bug (de version ?).

A ce moment on pourra voir la question de la portée des objets.