<\/p>\n
Access bietet die Mögichkeit, Datenbanken in einem exklusiven Modus zu öffnen. Dieser Modus ist vor allem für bestimmte Operationen wie etwa das Komprimieren einer Datenbankdatei nötig. Rund um das exklusive öffnen von Datenbanken gibt es jedoch noch eine Reihe weiterer wichtiger Informationen, die Sie in diesem Beitrag erhalten. Dazu gehören zwei VBA-Funktionen, mit denen Sie zum Beispiel prüfen können, ob eine Datenbank exklusiv geöffnet ist oder ob Sie diese im exklusiven Modus öffnen können.<\/b><\/p>\n
Normalerweise öffnen Sie eine Access-Datenbank im Standardmodus. Das heißt, dass Sie diese weder schreibgeschützt noch exklusiv öffnen – dies sind nämlich die beiden alternativen öffnungsarten. Um eine Datenbank überhaupt anders als im Standardmodus zu öffnen, bemühen Sie beispielsweise den öffnen-Dialog von Access.<\/p>\n
Hier wählen Sie zunächst die zu öffnende Datenbankdatei aus und klicken dann nicht sofort auf die öffnen<\/b>-Schaltfläche oder die Eingabetaste, sondern klicken auf die Nach unten<\/b>-Schaltfläche rechts von der öffnen<\/b>-Schaltfläche. Dort wählen Sie den Eintrag Exklusiv öffnen <\/b>aus (s. Bild 1).<\/p>\n
![\"Exklusives](\"..\/fileadmin\/_temp_\/2014_02\/pic_924_003.png\")
<\/p>\n
Bild 1: Exklusives öffnen einer Datenbankdatei<\/span><\/b><\/p>\n Was sind die Besonderheiten einer exklusiv geöffneten Datenbank Zunächst einmal zeigen sich keine äußerlichen Unterschiede zu einer im Standardmodus geöffneten Datenbankdatei.<\/p>\n Sie finden also nicht etwa einen Hinweis auf den öffnungsmodus in der Titelleiste et cetera. Der einzige äußerliche Unterschied ist, dass Access beim exklusiven öffnen einer Datenbank keine .ldb<\/b>– oder .laccdb<\/b>-Datei im Verzeichnis der Datenbankdatei anlegt. Das ist ja auch nicht nötig, da diese Datei üblicherweise die Informationen über die aktuellen Benutzer im Mehrbenutzerbetrieb enthält.<\/p>\n Eine weitere Besonderheit ist, dass Sie diese Datenbankdatei nicht erneut öffnen können. Wenn Sie dies dennoch versuchen, erhalten Sie die Meldung aus Bild 2.<\/p>\n Bild 2: Meldung beim Versuch, eine exklusive geöffnete Datenbankdatei ein zweites Mal zu öffnen<\/span><\/b><\/p>\n Wozu exklusiv öffnen<\/b><\/p>\n Es gibt verschiedene Gründe, warum Sie eine Anwendung exklusiv öffnen sollten. Wenn Sie eine Datenbank beispielsweise komprimieren möchten, darf diese nicht gleichzeitig von anderen Rechnern oder Access-Instanzen aus geöffnet sein. Dies können Sie leicht nachstellen: öffnen Sie eine Datenbank zunächst per Doppelklick auf den entsprechenden Dateinamen im Windows Explorer.<\/p>\n Dann starten Sie eine weitere Instanz von Access und öffnen die gleiche Datenbank von dort aus erneut. Wenn Sie nun in einer der beiden Access-Instanzen versuchen, die Access-Datenbanken zu komprimieren, erhalten Sie wieder die bereits erwähnte Fehlermeldung.<\/p>\n Diese merkt an, dass die Datenbank nicht verwendet werden könne, da diese bereits verwendet wird. Keine besonders hilfreiche Fehlermeldung übrigens: Otto Normalverbraucher wäre besser bedient, wenn die Fehlermeldung explizit darauf hinweisen würde, dass die Datenbank nicht komprimiert werden kann, da diese noch von anderen Access-Instanzen geöffnet wurde.<\/p>\n Kennwort nur im Exklusivmodus<\/b><\/p>\n Auch das Festlegen eines Kennworts für eine Datenbank ist nur bei einer exklusiv geöffneten Datenbank möglich. Anderenfalls treffen Sie auf die Fehlermeldung aus Bild 3.<\/p>\n Bild 3: Auch der Versuch, ein Kennwort zu vergeben, scheitert, wenn die Datenbank nicht exklusiv geöffnet ist.<\/span><\/b><\/p>\n Standardöffnungsmodus einstellen<\/b><\/p>\n Unter Access können Sie festlegen, ob Datenbanken standardmäßig im Exklusivmodus oder im freigegebenen Modus geöffnet werden sollen. Diese Einstellung finden Sie etwa unter Access 2010 in den Access-Optionen im Bereich Clienteinstellungen<\/b> unter Er-wei-tert|Stan-dard-öffnungsmodus <\/b>(s. Bild 4). Wenn Sie dort Exklusiv <\/b>auswählen, öffnet Access alle Datenbankdateien im exklusiven Modus, auch wenn Sie diese etwa per Doppelklick auf den Dateinamen im Windows Explorer öffnen.<\/p>\n <\/p>\n Bild 4: Sie können unter Access den Standardöffnungsmodus für Datenbankdateien festlegen.<\/span><\/b><\/p>\n Exklusiv öffnen per Verknüpfung<\/b><\/p>\n Gegebenenfalls erstellen Sie eine Verknüpfung oder eine Batch-Datei, um eine Datenbank zu öffnen. Wenn Sie diese nutzen möchten, um eine Datenbank im exklusiven Modus zu öffnen, müssen Sie den beiden ersten Argumenten, also dem Pfad zur MSAccess.exe <\/b>(schnell ermittelt mit SysCmd(acSysCmdAccessDir)<\/b>) und dem Pfad zur Datenbankdatei (bei geöffneter Datei im Direktfenster mit CurrentDb.Name<\/b>) noch den Parameter \/excl <\/b>anhängen. Der vollständige Ausdruck sieht dann etwa wie folgt aus:<\/p>\n Fügen Sie diesen zu einer neuen Dateiverknüpfung im Windows Explorer hinzu, sieht diese wie in Bild 5 aus.<\/p>\n Bild 5: Verknüpfung zum exklusiven öffnen einer Datenbank<\/span><\/b><\/p>\n Prüfen, ob Datenbank exklusiv geöffnet ist<\/b><\/p>\n Nun möchten Sie vielleicht auch nach dem Starten noch prüfen, ob die aktuelle Datenbank überhaupt exklusiv geöffnet ist – und zwar, ohne im Windows Explorer nach der entsprechenden .ldb<\/b>– oder .accdb<\/b>-Datei zu suchen.<\/p>\n Die Funktion aus Listing 1 prüft, ob die mit dem Parameter übergebene Datenbankdatei exklusiv geöffnet ist. Dazu verwendet die Funktion nicht etwa eine dafür vorgesehene VBA-Funktion, sondern sie versucht, schreibend auf diese Datei zuzugreifen.<\/p>\n Listing 1: Funktion, die ermittelt, ob eine Datenbank exklusiv geöffnet ist.<\/span><\/b><\/p>\n Die Funktion erwartet den Namen der zu untersuchenden Datei als Parameter. Wird dieser nicht übergeben, was durch die Funktion IsMissung <\/b>geprüft wird, nimmt die Funktion an, dass die aktuell geöffnete Access-Datenbank geprüft werden soll. Nachdem bereits zuvor die Fehlerbehandlung mit On Error Resume Next <\/b>deaktiviert wurde, versucht die Funktion mit der Open<\/b>-Anweisung auf die in strDateiname <\/b>angegebene Datei zuzugreifen. Dabei verwendet sie die zuvor mit der FreeFile<\/b>-Funktion ermittelte und in intDatei <\/b>gespeicherte Dateinummer.<\/p>\n Wenn die Datenbank exklusiv geöffnet ist, löst dieser Zugriff den Fehler mit der Nummer 70 <\/b>aus (Zugriff verweigert<\/b>).<\/p>\n Dies prüft die folgende If…Then<\/b>-Bedingung und stellt gegebenenfalls den Rückgabewert der Funktion auf True <\/b>ein.<\/p>\n Nach dem Zurücksetzen des Err<\/b>-Objekts schließt die Prozedur die gegebenenfalls geöffnete Datei wieder.<\/p>\n Wenn Sie die Funktion nun ohne Parameter vom Direktfenster der aktuell geöffneten Anwendung aus aufrufen, liefert diese nur den Wert True<\/b>, wenn Sie diese Anwendung im Exklusiv<\/b>-Modus geöffnet haben.<\/p>\n Prüfen, ob eine Datenbank exklusiv geöffnet werden kann<\/b><\/p>\n Eine weitere Funktion namens ExklusivZuOeffnen <\/b>prüft, ob eine mit dem Parameter übergebene Datenbank exklusiv geöffnet werden kann.<\/p>\n Dazu benötigen Sie einen Verweis auf die ADO-Bibliothek Microsoft ActiveX Data Objects x.y Library <\/b>(s. Bild 6).<\/p>\n Bild 6: Verweis auf die ADO-Bibliothek für den Zugriff auf eine Datenbank<\/span><\/b><\/p>\n Die Funktion aus Listing 2 verwendet das Connection<\/b>-Objekt aus dieser Bibliothek, um eine Verbindung zu der zu prüfenden Datenbank aufzubauen.<\/p>\n Listing 2: Funktion, die per ADO prüft, ob eine Datenbank exklusiv geöffnet werden kann<\/span><\/b><\/p>\n Die Funktion stellt zunächst eine Verbindungszeichenfolge zusammen und speichert diese in der Variablen strConnection<\/b>. Diese enthält den Provider der aktuellen Datenbank (unter Access ab Version 2007 beispielsweise Microsoft.ACE.OLEDB.12.0<\/b>) sowie als Data Source den Dateinamen der zu prüfenden Datenbank.<\/p>\n Dann erstellt die Prozedur ein neues Connection<\/b>-Objekt und stellt die Eigenschaft Mode <\/b>auf adModeShareExclusive <\/b>ein, was bedeutet, dass diese Verbindung exklusiv hergestellt werden soll. Das ist auch schon der Clou: Wenn diese Verbindung hergestellt werden kann, lässt sich die Datenbank exklusiv öffnen. Sollte die Datenbank hingegen bereits von einer anderen Access-Instanz geöffnet sein oder anderweitig im Zugriff stehen, funktioniert die nun folgende Open<\/b>-Methode mit der Verbindungszeichenfolge aus strConnection <\/b>als Parameter nicht.<\/p>\n War der Verbindungsaufbau erfolgreich, stellt die Prozedur die Variable bolExklusiv <\/b>auf True <\/b>ein, schließt die Verbindung und führt einige abschließende Schritte durch. Falls nicht, fährt die Funktion mit der hinter Fehler: <\/b>befindlichen Fehlerbehandlung fort, wodurch bolExklusiv <\/b>zur Sicherheit auf False <\/b>eingestellt wird. In den abschließenden Schritten unter Ende: <\/b>stellt die Funktion noch ihren Rückgabewert auf den Inhalt von bolExklusiv <\/b>ein.<\/p>\n Wenn Sie keinen Verweis auf die ADO-Bibliothek hinzufügen möchten, können Sie die Deklarationszeile wie folgt ersetzen:<\/p>\n Die Erstellung des entsprechenden Objekts läuft dann so:<\/p>\n Schließlich müssen Sie die Konstante adModeShareExclusive<\/b> noch durch den Zahlenwert 12 <\/b>ersetzen.<\/p>\n Zusammenfassung und Ausblick<\/b><\/p>\n Es kann an verschiedenen Stellen hilfreich sein, zu wissen, ob eine bereits geöffnete Datenbank im exklusiven Modus geöffnet wurde oder ob Sie eine bestimmte Datenbank exklusiv öffnen können. Dies ist beispielsweise der Fall, wenn die Datenbank noch gar nicht geöffnet ist oder sich im Zugriff befindet oder wenn die Datenbank zwar geöffnet ist, aber im schreibgeschützten Modus.<\/p>\n Der vorliegende Beitrag liefert Informationen rund um das exklusive öffnen von Datenbanken sowie zwei Funktionen, mit denen Sie prüfen können, ob eine Datenbank exklusiv geöffnet ist oder nicht und ob Sie eine Datenbank exklusiv öffnen können.<\/p>\n Enthaltene Beispieldateien:<\/p>\n Oeffnungsmodus.mdb<\/p>\n![\"Meldung](\"..\/fileadmin\/_temp_\/2014_02\/pic_924_001.png\")
<\/p>\n![\"Auch](\"..\/fileadmin\/_temp_\/2014_02\/pic_924_002.png\")
<\/p>\n![\"Sie](\"..\/fileadmin\/_temp_\/2014_02\/pic_924_004.png\")
<\/p>\n\"C:\\Program Files (x86)\\Microsoft Office\\Office14\\MSAccess.exe\" \r\n\"C:\\Daten\\Fachmagazine\\AccessImUnternehmen\\2014\\02\\ExklusivesOeffnen\\Oeffnungsmodus.mdb\" \/excl<\/pre>\n
![\"Verknüpfung](\"..\/fileadmin\/_temp_\/2014_02\/pic_924_005.png\")
<\/p>\nPublic Function <\/span>ExklusivGeoeffnet(Optional<\/span> strDateiname As Variant<\/span>) As Boolean<\/span>\r\n Dim <\/span>intDatei As Integer<\/span>\r\n intDatei = FreeFile\r\n On Error Resume Next<\/span>\r\n If <\/span>IsMissing(strDateiname) Then<\/span>\r\n strDateiname = CurrentDb.Name\r\n End If<\/span>\r\n Open strDateiname For Binary Access Read Write Shared As <\/span>intDatei\r\n If <\/span>Err.Number = 70 Then<\/span>\r\n ExklusivGeoeffnet = True<\/span>\r\n End If<\/span>\r\n Err.Clear\r\n Close intDatei\r\nEnd Function<\/span><\/pre>\n![\"Verweis](\"..\/fileadmin\/_temp_\/2014_02\/pic_924_006.png\")
<\/p>\nPublic Function <\/span>ExklusivZuOeffnen(strDateiname As String<\/span>) As Boolean<\/span>\r\n Dim <\/span>bolExklusiv As Boolean<\/span>\r\n Dim <\/span>cnn As <\/span>ADODB.Connection\r\n Dim <\/span>strConnection As String<\/span>\r\n On Error GoTo<\/span> Fehler\r\n strConnection = \"Provider=\" & CurrentProject.Connection.Provider _\r\n & \";Data Source=\" & strDateiname & \";\"\r\n Set<\/span> cnn = New<\/span> ADODB.Connection\r\n cnn.Mode = adModeShareExclusive\r\n cnn.Open strConnection\r\n bolExklusiv = True<\/span>\r\n cnn.Close\r\nEnde:\r\n On Error Resume Next<\/span>\r\n Set<\/span> cnn = Nothing\r\n On Error GoTo<\/span> 0\r\n ExklusivZuOeffnen = bolExklusiv\r\n Exit Function<\/span>\r\nFehler:\r\n bolExklusiv = False<\/span>\r\n GoTo Ende\r\nEnd Function<\/span><\/pre>\nDim <\/span>cnn As Object<\/span><\/pre>\nSet<\/span> cnn = CreateObject(\"ADODB.Connection\")<\/pre>\nDownloads zu diesem Beitrag<\/h3>\n