Condition simple mais..

Re-Bonjour le forum,

Voilà j'essai de faire un petit if tout simple mais je n'y arrive vraiment pas. Alors j'ai une table utilisateurs et un champ profil avec 3 possibilités pour ce champ il peut etre mis à 1, 2, 3, je voudrais tout simplement dire que quand

j'arrive sur un formulaire (évènement load) si l'utilisateur à un profil différent de 1 alors on affiche pas bouton1. J'ai essayé ceci :

Code:

---

1 2 3 4 5 6

For i = 1 To 10 Step 1 If utilisateurs.Profil = "*1*" And utilisateurs.Profil = CStr(i) Then CtlActiveX50.Visible = False End If Next i

---

Mais j'ai une erreur "d'objet requis", j'ai même essayé avec un Dlookup mais sans succès, c'est vraiment une condition simple mais que je n'arrive pas à réaliser. D'avance merci de votre aide.

Bonne après-midi.
Cordialement,
Jean-Mikaël

Salut,

Vu que ton champ Profil ne peux contenir que 1, 2 ou 3 je ne sois pas pourquoi tu mets *1*.

Mets directement :

Code:

---

If utilisateurs.Profil = "1" ...

---

Bonjour Lou-Pitchoun même en enlevant les * j'ai toujours la même erreur d'objet requis, je ne vois vraiment pas d'ou cela peut venir, et avec un Dlookup je n'obtient rien de concluant non plus mis à part des erreurs, merci de ton aide.

Cordialement,
Jean-Mikaël

utilisateurs est ta table.

Dans ton code à quoi se rapporte utilisateurs ?
(je sens l'erreur ici :aie:)

Bah en fait justement je ne sais pas le gros soucil que j'ai avec Acces c'est la syntaxe donc je ne sais pas comment traduire ma condition en VB acces (je viens d'Excel :) je suis un peu paumé)je veux juste dire que dans ma table utilisateurs au champ profil si c'est différent de 1 on affiche pas le bouton1.
Je crois qu'en effet c'est un problème de traduction désolé je suis un peu novice, merci du temps que tu consacres pour m'aider.


Cordialement,
Jean-Mikaël

Alors...

Tout d'abord, des questions (bon ok j'aurais du commencer par là : on aurait gagné du temps tous les deux :aie:) et ensuite des soluces.

Quand tu parles d'utilisateur : c'est celui qui utilise la base ??
Si oui : et bien : c'est pas génial d'utiliser une sécurité comme ça.
La seule valable, c'est celle détaillée dans ce tuto.

Comment identifies-tu l'utilisateur alors ??

L'utilisateur est identifié via : Environ("UserName") ensuite s'il est dans la BDD il peut entrer si non l'application se ferme.

Donc j'ai ma table "utilisateurs" dans laquelle j'ai le champ identifiant qui est l'identifiant de l'utilisateur sur le réseau puis Nom, Prenom, Service et Profil qui détermine qui est Admin, Responsable Ou Encore Utilisateur "standard" donc dans un formulaire qui s'apelle "administration" pour tout Profil différent de 1 je souhaite cacher l'accès à un bouton j'espère que c'est plus explicite comme sa ?

Ok.

Dans ce cas : ouvre un recordset avec une requête ayant en clause Where la variable USERNAME.
Et ensuite tu testes le profil.

Code:

---

1 2 3 4 5 6 7

Dim rst As DAO.Recordset   Set rst = CurrentDb.OpenRecordset("SELECT * FROM utilisateurs WHERE utilisateurs.name = " & chr(34) & Environ("UserName") & chr(34)) If rst![Profil] <> 1 Then CtlActiveX50.Visible = False End If

---

Pour plus d'infos sur les recordset et DAO : cet excellent tuto

;)

Bonjour Lou Pitchoun,

C'est vrai que je viens juste de penser à un recordset mais je n'étais pas sur que cela soit adapter, mais en fait je m'étais mal exprimé dans mon problème et je viens de m'en rendre compte, j'avais oublié de préciser qui si le dans le nom le profil de la personne n'était pas à 1 alors on cache le bouton, j'avais oublié de préciser le nom désolé, donc en effet par un recordset c'est tout à fait adapté, une autre petit question, tu parlais de la sécurité hier, tout les menus sont désactivé ainsi que le click droit et l'accès au code est protégé par mot de passe cela suffit pour la sécurité? Sachant que les personne qui utilisent l'appli s'en serveront juste pour saisir des Entrées/Sorties de stock.

Merci beaucoup pour toute ton aide.
Bonne journée.

Cordialement,
Jean-Mikaël