RE: Who Is Logged On?

Doug's answer gives me the computer names, not the user names. Unless I can
get a cross-reference from the IT manager, this will not work. I will try
some of the other suggestions and see how they work.

EarlCPhillips
--
Trying To Feed The Hungry


"Daniel Pineault" wrote:

I do not have a solution as to why your code does not work, perhaps Douglas
will be able to help you with that, but I do have an alternative. Take alook
at

http://groups.google.ca/group/microsoft.public.access.multiuser/browse_thread/thread/e4ca538f024b5b24/57dcea37e26fd10d?hl=en&lnk=st&q=ms+access+WhosOn#57dcea37e26fd10d

Alex Dybenko has a relatively simple code to do this.

Also

How to determine who is logged on to a database by using Microsoft Jet
UserRoster in Access 2000
http://support.microsoft.com/?id=198755

How to determine who is logged on to a database by using Microsoft Jet
UserRoster in Access 2002 or in Access 2003
http://support.microsoft.com/?id=285822

Lastly the following poat has numerous good links concerning db user
tracking...
http://groups.google.ca/group/microsoft.public.access.security/browse_thread/thread/8b76a79c4effb3d7/1ea481f2b802de42?hl=en&lnk=st&q=ms+access+WhosOn#1ea481f2b802de42
--
Hope this helps,

Daniel Pineault
http://www.cardaconsultants.com/
For Access Tips and Examples: http://www.devhut.com/index.php
Please rate this post using the vote buttons if it was helpful.



"EarlCPhillips" wrote:

From "Automatine Microsoft Access With VBA" by Susan Sales Harkins and Mike
Gunderloy published by Que Publishing, 2005, ISBN 0-7897-3244-0, I took a
routine from page 250-1 which publishes a function which gives something to
see who is connected to the database. I cannot get it to work for me. The
code is as follows:
Public Const JET_SCHEMA_USERROSTER = "{947bb102-5d43-11d1-bdbf-00c04fb92675}"
Public Function ReturnUsers() As String
On Error GoTo Err_ReturnUsers
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
'open connection to database
Set cnn = CurrentProject.Connection
'open schema recordset to grab user metadata
Set rst = cnn.OpenSchema(adSchemaProviderSpecific, , _
JET_SCHEMA_USERROSTER)
'return current users
rst.MoveFirst
Do Until rst.EOF
ReturnUsers = rst(0) & ":" & ReturnUsers
rst.MoveNext
Loop

Exit_ReturnUsers:
rst.Close
Set rst = Nothing
cnn.Close
Set cnn = Nothing
Exit Function
Err_ReturnUsers:
MsgBox "Error " & Err.Number & ": " & Err.Description
Resume Exit_ReturnUsers
End Function

I built a form that contains a list box. The code to activate the form is:
Private Sub Form_Load()
On Error GoTo Err_Form_Load
Dim strUsers As String
'populate listbox with current users
strUsers = ReturnUsers
lstCurrentUsers.ControlSource = strUsers
Exit_Form_Load:
Exit Sub
Err_Form_Load: 'handles any error condition
MsgBox "Error number: " & Err.Number & vbCr & Err.Description
Resume Exit_Form_Load
End Sub

What am I doing wrong? Any suggestions?

EarlCPhillips
Ex-Mainframer Learning Access to Make
Local Food Bank Feed Hungry More Efficiently
Harvesters Community Food Network
--
Trying To Feed The Hungry
.

Quantcast