En poursuivant votre navigation sur ce site, vous acceptez l'utilisation de cookies pour vous proposer des contenus et services adaptés. Mentions légales.

Recherche

Recherche

Les mémos

Je débute...

Visites

 1126994 visiteurs

 1 visiteur en ligne

Nous contacter

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

Catégorie : Les mémos - Administration
Page lue 7839 fois
Vous êtes ici :   Accueil » Mode exclusif