How can I check if an Access database is open?

[Mike L]

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

 

[Stuart McCall]

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]

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]

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.

 

[Marshall Barton]

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.

 

[Mike L]

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