Discussion :

[kawaya]

Bonsoir,

Mon titre résume bien mon problème. J'ai un formulaire principale qui souvre au démarage et qui permet d'ouvrir un grand nomvre de formulaire. J'aimerais qu'au lancement de l'appli le clic droit soit interdit partout. Je souhaite mettre un bouton dans le formulaire principale, reservé à l'admin qui lui permettrait de disposer lui du clic droit si l'envie lui ne prenait.
J'ai bien compris qu'avec la syntaxe ci dessous je pouvais interdire ou permettre le clic droit.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Me.ShortcutMenu = False
Me.ShortcutMenu = True

Cependant je ne veux pas avoir à le faire dans chaque formulaire.

J'aimerais un code (à mettre dans un modue du style)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Public Sub AdminView()
    [Forms]![frm1].[Form].ShortcutMenu = True
    [Forms]![frm2].[Form].ShortcutMenu = True
    ..... (tous mes formulaire et sous formulaire)
End Sub
 
Public Sub UserView()
    [Forms]![frm1].[Form].ShortcutMenu = False
    [Forms]![frm2].[Form].ShortcutMenu = False
    .....
End Sub

Malheureusement ça ne marche pas car la majorité de mes formulaires ne seraient pas ouverts au lancement de la fonction.

N'y aurait il pas un moyen pour interdire ou autoriser le clc droit partout. Ou alors une solution qui ressemblerait un peu à ce que j'ai proposé mais qui marcherait ?

Merci d'avance

[marot_r]

Le code ci-dessous va passer dans tous les formulaires et autoriser ou empécher le menu contextuel.

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
 
private sub AutoriserClickDroit(prmEstAutorise as boolean)
   dim f as form
 
   dim ao as AccessObject:for each ao in currentproject.allforms
 
      if currentproject.allforms(ao.name).islaoded then
           domcd.close acForm, ao.name
      end if
 
      docmd.openform ao.name, acDesignView
      set f=forms(ao.name)
      f.ShortcutMenu = prmEstAutorise
      docmd.close acForm, f.name, acSaveYes 'Je ne suis pas sur de la syntaxe
 
   next ao
end sub

Si tu veux que ce soit dynamique tu peux mettre dans l'événement Open de chaque formulaire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

call AutoriserClickDroit(me)

À mettre dans un module

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
public sub AutoriserClickDroit(prmForm as form)
    me.ShortcutMenu = EstAdmin()
end if

A+

[kawaya]

Un grand merci a toi margot_r !

Le seul hic de ce code (solution number one), c'est que c'est super lourd ! Avec le nombre elevé de formulaire dont jje sipose il met bien 1 minute a terminer la procédure !

Enfin qu'est ce que 1 minute......

juste pour les perfectionniste

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
 
DoCmd.OpenForm ao.Name, acDesign, , , , acHidden

Pour empecher que l'on voit plein de fenêtre s'ouviri puis ce fermer !