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 ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Thierry (ze Titi)
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 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,
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
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 <35EB696F-E8C2-447E-B6BC-B1B8C9F17692@microsoft.com> 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,
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
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 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,
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
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 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,
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
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 <35EB696F-E8C2-447E-B6BC-B1B8C9F17692@microsoft.com> 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,
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
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 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,
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)
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
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 <2DF3EB8D-D62F-48BC-B466-55FF515111BC@microsoft.com>
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
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
