Exclusive linking to backend

[rdemyan via AccessMonster.com]

For maintenance purposes on the back-end and large-time consuming data
imports, I want to allow administrators to logon to the front end with
exclusive access (linking) to the backends.

Here's the procedure I'm using:

1) On the logon form (which is separate from the front end), the
administrator checks a checkbox for exclusive access to the backend

2) "True" for exclusive access is passed to the front end via Command.

3) In the linking routine, is the following code:

Set DB = WS.OpenDatabase("BackEnd.mdb", ParsedString(2))

Where ParsedString(2) is the value from Command that identifies if the
backend is to be opened exclusively (True) or not exclusively (False).

The upshot is that this is not working. I've stepped through the code and
ParsedString(2) is equal to True and linking occurs just fine. However,
another user can subsequently also connect to the backend file with no error
message at all.

I'm sure they are both linking to the same back-end file because I put some
dummy data indicating that this was an "Exclusive Test" in a backend table.
The front-end on each computer displays this dummy data.

Do I have to do something else? I checked the Security Permissions and didn't
see anything regarding exclusivity for user groups.

I should mention that I have implemented workgroup security with all
permissions revoked on the backend tables and am using RWOP Queries to
actually access the data.

Thanks.

 

[Joan Wild]

1) On the logon form (which is separate from the front end), the
administrator checks a checkbox for exclusive access to the backend

2) "True" for exclusive access is passed to the front end via Command.

3) In the linking routine, is the following code:

Set DB = WS.OpenDatabase("BackEnd.mdb", ParsedString(2))

The upshot is that this is not working. I've stepped through the code
and ParsedString(2) is equal to True and linking occurs just fine.

Is it really equal to True or "True". It sounds as though you are passing a
string.

Try passing -1 or use If then...
If passed value = true then
set db = ws.OpenDatabase("backend.mdb", true)
else
set db = ws.OpenDatabase("backend.mdb")
end if