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!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: