List of all users currently logged on

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

Guest

I have a split database with two front ends. One that I make modifications to
before implenting them to my users, and the other for the users. I have User
Level security enabled only to prevent the need to have a copy of the program
on each user's computer to simplify the update process.

Is there a way to list all users that currently have the database open? I
can think of a rudementry way to do it with a table and each user is added to
the list when they open the program, and deleted from the table when they
leave but i'd rather not do it that way considering that each user should
have an entry in the workgroup file.

Any ideas?
Thanks in Advance

Pip'n
 
Pip''''n said:
I have a split database with two front ends. One that I make
modifications to before implenting them to my users, and the other
for the users. I have User Level security enabled only to prevent the
need to have a copy of the program on each user's computer to
simplify the update process.

Is there a way to list all users that currently have the database
open? I can think of a rudementry way to do it with a table and each
user is added to the list when they open the program, and deleted
from the table when they leave but i'd rather not do it that way
considering that each user should have an entry in the workgroup file.

Any ideas?
Thanks in Advance

Pip'n
Click to expand...

There is an LDB viewer that you can get from Microsoft that will show the
users that are currently in the file. It would be LOTS better though if you
gave everyone their own copy of the front end. Then updating is something
initiated by the user, not you. Making that all automatic and trouble-free
is not that big of a deal and it's something you set up one time and then
your done.
 
Hi,


See KB article 285822.


-------------------------
Public Sub ShowUserRosterMultipleUsers()
'KB Q285822


Dim rs As New ADODB.Recordset


Set rs = CurrentProject.Connection.OpenSchema(adSchemaProviderSpecific,
_
, "{947bb102-5d43-11d1-bdbf-00c04fb92675}")
Debug.Print rs.Fields(0).Name, "", rs.Fields(1).Name, "",
rs.Fields(2).Name, rs.Fields(3).Name

Do Until rs.EOF
Debug.Print rs.Fields(0), rs.Fields(1), rs.Fields(2), rs.Fields(3)
rs.MoveNext
Loop
End Sub
 
Back
Top