Tables
Formulaires
Automation
Administration
Envoyer un mail
Outlook
Dates - Heures
Fichiers
Références
La normalisation
VBA
1007850 visiteurs
5 visiteurs en ligne
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