Permissions - getting a meaningful output

S

Stapes

Hi

I have a bit of code that is meant to display the permissions assigned
to different users. This is it:

Dim db As Database
Dim ctrLoop As Container
Set db = CurrentDb
Dim GrpUsrInfo As String
GrpUsrInfo = ""
For Each ctrLoop In db.Containers
With ctrLoop
GrpUsrInfo = GrpUsrInfo & "Container: " & .Name & vbCrLf
GrpUsrInfo = GrpUsrInfo & "User: " & .UserName & vbCrLf
GrpUsrInfo = GrpUsrInfo & " Permissions: " & .Permissions &
vbCrLf
GrpUsrInfo = GrpUsrInfo & " AllPermissions: " & _
.AllPermissions & vbCrLf
End With
Next ctrLoop
Me!GroupUserInfo = GrpUsrInfo

The resultant output displays a load of meaningless numbers. How can I
get it to display the information in English?

Stapes
 
Top