Re: Current User List

Sorry, yes you need to use the Open event.

Looks like you're missing a space between Data and Source in "Data
Source=K:\..."

And Carl's site is back up now, and he recommends:

oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=c:\somepath\mydb.mdb;" & _
"Jet OLEDB:System Database=MySystem.mdw", _
"myUsername", "myPassword"

http://www.carlprothman.net/Default.aspx?tabid=87#OLEDBProviderForMicrosoftJet

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


"Sprinks" <Sprinks@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:2C2876D5-CA71-40D6-8743-507BFAEFA7E2@xxxxxxxxxxxxxxxx
Douglas,

When I entered:

Set cn =
"Provider=Microsoft.Jet.OLEDB.4.0;DataSource=K:\BF\Data\Backend\MainBE.mdb;Jet
OLEDB:System Database=
K:\BF\Data\WrkGroup\BFSystem.mdw;UserID=ksprinkel;Password=wgpwnitg"`

I got a type mismatch error. Thinking that you may have meant for me to
use
the supplied string as a parameter to the Open method, I tried:

cn.Open
"Provider=Microsoft.Jet.OLEDB.4.0;DataSource=K:\BF\Data\Backend\MainBE.mdb;Jet
OLEDB:System Database=
K:\BF\Data\WrkGroup\BFSystem.mdw;UserID=ksprinkel;Password=wgpwnitg"

This generated run-time error -2147467259 (80004005): Could not find
installable ISAM.

I read Microsoft's white paper on this error, but frankly, don't have the
knowledge to understand it. Do you have any suggestion?

Thank you.
Sprinks


"Douglas J. Steele" wrote:

Instead of

Set cnn= CurrentProject.Connection

try

Set cnn= "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:\mydatabase.mdb;Jet OLEDB:System Database=system.mdw;User
ID=myUsername;Password=myPassword;"

(You can find any connection string you might need at
http://www.carlprothman.net or at http://www.connectionstrings.com.
Unfortunately, Carl's site seems to have some technical problem at the
moment.)

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


"Sprinks" <Sprinks@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:68AB5262-221A-44D1-A459-763477778EA4@xxxxxxxxxxxxxxxx
Douglas,

Thank you for your response.

I added the sub to a global module, changing the name of the datasource
parameters in the Open method calls to the name of my back-end file.

On running the procedure from the Immediate Window, I first got a "You
do
not have appropriate permissions to open...contact your SysAdmin..."
error.
After consulting VBA Help, I added the optional username and password
parameters to both calls. It now returns the following error:

Run-time error '-2147217843 (8004e4d)':

Cannot start your application. The workgroup information file is
missing
or
opened exclusively by another user.

I don't see, however, how I can pass the workgroup file name to the
method.
Do you have a suggestion?

Thank you.
Sprinks


"Douglas J. Steele" wrote:

See whether http://support.microsoft.com/kb/198755 is what you're
looking
for.

(Don't worry that it says "Access 2000": it applies to any ADO
connection
to
the database)

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


"Sprinks" <Sprinks@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:B8FDD630-6933-425E-BF1A-A2BABA8BC8D7@xxxxxxxxxxxxxxxx
Litwin, Getz, & Gunderloy, in Access 2002 Enterprise Developer's
Handbook
offer a BuildUserList() procedure that lists all current users in
the
database, setting an ADODB.Connection variable to the current
project:

Set cnn= CurrentProject.Connection

As I do not have the CD and will have to type this sub in manually,
I
wondered if anyone knew whether this would find all users connected
to
the
shared back-end through their local front-ends.

Thanks for any assistance.
Sprinks








.

Relevant Pages

  • Evolution and OO integration
    ... I have set up OO to print the addressee fields from evolution. ... When I go to print OO opens the connection ... address book database, but it doesn't print anything from the database. ... The entire addressee portion of the envelope is missing when printed. ...
    (Debian-User)
  • Re: Evolution and OO integration
    ... trying to print an envelope from the Evolution address book OO goes to ... > a connection to the database. ... The entire addressee portion of the envelope is missing ...
    (Debian-User)
  • Re: Show Users Logged On
    ... Doug Steele, Microsoft Access MVP ... multi-user database with a few accounts and logged into the TestDB ... Dim cn2 As New ADODB.Connection ... ' The user roster is exposed as a provider-specific schema rowset ...
    (microsoft.public.access.forms)
  • Re: Double-click to Open .mdb annoyance
    ... Doug Steele, Microsoft Access MVP ... Note that this refers to changes to database objects (i.e. Forms, ... (no private e-mails, please) ...
    (microsoft.public.access.modulesdaovba)
  • Re: linking databases
    ... Doug Steele, Microsoft Access MVP ... Sub chrCountry_AfterUpdatestring highlighted in yellow.The code as I ... I using the text box's [Event Procedure] After Update property on the ... The name of the column in the table in the 2nd database I want to ...
    (microsoft.public.access.externaldata)