Username & Password Capture

[Proaccesspro]

I have an Access database I'd like to add a little security to. Is it possible to have a list of allowable usernames and multiple passwords associated with each username? Also, I'd like to capture the username and use it on various forms as they are updated by the various users. Any ideas??

[ADezii]

I have an Access database I'd like to add a little security to. Is it possible to have a list of allowable usernames and multiple passwords associated with each username? Also, I'd like to capture the username and use it on various forms as they are updated by the various users. Any ideas??

1. The following code will Print all Users and any Groups to which they belong to the Immediate Window. To retrieve the Password assigned to each User would be a daunting task to say the least, since it was no means meant to be easily obtained.
   

   Dim usr As DAO.User, grp As DAO.Group
    
   'Enumerate all Users in the Current Database
   For Each usr In DBEngine.Workspaces(0).Users
     Debug.Print "  " & usr.Name
     Debug.Print "    Belongs to these groups:"
    
     'Enumerate all Groups to which User belongs
      If usr.Groups.Count <> 0 Then
        For Each grp In usr.Groups
          Debug.Print "      |----" & grp.Name
        Next grp
        Else
          Debug.Print "    [None]"
      End If
      Debug.Print "-----------------------------------"
   Next usr

   OUTPUT:
   

     admin
       Belongs to these groups:
         |----Admins
         |----Users
   -----------------------------------
     Creator
       Belongs to these groups:
       [None]
   -----------------------------------
     Dick Clark
       Belongs to these groups:
         |----Users
   -----------------------------------
     Engine
       Belongs to these groups:
       [None]
   -----------------------------------
     Joe Schmoe
       Belongs to these groups:
         |----Users
   -----------------------------------
     Lon Chaney
       Belongs to these groups:
         |----Users
   -----------------------------------
     Roy Hobbes
       Belongs to these groups:
         |----Users
   -----------------------------------

2. You can use the CurrentUser() Method to retrieve the name of the Current User of the Database (not to be redundant) as in:
   

   Debug.Print "The Current User of the Database is: " & CurrentUser()

   OUTPUT:
   

   The Current User of the Database is: Admin