Maintaining a Table of User Names

H

Hank

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

Jack MacDonald

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.


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

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top