title image


Smiley TIPP: Alle (Access-)Benutzer auflisten


Public Function GetAllUsers(Optional ByVal Sep As String = ";") As String

Dim Usr As User, WS As Workspace, Res As String

Set WS = DBEngine.Workspaces(0)

For Each Usr In WS.Users

If Usr.Name "Creator" And Usr.Name "Engine" Then

Res = Res & Sep & Usr.Name

End If

Next Usr

GetAllUsers = Mid(Res, Len(Sep) + 1)

End Function





Und dann z.B.:



Private Sub Form_Load()

Me!MeinKombi.RowsourceType = "Value List"

Me!MeinKombi.Rowsource = GetAllUsers()

end sub


Gruß aus dem Norden

Reinhard


Bitte immer die Access-Version angeben


 



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: