[AC-2003] interdire la suppression en passant le menu édition [Résolu]

[willytito]

Bonjour,

Je développe avec Access 2003 sous Windows XP Pro.
J'ai un formulaire qui est lié à une table.
Sur ce formulaire, j'ai créé un bouton "Supprimer" permettant de supprimer un enregistrement par programmation.
Jusqu'ici tout fonctionne bien.
Mais mon souci : est d'interdire la suppression en passant par le menu Edition, Supprimer l'enregistrement (l'idéal serait de griser ce menu).
Dans les propriétés du formulaire, j'ai mis la propriété "Suppr autorisée" à Non.
Mais cette modification n'a pas d'impact sur le menu "Edition", "Supprimer l'enregistrement", ce menu est toujours accessible.

Peut-on par le code supprimer ce menu ou le griser ?

Si quelqu'un a une idée, je suis preneur.

Willy

[Philippe JOCHMANS]

Bonjour

Je n'ai pas tout testé sur des menus existants, mais il faut d'abord repérer celui-ci dans la jungle des menus avant d'agir.

Un tuto qui devrait t'aider : Personnaliser vos barres de commandes dans Access

Philippe

[willytito]

Bonjour,

J'ai regardé le lien sur les menus, c'est très intéressant.
Mais j'ai un petit souci, je voudrais griser le menu "Supprimer l'enregistrement".
Je n'arrive pas à repérer ce menu.
J'ai essayé de voir dans l'explorateur d'objet, mais je ne maîtrise pas ce truc.

Si quelqu'un pouvait me donner le code exact pour griser ou voir désactiver le menu "Supprimer l'enregistrement", ça serait cool.
Merci,

Willy

[willytito]

J'arrive à désactiver la barre de menu toute entière en faisant :

Code :

1
2
 
application.commandbars(2).enabled = false

Mais je ne sais pas comment désactiver le sous-menu "Supprimer l'enregistrement"
Si quelqu'un peut m'aider
Merci
Willy

[Domi2]

Bonjour,

De mémoire, la barre de menu elle-même peut être définie par son index ou par son nom, mais les menus eux-mêmes par leur nom.

A essayer :

Code :

Application.CommandBars("Edit").Controls("Supprimer l'enregistrement").Enabled = False

Je crois que c'est le nom anglais qui est correct.

Domi2

[robyseb]

Salut moi aussi j'ai trouvé quelque chose qui pourrait être pratique !!

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
 
    ' ======================================================================================
    ' Auteur        : Starec - Philippe JOCHMANS - http://starec.developpez.com
    '=======================================================================================
 
    ' ===== déclaration =====
    Dim cmb As Office.CommandBar
    Dim cmbEdition As Office.CommandBarPopup
    Dim cmbNewEdition As Office.CommandBarPopup
 
    ' ajout du menu popup fichier
    Set cmbEdition = Application.CommandBars("Edition").Controls(2)
 
 
    ' on va enlever des contrôles du menu Edition
    ' on affecte d'abord la barre à une autre variable objet
    Set cmbNewEdition = cmbedition
    ' on va enlever les contrôles dont on a pas besoin
    With cmbNewEdition
        .Controls(1).Enabled = False
        .Controls(2).Enabled = False
        .Controls(3).Enabled = False
        .Controls(4).Enabled = False    'Donc à figurer celuil qui est le bon
        .Controls(5).Enabled = False
        .Controls(6).Enabled = False
        .Controls(7).Enabled = False
        .Controls(8).Enabled = False
    End With

que j'ai modifier afin de matcher le menu "Edition"
de la page http://starec.developpez.com/tuto/barrecommande/

P.s. La solution de Domi2 semble beaucoup plus simple ... je vais laisser mon post au cas ou ... , j'étais dans l'édition donc je n'avait pas vue ton post domi2

[willytito]

Merci à tous

J'ai testé le code suivant :

Code :

1
2
 
Application.CommandBars("edit").Controls("Supprimer l'enregistrement").Enabled = False

ça fonctionne

Willy