PDA

Vollständige Version anzeigen : Aktuelle Gruppe des users auslesen


MichaelAworsky
20.01.2001, 19:12
Hallo Leute

Ich kann zwar den aktuellen User auslesen, kann ich auch die Gruppe auslesen zu der er gehört?

Besten Dank im voraus Michael

Manuela Kulpa
21.01.2001, 08:12
Hallo Michael!

Versuch doch mal folgendes Beispiel:

Public Function ShowGroups(Optional UserName) As String

Dim Usr As User
Dim Grp As Group
Dim WS As Workspace
Dim Res As String

On Error GoTo Er

Set WS = DBEngine.Workspaces(0)
Res = ""

On Error Resume Next

If IsMissing(UserName) Then UserName = CurrentUser
Set Usr = WS.Users(UserName)

If Err.Number = 0 Then
On Error GoTo Er
For Each Grp In Usr.Groups
Res = Res & ";" & Grp.Name
Next Grp
End If

Ex:
ShowGroups = Mid(Res, 2)
Exit Function

Er:
MsgBox "ShowGroups:" & Err.Description
Resume Ex

End Function

Nur denke bitte daran, die "Gruppe" ansich gibt es nicht, sondern nur die "Gruppen"!

LLAP