1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Savoir si un usager fait partie d'un groupe

Savoir si un usager fait partie d'un groupe

0/5 (2 avis)

Snippet vu 3 924 fois - Téléchargée 36 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
cs_dragon Messages postés 2336 Date d'inscription samedi 14 juillet 2001 Statut Membre Dernière intervention 5 mai 2009 6
22 juil. 2004 à 23:38
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
cs_recovery Messages postés 5 Date d'inscription mercredi 9 juin 2004 Statut Membre Dernière intervention 22 juillet 2004
22 juil. 2004 à 22:59
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)