I need to determine from one Access database whether another Access database
is open. How can I do this?

"Mike L" <(E-Mail Removed)> wrote in message
news:48f17a9f$0$7343$(E-Mail Removed)...
>I need to determine from one Access database whether another Access
>database is open. How can I do this?

Look for the presence of a xxx.ldb file in the same folder as the database
file, where xxx is the same name as the database. If .ldb file is present,
the database is open. Use the Dir function.

Thanks, Stuart. But if the target .mdb is terminated abnormally, the .ldb
may still exist. Is there another way, perhaps using the windows api?

I thought of having the target mdb write the system date/time to an internal
table every minute; link to this table and check if no update has occurred
within the past minute, which would indicate that the target mdb is not
executing. Hoping there is an easier way.

"Stuart McCall" <(E-Mail Removed)> wrote in message
news:eHsO$(E-Mail Removed)...
> "Mike L" <(E-Mail Removed)> wrote in message
> news:48f17a9f$0$7343$(E-Mail Removed)...
>>I need to determine from one Access database whether another Access
>>database is open. How can I do this?
>
> Look for the presence of a xxx.ldb file in the same folder as the database
> file, where xxx is the same name as the database. If .ldb file is present,
> the database is open. Use the Dir function.
>
>
>

"Mike L" <(E-Mail Removed)> wrote in message
news:48f18cd2$0$7345$(E-Mail Removed)...
> Thanks, Stuart. But if the target .mdb is terminated abnormally, the .ldb
> may still exist. Is there another way, perhaps using the windows api?
>
> I thought of having the target mdb write the system date/time to an
> internal table every minute; link to this table and check if no update has
> occurred within the past minute, which would indicate that the target mdb
> is not executing. Hoping there is an easier way.
<snip>

Ok. Try this:

Public Function dbOpen(dbFile As String) As Boolean
Dim fh As Integer

fh = FreeFile
On Error Resume Next
Open dbFile For Binary Access Read Write Shared As fh
dbOpen = (Err.Number > 0)
Close fh
End Function

If dbFile is open, it will be locked by the OS and the Open command will
fail.

Mike L wrote:

>I need to determine from one Access database whether another Access database
>is open. How can I do this?


I think you can just try to use OpenDatabase with the
Exclusive Option.

--
Marsh
MVP [MS Access]

I like your suggestion and will give it a try. Thanks very much.

"Stuart McCall" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> "Mike L" <(E-Mail Removed)> wrote in message
> news:48f18cd2$0$7345$(E-Mail Removed)...
>> Thanks, Stuart. But if the target .mdb is terminated abnormally, the
>> .ldb may still exist. Is there another way, perhaps using the windows
>> api?
>>
>> I thought of having the target mdb write the system date/time to an
>> internal table every minute; link to this table and check if no update
>> has occurred within the past minute, which would indicate that the target
>> mdb is not executing. Hoping there is an easier way.
> <snip>
>
> Ok. Try this:
>
> Public Function dbOpen(dbFile As String) As Boolean
> Dim fh As Integer
>
> fh = FreeFile
> On Error Resume Next
> Open dbFile For Binary Access Read Write Shared As fh
> dbOpen = (Err.Number > 0)
> Close fh
> End Function
>
> If dbFile is open, it will be locked by the OS and the Open command will
> fail.
>
>