How to tell if an Access database open

[jopaumier]

I am using DAO to create a new (temporary) Access database with several tables whenever my program runs. Before creating the mdb, I check to be sure the database does not already exist using the file system object. If the mdb exists, I delete it (I want to absolutely certain I populate an empty database). How can I check to be sure the database that I want to delete is not open? I am checking for the existence of the ldb file, but it seems that there must be a better way.

Jim

 

[tnguyen03]

...you can use the GetObject method like this:

Dim myAcc As Access.Application
Dim dbName As String

On Error Resume Next

dbName = "Test.mdb"
Set myAcc = GetObject(, "Access.Application&quot

Debug.Print myAcc.CurrentDb.Name
If Err.Number <> 0 Then
Debug.Print &quot;Not Running&quot;
Err.Clear
Else
If InStr(myAcc.CurrentDb.Name, dbName) Then
Debug.Print &quot;Running&quot;
Else
Debug.Print &quot;Not Running&quot;
End If
End If

Have Fun!