Error using JET_SCHEMA_USERROSTER

M

M Smith

I want to count the number of users who are currently connected to a
specific Access 2000 database. I'm using the code below in a form inside
the database. It works on my development machine but it does not work when
I try to implement it at a different location.

Dim intUsers As Integer
Dim rst As ADODB.Recordset
Const JET_SCHEMA_USERROSTER = "{947bb102-5d43-11d1-bdbf-00c04fb92675}"

Set rst = CurrentProject.Connection.OpenSchema( adSchemaProviderSpecific, ,
JET_SCHEMA_USERROSTER)

Do Until rst.EOF
intUsers = intUsers + 1
rst.MoveNext
Loop
rst.close
Set rst = Nothing

When I try to run it in production at a different location I get an error
that says: "3251 Object or Provider is not capable of performing requested
operation" Does anyone have any insight on this.

Thanks
 

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