Discussion :

[polo31]

Bonjour,

J'ai utiliser le code de http://access.developpez.com/sources...=acc#supprSyst pour supprimer le menu système de la barre de titre Access.

Je l'ai mis sur un formulaire qui s'ouvre automatiquement a l'ouverture de ma base. Le problème c'est que le menu système s'affiche quand même à son ouverture bien qu'il ne soit pas utilisable. il disparait dès que je change de formulaire.

C'est donc juste un problème au chargement du formulaire mais je ne vois pas comment le changer.

Quelqu'un a une idée?

polo31

[nico84]

Bonjour,

Si ça peut t'aider j'utilise une procédure standard qui permet de choisir le mode "utilisateur" (boul false) ou "développeur" (boul true).

"Accueil" est la fenêtre d'accueil (comme son nom l'indique)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Change_Mode(boul As Boolean)
ChangeProperty "AllowBreakIntoCode", DB_Boolean, user_admin 'Autoriser la vue du code sur erreur
ChangeProperty "AllowBypassKey", DB_Boolean, boul
'ChangeProperty "AllowSpecialKeys", DB_Boolean, boul
ChangeProperty "StartupShowDBWindow", DB_Boolean, boul
ChangeProperty "StartupShowStatusBar", DB_Boolean, True 'permet d'afficher des infos en bas de l'écran
ChangeProperty "AllowBuiltinToolbars", DB_Boolean, boul
ChangeProperty "AllowFullMenus", DB_Boolean, boul
ChangeProperty "AllowShortcutMenus", DB_Boolean, boul
ChangeProperty "AllowToolbarChanges", DB_Boolean, boul
'pour éviter qu'une suppression dans le menu démarrage puisse verrouiller la base
ChangeProperty "StartupForm", DB_Text, "Accueil"

[polo31]

bonjour nico84,

Merci mais je n'ai pas défini de partie utilisateur et développeur sur ma base donc je ne pense pas pouvoir le faire fonctionner.

[nico84]

IL y a peut-être plus simple mais ma méthode n'est pas très compliquée :

Il faut un booléen qui définit à l'ouverture si l'utilisateur a les droits "admins"

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Set wrk = DBEngine.Workspaces(0)
For Ind = 0 To DBEngine(0).Users(CurrentUser).Groups.count - 1
  nom_groupe = DBEngine(0).Users(CurrentUser).Groups(Ind).Name
  Select Case nom_groupe
    Case "Admins":   user_admin = True
    Case "NAV":      user_nav = True
    ....
   End Select
Next Ind

Puis appeler la routine ci-dessus avec user_admin en paramètre

[polo31]

J'avais oublié de préciser au début de la discussion que je suis débutant... Je ne comprend pas tout mais la méthode que j'utilisais au début semble fonctionner.

Merci quand même

polo31