Discussion :

[Malick]

Bonsoir, je viens de finir ma base de données et j'aimerai savoir s'il est possible de désactiver le clic droit.
Merci

[jimbolion]

milkoseck,

Tu peux désactiver le clic droit en modifiant dans chaque formulaire la valeur de la propriété Menu_Contextuel en mettant Non.

Si ta base contient de nombreux formulaires et que tu ne souhaites pas modifier chacun d'entre eux tu peux utiliser cette procédure pour mettre à jour l'ensemble des forms composant ton projet.

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 Sub DisableMenu()
 
Dim obj As AccessObject
Dim db As Object
Set db = Application.CurrentProject
 
 
For Each obj In db.AllForms
DoCmd.OpenForm obj.Name, acDesign
If Forms(obj.Name).AllowDesignChanges = True Then
Forms(obj.Name).ShortcutMenu = False
End If
DoCmd.Close acForm, obj.Name, acSaveYes
Next obj
End Sub

JimBoLion

[Malick]

Bonjour jimbolion
Merci de votre aide. Je vais l'exploiter et vous ferais un retour.

[Malick]

Bonjour JimBolion,
le code marche très bien.
Merci beaucoup.
Excellente journée à vous.