|
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
| 
