Discussion :

[marabout]

Bonjour,

Dans une appli Access, je souhaite paramèrer le démarrage d'après l'utilisateur connecté. La manière la plus simple que j'ai trouvé (toute autre proposition est la bienvenue) est d'utiliser sendkeys pour activer ou désactiver les éléments. Cela donne quelque chose comme ceci (sur une version francophone du programme):

Code :

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

1
2
3
4
5
6
7
 
If currentuser <> "machin" then
Sendkeys "%O"
Sendkeys "%D"
Sendkeys "%C"
...
End if

Deux problèmes:
- Il reconnait bien le currentuser mais un fois il désactive tout (donc il fait les sendkeys), la fois suivante, il ne fait rien (mais reconnait toujours le user)
- il semble désactiver et activer le num lock

J'ai envisager une autre solution:

Code :

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

1
2
3
4
5
 
Dim i As Integer 
For i = 1 To Application.CommandBars.Count 
    DoCmd.ShowToolbar Application.CommandBars.item(i).name, acToolbarNo 
Next

mais là, ca plante complètement la base de données...

Pour faire simple:
Quand le user "machin" rentre dans l'appli, il doit avoir accès à tout (menus, fenêtre de la BDD, shortcuts comme ALT-F11, etc...)
Quand un autre user rentre dans l'appli, il doit juste pouvoir travailler sur les formulaires créés pour lui (plus de barres d'outils, plus de menus, pas de vue ni d'accès de la fenêtre BDD, etc.).
La base de donnée est déjà complètement sécurisée (gestion des user et des droits) et tout fonctionne impec. de ce côté là


Merci de vos lumières

[Tofalu]

Le sendkey, c'est vraiment pas terrible.

La gestion des commandsbars est quand même mieux. Quel est le message d'erreur ?

[marabout]

Il n'y a pas de message d'erreur... Il se plante et demande si je veux réparer la BDD... Sans plus

[Tofalu]

As tu essayé d'ajouter la référence Microsoft Office à ton projet ?

[ariesnojf]

J'ai utilisé ce genre de solution sur une appli en access 97.

Je gérais les users connectés selon un login form, puis executer un module en appelant des macros qui faisait apparaître la barre de menu associé au user.

[Tofalu]

J'ai utilisé ce genre de solution sur une appli en access 97.

Je gérais les users connectés selon un login form, puis executer un module en appelant des macros qui faisait apparaître la barre de menu associé au user.

Et ?

[ariesnojf]

Et ?

Faut-il que je mâche le travail ?????

C'est une piste que je soumet ....

[Tofalu]

Si tu l'as déjà fait autant montrer comment.

L'entraide c'est la vocation de ce forum non ?

[marabout]

La solution du login form (je suppose qu'il s'agit d'un formulaire que tu as créé) ne me convient pas car il y a déjà le login par la sécurité Access... Par contre les macros, pourquoi pas (je les transforme en VBA par la suite), j'ai effectivement essayé par là mais:
- Je ne vois pas comment désactiver la fenêtre de la BDD via macro
- Tu dois désactiver les menus 1 par 1 et pour simplifier cela, tu retombes dans mon deuxième exemple de code (la boucle) qui plante mon application.
- Autre inconvénient de la macro ou du code menu par menu: le non bilinguisme (les menus n'ont pas le même nom en français et en anglais donc double code...)

[ariesnojf]

Hi,

- Je ne vois pas comment désactiver la fenêtre de la BDD via macro

Dans une macro : "ExecuterCommande" puis "MasquerFenêtre" dans commande.

Pour la gestion de la barre,
J'ai autant de barre que de profil d'utilisateur (gestion bilinguisme). Ceux-ci sont liés selon un numéro présent dans l'utilisateur et dans le nom de la macro.
User1 à un profil 1, la macro executé sera xxx_1_xxx.

Ensuite, les macros "font le reste". ci joint deux images qui seront plus parlante:

Pièce jointe 4486

Pièce jointe 4487

Ensuite, chaque menu selectionné fait appel à une fonction pour activer formulaire, éditer état, ....

Code :

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

1
2
3
4
5
6
 
Function Form_ResultatEssai()
    If User_Profil = 0 Then DoCmd.OpenForm "Form_login", , , , , A_DIALOG
    If User_Profil = 0 Then Exit Function
    DoCmd.OpenForm "Form_ResultatEssais"
End Function

Résultat final avec barre de menu (sans utilisateur connecté)

Pièce jointe 4488


Le seul soucis, créer autant de barre (donc de macro) qu'il y a de profil d'utilisateur.

L'entraide c'est la vocation de ce forum non ?

Eh oui, je suis d'accord avec cela, mais dans le cas de notre ami, j'essayais de lui soumettre une piste et je pensais que cette "mise en bouche suffirait" ...

[marabout]

Merci Ariesnojf pour ton explication (sympa à écrire le pseudo ).

Je vais plancher sur ce genre de solution mais j'aimerais toujours comprendre pourquoi ce code:

Code :

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

1
2
3
4
Dim i As Integer 
For i = 1 To Application.CommandBars.Count 
    DoCmd.ShowToolbar Application.CommandBars.item(i).name, acToolbarNo 
Next

Plante mon application...

[ariesnojf]

sympa à écrire le pseudo .

Vive le copier coller