Menu variant suivant les utilisateurs...

Le
Quidam errant
Bonjour,

je suis débutant en VBA (access 2003) et je souhaiterai qu'un bouton du menu
général de mon appli n'apparaisse que pour l'utilisateur "MaitreBD" ou bien
pour le groupe des administrateurs de ma base. Je n'ai rien trouvé à ce
sujet dans les docs ou sur le forum pourtant je pense que ça doit bien
être possible.

Autrement dit: comment remonter l'utilisateur en cours en VBA ?

Merci pour toute information.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Thierry (ze Titi)
Le #6323261
Bonjour Quidam errant

Je n'ai rien trouvé à ce sujet dans les docs ou sur le forum... pourtant je pense que ça doit bien
être possible.
Tu n'as pas dû chercher beaucoup... ;o)

L'utilisateur courant est renvoyé par la fonction

CurrentUser()

Pour vérifier qu'un user appartient à un groupe:

Dim usager As User, wrkspace As Workspace, aux1 As Integer, groupFound As Boolean
Set wrkspace = DBEngine.Workspaces(0)
Set usager = wrkspace.Users(CurrentUser): groupFound = False
For aux1 = 0 To usager.Groups.Count - 1
If usager.Groups(aux1).Name = "Admins Then groupFound = True
Next
If groupFound Then MsgBox usager & " appartient au groupe Admins"

Dans ton message
Bonjour,

je suis débutant en VBA (access 2003) et je souhaiterai qu'un bouton du menu
général de mon appli n'apparaisse que pour l'utilisateur "MaitreBD" ou bien
pour le groupe des administrateurs de ma base. Je n'ai rien trouvé à ce
sujet dans les docs ou sur le forum... pourtant je pense que ça doit bien
être possible.

Autrement dit: comment remonter l'utilisateur en cours en VBA ?

Merci pour toute information.


--
Cordialement,
Thierry

Tout pour réussir avec Access :
http://www.mpfa.info

Quidam errant
Le #6323251
Bonjour Thierry,

oui, je dois reconnaitre que je mes premières recherches n'étaient pas très
pertinentes. Je ferai plus attention à l'avenir pour ne pas polluer le forum
avec des questions redondantes; promis...

Merci pour "CurrentUser " qui devait être trop évidente pour que j'y pense
ce matin!

Je suis dans l'urgence pour finir cette appli, alors merci de m'avoir répondu.

Cordialement,
Emmanuel.


Bonjour Quidam errant

Je n'ai rien trouvé à ce sujet dans les docs ou sur le forum... pourtant je pense que ça doit bien
être possible.
Tu n'as pas dû chercher beaucoup... ;o)

L'utilisateur courant est renvoyé par la fonction

CurrentUser()

Pour vérifier qu'un user appartient à un groupe:

Dim usager As User, wrkspace As Workspace, aux1 As Integer, groupFound As Boolean
Set wrkspace = DBEngine.Workspaces(0)
Set usager = wrkspace.Users(CurrentUser): groupFound = False
For aux1 = 0 To usager.Groups.Count - 1
If usager.Groups(aux1).Name = "Admins Then groupFound = True
Next
If groupFound Then MsgBox usager & " appartient au groupe Admins"

Dans ton message
Bonjour,

je suis débutant en VBA (access 2003) et je souhaiterai qu'un bouton du menu
général de mon appli n'apparaisse que pour l'utilisateur "MaitreBD" ou bien
pour le groupe des administrateurs de ma base. Je n'ai rien trouvé à ce
sujet dans les docs ou sur le forum... pourtant je pense que ça doit bien
être possible.

Autrement dit: comment remonter l'utilisateur en cours en VBA ?

Merci pour toute information.


--
Cordialement,
Thierry

Tout pour réussir avec Access :
http://www.mpfa.info






Thierry (ze Titi)
Le #6323241
Je ne disais pas ça méchamment, et puis ça fait du bien de se
rafraîchir la mémoire de temps à autres ;-)

Bonne continuation !

Dans ton message du lundi 01/10/2007 jour de Sainte Thérèse E.-J., tu as pris
l'initiative de nous narrer les faits suivants:
Bonjour Thierry,

oui, je dois reconnaitre que je mes premières recherches n'étaient pas très
pertinentes. Je ferai plus attention à l'avenir pour ne pas polluer le forum
avec des questions redondantes; promis...

Merci pour "CurrentUser " qui devait être trop évidente pour que j'y pense
ce matin!

Je suis dans l'urgence pour finir cette appli, alors merci de m'avoir
répondu.

Cordialement,
Emmanuel.


--
Cordialement,
Thierry

Tout pour réussir avec Access :
http://www.mpfa.info

Publicité
Poster une réponse
Anonyme