Savoir si un usager fait partie d'un groupe

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 698 fois - Téléchargée 34 fois

Commenter

Contenu du snippet

code qui reçoi un groupe et retourne vrai ou faux. vérifie aussi le nom de l'usager

avec acces seulement

Source / Exemple : 


Public Function USAGER(groupe As String) As Boolean
    Dim wrk As Workspace
    Dim Usr As User

    USAGER = False
    Set wrk = DBEngine.Workspaces(0)
    With wrk
        With .Groups(groupe)
            For Each Usr In .Users
                If UCase(Usr.Name) = UCase(CurrentUser()) Then
                    USAGER = True
                    exit for
                End If
            Next
        End With
    End With
    Set wrk = Nothing
End Function

A voir également

Ajouter un commentaire

Commentaires

Signaler
cs_dragon
Messages postés
2336
Date d'inscription
samedi 14 juillet 2001
Statut
Membre
Dernière intervention
5 mai 2009
 3 -
quand tu sécurise ta base, tu dois décider le mdw qui vas se lier avec, sinon ça sera dans ton raccourcie

"c:\program file\office\access.exe" "c:\maBase.mdb" "c:\securite.mdw"

dequoi du genre, je suis pas a job, j'ai pas de raccourcie déjà fait ici
Signaler
cs_recovery
Messages postés
5
Date d'inscription
mercredi 9 juin 2004
Statut
Membre
Dernière intervention
22 juillet 2004
 -
Ma question va surement te paraitre bête, mais comme je débute, je me lance car ton code m'interresse beaucoup.
Lorsque ta base est protégée avec un Workspace qui n'est pas celui par defaut (system.mdw), comment faire pour executer ta fonction sur un autre fichier ("sécurité.mdw" par exemple)
Je te remercie par avance
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_dragon)