Discussion :

[vodiem]

bon vous allez me dire que c'est simple...

mais voici le pb:

je voudrais exécuter un code sur le click droit n'importe où dans le formulaire.
tous les controls du form sont inactifs et verrouillés (et c'est pas négociable sinon cela me crée un autre pb incontournable)

seulement douloureuse découverte:
si je fais un clic droit sur le fond du form l'événement mousedown se déclenche bien mais si je fais sur un control inactif et verrouillé, seul le double click droit déclenche l'événement.

alors je me pose la question, comment intercepter ce click droit manquant?
je me demandais si je créais un menu contextuel car celui ci se déclenche bien même sur le control inactif et verrouillé, mais n'ayant pas encore fait sous access, je doute que je puisse le masquer et exécuter mon code à travers son déclenchement.
faut-il que je recherche en se sens?

j'ai pensé aussi à un timer sur l'état de la souris...

qui dit mieux et pourrait m'éclairer? merci.

[Invité]

Bonjour

L'idée du menu contextuel est bonne, tu peux lancer des actions, je penses qu'un peu de lecture devrait t'aider :

Personnaliser vos barres de commandes dans Access

Starec

[Invité]

Re

Une idée à tester (je l'ai tapé à la main)

Dans un module

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
Public Function MnuContext()
    Dim cmb As CommandBar
    Dim btn As CommandBarButton
 
    On Error Resume Next
    Application.CommandBars("ClickForm").Delete
 
    Set cmb = Application.CommandBars.Add("ClickForm", msoBarPopup, False)
    Set btn = cmb.Controls.Add(msoControlButton)
    With btn
        .OnAction = "=msgbox('coucou')"
    End With
    btn.Execute
 
End Function

dans ton formulaire

Code :

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

1
2
3
4
 With Me
    .ShortcutMenu = True
    .ShortcutMenuBar = "=MnuContext()"
End With

A mettre sur le Load du formulaire, aides-toi de l'article pour comprendre.
( la bibliothèque Microsoft Office xx.0 Object Library doit être dans les références).

Sans garantie

Starec

[vodiem]

Ok, cela se déclenche bien mais j'ai bien le soucis que je pensais: le masquage de la fenêtre contextuelle, tu penses qu'il est possible de la rendre invisible ou la fermer?
je doute car j'ai fait:

Code :

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

1
2
3
4
With Me
    .ShortcutMenu = True
    .ShortcutMenuBar = "=MaFonction()"
End With

en shintant la création de la barre. ca marche pareil.
il crée une petite fenetre vide.
(j'ai essayé aussi sans succés: .visible=false)
est-il possible de personnaliser l'affichage de la barre?

merci beaucoup de ton aide.

[Invité]

Re

Effectivement je viens de tester (comme je te l'ai dis je l'ai fais à la main).
J'ai testé avec Enabled, et même en la détruisant NADA, elle est toujours là

Elle disparait dés que tu es click sur le formulaire.

Je ne vois pas pour l'instant, j'ai essayé de résoudre ton soucis de départ, mais effectivement il y'a un petit bug d'affichage.

Starec

[Domi2]

Bonjour,

On parle de contrôle inactifs et verrouillés...

Il ne s'agit que de zone de texte ? C'est pour empêcher toute modification ?

Domi2

[vodiem]

bien deviné , et certains sont utilisés comme étiquette à la place d'étiquette qui me poserait pb pour la gestion du clic.

C'est pour empêcher toute modification ?

oui, plus ou moins...
en tout cas pas directement.

je recherche aussi un moyen pour stopper l'exécution du code puisque la fenetre apparait seulement qu'après celui-ci.
génération d'un erreur, .ShortcutMenu = False, end...
je pensais un "sendkey(ctrl+attn)"? (pas encore essayé)
mais en vain pour le moment.

après d'autre test:
même avec ctrl+attn manuel ca marche pas.
j'ai pensé aussi à donner le focus au form, perte focus,désactivation du form...
ca n'a pas l'air évident de le faire disparaitre.

[Domi2]

Re,

Et mettre la propriété Modif autorisée à non sur le formulaire, au lieu de tout verrouiller et inactiver, ça ne pourrait pas contourner ton problème ?

Domi2

[nostradamus]

Bonjour,

Solution triviale, tu recouvres tes controles par un label (étiquette) transparent, et tu géré le click-droit sur l'événement de ce label.

[vodiem]

Domi2> non je ne peux pas, je dois impérativement les désactiver, ces controls ne doivent pas réagir à un événement puisque leur gestion est géré au niveau du form.
vu leur nombre: 947 il vaudrait mieux.
mais le vrai pb c'est que si je les actives, j'ai un pb dû à l'événement clic qui me garde le focus dessus lorsque je relache le clic en dehors et ca je ne peux rien faire pour le contourner.

nostradamus> j'y ai pensé à un moment donné mais j'ai du changer toutes mes étiquettes pour des zone de texte parceque ceux-ci interceptent les événements, donc j'avais proscris tout étiquette.

mais tu as raison!

j'ai basculé tous les codes du form sur l'étiquette qui couvre le form et ca marche, c'est effectivement trivial, je sais pourquoi je me suis interdis de le faire...

bon il faut dire, ca marche aussi parceque mon code récupère le control sous l'étiquette et ca vous n'étiez pas sensé le savoir...

merci à tous!