[AC-2010] Menu contextuel sur un 'OpenTable' [Résolu]

[JeanYves70]

Bonjour du forum,

Mon application tourne en .accde sur runtime ACC2010.

Lorsque j'ouvre une table en directe avec

Code :

docmd.opentable "MaTable"

je ne dispose pas des fonctionnalités du menu contextuel alors que si j'ouvre le même .accde avec une version complète d'ACCESS je dispose bien du menu contextuel par défaut.

C'est pareil sur un formulaire simple.

Pourtant l'option 'menus contextuels' est bien cochée dans les options de la DB.

D'avance merci pour vos réponses

[GAYOT]

Bonjour
Les menus contextuels n'apparaissent pas avec le Runtime. Il faut en recréer.

[JeanYves70]

Bonjour et merci pour la réponse.

Mais existe t-il un générateur de menu contextuel comme dans les versions 200x ?
si il existe je ne l'ai pas trouvé ou est on obligé de passer du code ?

D'avance merci

[GAYOT]

Bonsoir
Soit tu utilises la méthode universelle de Philippe JOCHMANS
http://starec.developpez.com/tuto/barrecommande/#LV-C

Soit à partir de 2007 tu peux convertir une macro en menu contextuel.
Tu crées ta macro avec l'assistant, puis tu la sélectionnes et dans le menu "Outils de base de données" tu cliques sur "créer un menu contextuel d'après la macro".

[JeanYves70]

Merci GAYOT pour les réponses

J'ai trouvé ceci dans l'aide en ligne ACC2010 à l'adresse :
Référence du développeur Access 2010 > Comment faire... dans Access 2010 > Interface utilisateur > Divers

Code :

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
30
31
Sub CreateShortcutMenuWithGroups()
    Dim cmbRightClick As Office.CommandBar
 
 		' Create the shortcut menu.
    Set cmbRightClick = CommandBars.Add("cmdFormFiltering", msoBarPopup, False, True)
 
    With cmbRightClick
        ' Add the Find command.
        .Controls.Add msoControlButton, 141, , , True
 
        ' Start a new grouping and add the Sort Ascending command.
        .Controls.Add(msoControlButton, 210, , , True).BeginGroup = True
 
        ' Add the Sort Descending command.
        .Controls.Add msoControlButton, 211, , , True
 
        ' Start a new grouping and add the Remove Filer/Sort command.
        .Controls.Add(msoControlButton, 605, , , True).BeginGroup = True
 
        ' Add the Filter by Selection command.
        .Controls.Add msoControlButton, 640, , , True
 
        ' Add the Filter Excluding Selection command.
        .Controls.Add msoControlButton, 3017, , , True
 
        ' Add the Between... command.
        .Controls.Add msoControlButton, 10062, , , True
    End With
 
Set cmbRightClick = Nothing
End Sub

qui fonctionne bien et qui est, apparemment, spécifique aux version 2007 et 2010.

[bremmo76]

Bonjour,
Cette procédure me parait intéressante, mais ou dois je la placer au niveau de mon état pour qu'elle fonctionne ?

Merci