Compléments pour Microsoft Access

http://access.fr.free.fr/

Base ouverte (Base de données)

Description 

Cette fonction permet de tester si une base de données est ouverte ou non.

 
Syntaxe 

fBaseOpen (strBase)

La syntaxe de la fonction fBaseOpen comprend l'élément suivant :

ElémentsDescription
strBaseExpression de chaîne correspondant au chemin complet et au nom de la base de donnée pour laquelle on souhaite savoir si elle est ouverte ou non.
 
Exemple 

fOpenBase ("c:votreRépertoirevotreBase.mdb")

 
Code de la fonction 


 

Function fBaseOpen(strBase As String) As Boolean

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

End Function