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
LARNAC JL
Sub QuelGroupe() Dim Espace As Workspace Dim loggé As User Dim LeGroupe As Group Dim QuelGroupe As String Set Espace = DBEngine.Workspaces(0) Set loggé = Espace.Users(Espace.UserName)
For Each LeGroupe In loggé.Groups MsgBox LeGroupe.Name Next LeGroupe
Set Espace = Nothing End Sub
Sub QuelGroupe()
Dim Espace As Workspace
Dim loggé As User
Dim LeGroupe As Group
Dim QuelGroupe As String
Set Espace = DBEngine.Workspaces(0)
Set loggé = Espace.Users(Espace.UserName)
For Each LeGroupe In loggé.Groups
MsgBox LeGroupe.Name
Next LeGroupe
Sub QuelGroupe() Dim Espace As Workspace Dim loggé As User Dim LeGroupe As Group Dim QuelGroupe As String Set Espace = DBEngine.Workspaces(0) Set loggé = Espace.Users(Espace.UserName)
For Each LeGroupe In loggé.Groups MsgBox LeGroupe.Name Next LeGroupe
