Savoir si un usager fait partie d'un groupe
0/5 (2 avis)
Snippet vu 3 834 fois - Téléchargée 36 fois
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
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
- Je fais parti d'un groupe
- Fermeture session usager a partir d un programme vb6 ✓ - Forum - Visual Basic 6
- Déplacement un par un de controle fesan parti d'un groupe de controle ✓ - Forum - Visual Basic
- Partie entière java ✓ - Forum - Java
- Extraire une partie d'une chaine de caractère python - Forum - Python
- échec de la conversion de la date et/ou de l'heure à partir d'une chaîne de caractères. - Guide
- Messages postés
-
2336
- Date d'inscription
- samedi 14 juillet 2001
- Statut
- Membre
- Dernière intervention
- 5 mai 2009
6"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
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
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.