title image


Smiley Re: Gruppenzugehörigkeit d. CurrentUser auslesen
Das geht z.B. so:Public Function ShowGroups(UserName As String) As StringDim Usr As User, Grp As Group, WS As Workspace, Res As StringOn Error GoTo Er Set WS = DBEngine.Workspaces(0) Res = "" On Error Resume Next 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 IfEx: ShowGroups = Mid(Res, 2) Exit FunctionEr: MsgBox "ShowGroups:" & Err.Description Resume ExEnd FunctionReinhard


Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: