Saber si una base de datos está abierta

La siguiente función devuleve ‘true‘ si la base de datos que se le pasa (strBase) está abierta, y ‘false‘ si no es así. El argumento strBase es el camino completo de la base de datos que se quiere comprobar.

Function BaseOpen(strBase As String) As Boolean
On Error Resume Next
Dim objAccess As Object
Set objAccess = GetObject(strBase)
If Err.Number <> 0 Then BaseOpen = False
If Err.Number = 0 Then BaseOpen = True
Set objAccess = Nothing
End Function

Fuente: access.jessy.free.fr