PDA

Vollständige Version anzeigen : Benutzergruppen


carpediem
25.06.2001, 14:18
Hallo zusammen,

Benutze: A97-SR 2; WIN 2000-SR-1

Es gibt ja den Befehl currentUser für den Benutzer, gibt es einen ähnlichen Befehl für die Benutzergruppe?

Manuela Kulpa
25.06.2001, 16:25
<font face="Verdana" size="2">Hallo Matthias!

Die "Gruppe" ansich gibt es nicht, sondern nur "die Gruppen". Anbei ein Beispiel:</font>

<FONT SIZE=1 FACE=Courier New><FONT COLOR=#000080>Public</FONT> <FONT COLOR=#000080>Function</FONT> ShowGroups(<FONT COLOR=#000080>Optional</FONT> UserName) <FONT COLOR=#000080>As String</FONT>

<FONT COLOR=#000080>Dim</FONT> Usr <FONT COLOR=#000080>As</FONT> DAO.User
<FONT COLOR=#000080>Dim</FONT> Grp <FONT COLOR=#000080>As</FONT> DAO.Group
<FONT COLOR=#000080>Dim</FONT> WS <FONT COLOR=#000080>As</FONT> DAO.Workspace
<FONT COLOR=#000080>Dim</FONT> Res <FONT COLOR=#000080>As String</FONT>

<FONT COLOR=#000080>On Error GoTo</FONT> Er

<FONT COLOR=#000080>Set</FONT> WS = DBEngine.Workspaces(0)
Res = ""

<FONT COLOR=#000080>On Error Resume Next</FONT>

<FONT COLOR=#000080>If</FONT> IsMissing(UserName) <FONT COLOR=#000080>Then</FONT> UserName = CurrentUser
<FONT COLOR=#000080>Set</FONT> Usr = WS.Users(UserName)

<FONT COLOR=#000080>If</FONT> Err.Number = 0 <FONT COLOR=#000080>Then</FONT>
<FONT COLOR=#000080>On Error GoTo</FONT> Er
<FONT COLOR=#000080>For</FONT> <FONT COLOR=#000080>Each</FONT> Grp <FONT COLOR=#000080>In</FONT> Usr.Groups
Res = Res & ";" & Grp.Name
<FONT COLOR=#000080>Next</FONT> Grp
<FONT COLOR=#000080>End</FONT> <FONT COLOR=#000080>If</FONT>

Ex:
ShowGroups = Mid(Res, 2)
<FONT COLOR=#000080>Exit Function</FONT>

Er:
MsgBox "ShowGroups:" & Err.Description
<FONT COLOR=#000080>Resume</FONT> Ex

<FONT COLOR=#000080>End</FONT> <FONT COLOR=#000080>Function</FONT></FONT>

<font face="Verdana" size="2">Mach was draus :)!

Gruß</font>

carpediem
25.06.2001, 19:47
Hallo Manuela,
danke für Deine Hilfe, werde mal versuchen mit Hilfe deines Listings meine Aufgabenstellung zu lösen