Discussion :

[electrosat03]

Bonjour à tous,

Je dois migrer une appli access 2003-2007 vers access 2010, elle contient pas mal de menu contextuels.

Je sais réaliser un menu contextuel en VBA et l'afficher dans le formulaire mais comment en créer plusieurs, faut-il plusieurs procédure (1 par menu) ??? Je pense que oui.

Je voudrais dans mon menu perso, ajouter des commandes existantes du genre tri ascendant etc, mais où trouver les N° ID et le nom exact car il y a des icones qui sont identique pour des ID différent.

J'aimerais savoir aussi comment renvoyer à une procédure ou Function sur .OnAction Car j'ai une procédure dans un form Public Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer) et je n'arrive pas à l'exécuter

Encore une question, comment mettre un faceID perso, image que l'on a créé, avec access 2003 c'était possible mais je ne sais pas comment faire avec 2010

Merci pour votre aide

[Filou07]

Bonjour,

Voici une réponse partielle qui pourrait t'aider :

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
16
17
18
19
20
21
22
23
24
25
26
Function CreationMenuContextuelFormulaires()
On Error Resume Next
'Lancer cette fonction au lancement de l'application pour intégrer cette barre de menu contextuel à la base de données
 
    CommandBars("MenuContextuelPourFormulaires").Delete ' supprime la barre d'outils avant de la re-créer
    Dim cmbBtn As CommandBarButton
    Dim cmb As CommandBar
 
    Set cmb = CommandBars.Add("MenuContextuelPourFormulaires", msoBarPopup, False, False)
    With cmb
        .Controls.Add msoControlButton, 210, , , True   '210     Tri croissant
        .Controls.Add msoControlButton, 211, , , True   '211     Tri décroissant
        .Controls.Add(msoControlButton, 21, , , True).BeginGroup = True ' Couper
        .Controls.Add msoControlButton, 19, , , True  ' Copier
        .Controls.Add msoControlButton, 22, , , True   ' Coller
        .Controls.Add(msoControlButton, 640, , , True).BeginGroup = True   ' 640  Filtrer par sélection
        .Controls.Add msoControlButton, 605, , , True  ' 605  Active/désactive le filtre.
        .Controls.Add msoControlButton, 3017, , , True  ' 3017  Flitrer hors sélection
        .Controls.Add msoControlButton, 10062, , , True  ' 10062 Trier entre..et ...
        Set cmbBtn = .Controls.Add(msoControlButton, 11723, , , True)   '11723   Exporter
            cmbBtn.BeginGroup = True
            cmbBtn.Caption = "Exporter"
    End With
 
    Set cmb = Nothing
End Function

Tu peux télécharger les ID ici : https://www.microsoft.com/en-us/down...ang=en&id=6627

Attention ils peuvent varier selon que tu sois dans un Etat ou un formulaire

Espérant avoir pu t'aider un peu

[electrosat03]

Salut,

Merci pour ta réponse Filou07

9a m'a bien aidé.

Maintenant je cherche à mettre dans mon menu contextuel lors de l'aperçu d'un état,


Malgré mes recherches sur le net et ton lien, je ne trouve pas cela.

Merci

[electrosat03]

Salut à tous,

Voilà, je remonte mon post car je n'ai toujours pas trouvé les ID ou la manière de faire ce menu contextuel (voir post précédent)

Merci

A+