Discussion :

[hottnikks_79]

J'aimerais désactiver par programmation ou autre moyen l'item SUPPRIMER dans le menu EDITION dans Access.
Comment puis-je spécifier l'item SUPPRIMER.

Dim ctl As CommandBarControl
Set ctl = CommandBars("Menu Bar").Controls("&EDIT")
ctl.Enabled = False

Ce code me permet de désactiver le menu EDIT en entier mais pas seulement l'item SUPPRIMER de ce menu. Comment procéder?

[LedZeppII]

Salut,

Un petit exemple de la méthode que j'utilise :

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
Dim i As Long
Dim cmdBar As Office.CommandBar
Dim cmdCtl As Office.CommandBarControl
Dim ctlState As Boolean

ctlState = True

For Each cmdBar In Application.CommandBars
    For Each cmdCtl In cmdBar.Controls
        If cmdCtl.Type = msoControlPopup Then
           For i = 1 To cmdCtl.Controls.Count
               If cmdCtl.Controls(i).Id = 644 Then cmdCtl.Controls(i).Enabled = ctlState: Exit For
           Next
        End If
        If cmdCtl.Id = 644 Then cmdCtl.Enabled = ctlState: Exit For
    Next
Next

644 est l'ID correspondant à 'Supprimer l'enregistrement' dans les différentes barres Menu et d'outil.
Je l'ai trouvé en listant tous les contrôles de toutes les barres.

En espérant que l'ID ne change pas d'une version à l'autre d'Access ??

Bonne continuation