title image


Smiley Gehört current user einer bestimmten gruppe an
ich habe eine funktion aus einem forum, mit welcher ich abfragen kann, ob der current user einer DB (Access2003) einer bestimmten gruppe angehört



leider gibt mir diese u. a. funktion nur zurück, ob der current user der gruppe "admins" angehört.



ich will aber abfragen können, ob der current user z.B. der gruppe "Umsatz" angehört.

was ist zu tun ?

--------------------------------------------------------------------

Function userg() As String

Dim suse As String

Dim rgroup As Object



Dim ruse As User

Dim src As String



suse = CurrentUser()

For Each rgroup In DBEngine.Workspaces(0).Groups

For Each ruse In rgroup.Users



If suse = ruse.Name Then

src = rgroup.Name

Exit For

End If

Next ruse

If src > vbNullString Then Exit For

Next rgroup

userg = src



End Function

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: