permissions

[Everaldo Ricardo]

how to print group/user permissions ? using User level security(mdw).

 

[Joan Wild]

This was answered in another newsgroup.
See http://home.bendbroadband.com/conradsystems/accessjunkie/csdtools.html

(there is no need to post your question in multiple groups)

 

[Everaldo Ricardo]

thank you Joan

(I was desperate)

This was answered in another newsgroup.
See http://home.bendbroadband.com/conradsystems/accessjunkie/csdtools.html

(there is no need to post your question in multiple groups)

 

[Jan Kowalski]

how to print group/user permissions ? using User level security(mdw).

 

[Scott McDaniel]

This function will return a String with all Groups and the users assigned to those Groups:

Function PrintUsersGroups(Optional PrintoutPath As String) As String
Dim usr As DAO.User
Dim grp As DAO.Group
Dim ws As DAO.Workspace
Dim strOutput As String
Dim lngFile As Long

Set ws = DBEngine(0)

For Each grp In ws.Groups
strOutput = strOutput & grp.Name
strOutput = strOutput & vbCrLf & "-------------"
For Each usr In grp.Users
strOutput = strOutput & vbCrLf & usr.Name
Next usr
strOutput = strOutput & vbCrLf & vbCrLf
Next grp

PrintUsersGroups = strOutput

If Len(PrintOut)>0 Then
lngFile = FreeFile
Open Printout For Output As #lngFile

Write #lngFile, strOutput
Close #lngFile
End If

Set ws = Nothing

End Function

You could then use this in a MsgBox like this:

Msgbox PrintUsersGroups

or, if you wanted to print to a Text file:

PrintUserGroups(CurrentProject.Path & "\Users_And_Groups.txt")

Scott McDaniel
scott@takemeout_infotrakker.com
www.infotrakker.com