Discussion :

[Kirisuto Sama]

Bonjour à tous !
Je viens par ce message, vous demandez s'il est possible, sur l'identification d'un nom d'utilisateur afficher certains formulaires et en masquer d'autres.
Je ne sais pas si je suis assez clair, mais ce que je veux savoir s'il est possible que selon l'utilisateur saisi, des formulaires s'affichent. S'il est du groupe admin, on affiche tous les formulaires de la BDD et s'il ne l'est pas, on masque certains formulaires... Voici mon début de code, quelqu'un peut m'aider pour aboutir au résultat souhaité...

Merci !
Cordialement.

[Gfacro]

Dans la table T_Utilisateurs, ajouter un champs groupe (ou typeUtil ou ...) pour déterminer les droits de l'utilisateur.

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
18
19
20
21
22
23
24
25
dim groupe as string
 
groupe = nz(dlookup("groupe", "t_utilisateurs", "Identifiant = '" & nz(Me.identifiant.value, "") & "' AND Mot_de_passe = '" & nz(Me.password.value, "") & "'"), "")
 
Select case groupe
case "" : MsgBox "Mauvais identifiant ou mot de passe"
case "admin" :
form("Form_F_Planning").visible = true
form("Form_F_Technicien").visible = true
doCmd.OpenForm "Orion Menu"
doCmd.close acform, "F_Login"
...
case "technicien" :
form("Form_F_Planning").visible = true
form("Form_F_Technicien").visible = false
doCmd.OpenForm "Orion Menu"
doCmd.close acform, "F_Login"
...
case else :
form("Form_F_Planning").visible = false
form("Form_F_Technicien").visible = false
doCmd.OpenForm "Orion Menu"
doCmd.close acform, "F_Login"
...
end select

[Kirisuto Sama]

Bonjour Gfacro !

Merci pour ta réponse, j'ai placé le code, cependant à l'exécution, j'ai une erreur d'exécution.
Voilà :


D'où peux venir le problème ?
Merci !
Cordialement.

[Gfacro]

A votre avis, d où peut venir le problème, que comprenez-vous ?

[Kirisuto Sama]

Aucune idée malheureusement !
J'ai cru que le formulaire était mal renommé, mais visiblement ça n'en rien de tel...

[Gfacro]

Vous avez un message d erreur au moment de la ligne jaune. Vous me confirmez que vous avez vérifié le nom du formulaire et que cela n'a pas l'air d'être lui le problème.
Que reste t-il sur cette ligne ? J'ai en effet fait une erreur que vous verrez d'ailleurs à plusieurs endroit dans ce que j'ai fait. Il reste 4 mots sur la ligne (en comptant le =), lequel n'est pas compris par access ?


Il y a une autre erreur, que j'ai elle aussi faite plusieurs fois.
Regardez dans le code comment vous avez écrit la ligne d'instruction pour ouvrir Orion ou fermer login et comparez avec ce que vous voyez à l'écran, en insistant bien, vous devriez finir par trouver quelque chose de bizarre dans les noms et ensuite, à vous de tenter pour vérifier ce qui marche et ne marche pas.

[Kirisuto Sama]

Bonjour !
Vous avez bien raison, j'ai manipulé un peu le code et je suis parvenu au résultat souhaité, enfin presque.
Merci infiniment !