List User Accounts

[Scott Whetsell, A.S. - WVSP]

I would like to populate a multi-select listbox with a listing of all the
users in my mdw file.

How do i target the mdw and populate my listbox?

 

[Joan Wild]

Dim wrk As Workspace
Dim strUserName As String
Dim usr As User

Set wrk = DBEngine(0)

For Each usr In wrk.Users
If usr.Name <> "Creator" And usr.Name <> "Engine" Then
strUserName= strUserName & ";" & usr.Name
End If
Next

ListBoxName.RowSource = strUserName

Set wrk = Nothing

 

[Scott Whetsell, A.S. - WVSP]

Excellent code, thank you.

Dim wrk As Workspace
Dim strUserName As String
Dim usr As User

Set wrk = DBEngine(0)

For Each usr In wrk.Users
If usr.Name <> "Creator" And usr.Name <> "Engine" Then
strUserName= strUserName & ";" & usr.Name
End If
Next

ListBoxName.RowSource = strUserName

Set wrk = Nothing