VBA Tipp: Exklusiven Öffnungsmodus einer Datei ermitteln

Aus DBWiki
Wechseln zu: Navigation, Suche

Aufgabenstellung

Ich möchte herausfinden, ob eine bestimmte Datei (Datenbank) exklusiv geöffnet ist.

Lösung

Das leistet die folgende Funktion:

Public Function IstDateiExklusiv(Optional FName) As Boolean
'
'   Herausfinden, ob Datei (Datenbank) exklusiv geöffnet ist
'   Rückgabewert:
'           True bei exklusiver Öffnung
'           False sonst
'
  Dim hFile As Integer
  hFile = FreeFile
  On Error Resume Next
  If IsMissing(FName) Then FName = CurrentDb.Name
  IstDateiExklusiv = False
  Open FName For Binary Access Read Write Shared As hFile
  If Err = 70 Then IstDateiExklusiv = True
  Err.Clear
  Close hFile
End Function

Aufruf

Um herauszufinden, ob die aktuelle Datenbank exklusiv geöffnet wurde:

IstDateiExklusiv()

oder auch:

IstDateiExklusiv("C:\Temp\MeineDatei.Dat")