Mode exclusif

Tester l'ouverture en mode exclusif

Cette fonction qui renvoie "True" si l'ouverture d'une base en mode exclusif est possible, "False" dans le cas contraire.

Pratique pour savoir si l'on peut exécuter le compactage d'une base dorsale (back-end) !
 

Function fnCanOpenExclusive(ByVal varPath As String) As Boolean
    On Error Resume Next
    Const FileInUse As Long = 3045
    Const FileOpenedExclusively As Long = 3356
    Dim dbe As PrivDBEngine
    Dim dbs As Database

    Set dbe = New PrivDBEngine
    Set dbs = dbe(0).OpenDatabase(varPath, True)

    If dbs Is Nothing Then
        If (Err.Number = FileInUse Or Err.Number = FileOpenedExclusively) Then
            fnCanOpenExclusive = False
        Else
            MsgBox "Erreur: " & Err.Number & ": " & vbCrLf & Err.Description
        End If
    Else
        fnCanOpenExclusive = True
        dbs.Close
    End If

    Set dbs = Nothing
    Set dbe = Nothing

End Function