Tester si une base est ouverte ou non

Le code qui suit permet de savoir si une base de données Access est déjà ouverte ou non.

L'argument strBase correspond au chemin complet et au nom de la base que l'on veut tester.

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

Si la base est ouverte, alors la fonction retournera True.

Auteur : Jessy SEMPERE