List all Active users?

[bonekrusher]

Hi, I am trying to list all active users on my DB. I need this so I can tell who is on when I need to edit the db. Currently I log the users in a table. I want to know how to list all the active users. This code only shows me being logged in. Any ideas?

Dim user
Dim i
user = Environ("UserName")
For i = 0 To 20
If user <> user Then
user = user & "; " & user
Else: End If

Next


MsgBox user

 

[DataMiner]

Not sure I understand what your code is trying to do. When would "if user<>user" ever be true???

I handle this (figuring out who's logged in) by adding a record to my "runlog" table every time anyone logs in or out. Then I just look for who logged in but didn't log out.

 

[bonekrusher]

thx...that what I have now. I thought that a quick popup could list all the active users.

Thanks anyway