Re: Who Is Logged On?

"cannot get it to work" doesn't mean much.

What happens when you try? Do you get an error? If so, what's the error? If
you don't get an error, what happens, and what do you expect to happen
instead?

One thing I question is the use of colon in:

ReturnUsers = rst(0) & ":" & ReturnUsers

AFAIK, you need semi-colon delimitation for list and combo boxes. As well,
have you set the RowSourceType property of lstCurrentUsers to Value List?

--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)


"EarlCPhillips" <EarlCPhillips@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:4ED1F6FE-0F3E-49A0-AC7D-FB52DC3C449C@xxxxxxxxxxxxxxxx
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


.

Relevant Pages

  • Re: Who Is Logged On?
    ... Set rst = New ADODB.Recordset ... Set cnn = CurrentProject.Connection ... Dim strUsers As String ... Local Food Bank Feed Hungry More Efficiently ...
    (microsoft.public.access.modulesdaovba)
  • Re: Droping constraint
    ... Dim cnn As ADODB.Connection ... Set cnn = CurrentProject.Connection ... Set rst = cnn.OpenSchema(adSchemaForeignKeys, _ ... Array(Empty, Empty, Empty, Empty, Empty, strTable)) ...
    (microsoft.public.access.queries)
  • RE: Updating a recordset from form
    ... change one field in the record student. ... Dim cnn As ADODB.Connection ... Set cnn = CurrentProject.Connection ... Set rst = New ADODB.Recordset ...
    (microsoft.public.access.modulesdaovba)
  • Re: Need help opening ADO recordset.
    ... Dim cnn As ADODB.Connection ... Set cnn = CurrentProject.Connection ... Set rst = New ADODB.Recordset ... the Recordset object. ...
    (microsoft.public.access.modulesdaovba)
  • RE: Updating a recordset from form
    ... change one field in the record student. ... Dim cnn As ADODB.Connection ... Set cnn = CurrentProject.Connection ... Set rst = New ADODB.Recordset ...
    (microsoft.public.access.modulesdaovba)
Loading