Maintaining a Table of User Names

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I want to create a table containing a list of all user names (i.e. that match
user list in System.mdw file) and their corresponding password expiration
date. In other words my table must contain 2 fields: 1)User Name 2)
Expiration Date

How do I automatically populate my table with the list of users contained in
the system.mdw file and then maintain this list so as new users are created
they are appended to my table and as old users are deleted, they’re also
deleted from my table.
 
this code will list all the users in the current workgroup:

Sub test()
Dim wrk As DAO.Workspace
Dim usr As DAO.user

Set wrk = DBEngine.Workspaces(0)
For Each usr In wrk.users
Debug.Print usr.Name
Next usr

End Sub

You can adapt it to add and delete users from your table. The Jet
security model does not have an expiration date for passwords.



I want to create a table containing a list of all user names (i.e. that match
user list in System.mdw file) and their corresponding password expiration
date. In other words my table must contain 2 fields: 1)User Name 2)
Expiration Date

How do I automatically populate my table with the list of users contained in
the system.mdw file and then maintain this list so as new users are created
they are appended to my table and as old users are deleted, they’re also
deleted from my table.
Click to expand...


**********************
(e-mail address removed)
remove uppercase letters for true email
http://www.geocities.com/jacksonmacd/ for info on MS Access security
 
Back
Top