Welche Verweise müssen in Access für die Funktion 'OpenCurrentDatabase' gesetzt sein?

Question

Welche Verweise müssen in Access für die Funktion 'OpenCurrentDatabase' gesetzt sein?

Antwort

Verwandte Fragen

Warum wird eine Access-Anwendung mit "OpenCurrentDatabase" nicht geöffnet?

Warum schließt sich eine mit Shell gestartete Anwendung in Access nicht mit Application.Quit?

Warum schließt eine über VBA gestartete Access-Anwendung am Ende nicht mit 'Application.Quit'?

Accepted Answer

Für die Verwendung der Methode `OpenCurrentDatabase` in Microsoft Access (VBA) muss ein Verweis auf die **Microsoft Access Object Library** gesetzt sein. Zusätzlich wird häufig auch die **Microsoft DAO Object Library** benötigt, insbesondere wenn du mit Datenbankobjekten arbeitest. **Konkret:** 1. **Microsoft Access xx.x Object Library** (xx.x steht für die jeweilige Version, z.B. 16.0 für Access 2016/2019/365) 2. **Microsoft DAO xx.x Object Library** (z.B. 3.6 oder 12.0, je nach Access-Version) **So setzt du die Verweise:** - Im VBA-Editor: Menü **Extras** → **Verweise** → Häkchen bei den genannten Bibliotheken setzen. **Hinweis:** `OpenCurrentDatabase` ist eine Methode des `Application`-Objekts in Access. Wenn du mit Access-Automatisierung aus einer anderen Anwendung (z.B. Excel) arbeitest, ist der Verweis auf die Access Object Library zwingend erforderlich. **Weitere Infos:** - [Microsoft Access Object Library](https://learn.microsoft.com/de-de/office/vba/api/overview/access) - [Microsoft DAO Object Library](https://learn.microsoft.com/de-de/office/client-developer/access/desktop-database-reference/dao-reference) Falls du mit ADO arbeitest, wäre stattdessen die **Microsoft ActiveX Data Objects Library** relevant, aber für `OpenCurrentDatabase` ist DAO/Access entscheidend.

Accepted Answer

Wenn eine Access-Anwendung mit der Methode `OpenCurrentDatabase` nicht geöffnet wird, kann das verschiedene Ursachen haben. Hier sind die häufigsten Gründe: 1. **Falscher Dateipfad ode... [mehr]

Accepted Answer

Wenn eine Access-Anwendung mit der Methode `OpenCurrentDatabase` nicht geöffnet wird, kann das verschiedene Ursachen haben. Hier sind die häufigsten Gründe: 1. **Falscher Dateipfad oder Dateiname** Der angegebene Pfad zur Datenbankdatei (.accdb oder .mdb) ist falsch oder die Datei existiert nicht. Überprüfe, ob der Pfad korrekt und die Datei vorhanden ist. 2. **Datei bereits geöffnet** Die Datenbank ist bereits von einer anderen Instanz von Access geöffnet, eventuell im exklusiven Modus. Dadurch kann ein weiterer Zugriff blockiert sein. 3. **Fehlende Berechtigungen** Der Benutzer, unter dem das Skript oder die Anwendung läuft, hat keine ausreichenden Rechte auf die Datei oder den Ordner. 4. **Beschädigte Datenbankdatei** Die Datenbankdatei ist beschädigt und kann nicht geöffnet werden. In diesem Fall hilft oft eine Reparatur mit Access selbst. 5. **Falsche Access-Version oder fehlende Runtime** Die installierte Access-Version ist nicht kompatibel mit der Datenbankdatei oder die Access-Runtime ist nicht installiert. 6. **Syntaxfehler im Code** Der Aufruf von `OpenCurrentDatabase` ist nicht korrekt. Beispiel für den korrekten VBA-Code: ```vba Dim appAccess As Object Set appAccess = CreateObject("Access.Application") appAccess.OpenCurrentDatabase "C:\Pfad\zur\Datenbank.accdb" appAccess.Visible = True ``` 7. **Fehlende oder falsche Verweise (References)** In VBA oder anderen Automatisierungsszenarien fehlen eventuell notwendige Verweise auf die Access-Bibliothek. 8. **Sicherheitswarnungen oder Makroeinstellungen** Access blockiert das Öffnen der Datenbank wegen Sicherheitseinstellungen oder deaktivierter Makros. **Tipp zur Fehlersuche:** - Prüfe, ob beim Ausführen des Codes eine Fehlermeldung erscheint und was diese aussagt. - Teste, ob die Datenbank manuell geöffnet werden kann. - Überprüfe die Zugriffsrechte und den Pfad. Weitere Informationen zur Methode findest du in der [Microsoft-Dokumentation](https://learn.microsoft.com/de-de/office/vba/api/access.application.opencurrentdatabase). Falls du eine konkrete Fehlermeldung erhältst, kann diese bei der weiteren Eingrenzung helfen.

Accepted Answer

Wenn du in Access mit VBA eine externe Anwendung über `Shell` startest (z.B. `Shell "notepad.exe"`), dann läuft diese Anwendung unabhängig von Access. Das bedeutet: - **`Appl... [mehr]

Accepted Answer

Wenn du in Access mit VBA eine externe Anwendung über `Shell` startest (z.B. `Shell "notepad.exe"`), dann läuft diese Anwendung unabhängig von Access. Das bedeutet: - **`Application.Quit`** bezieht sich immer nur auf die aktuelle Access-Anwendung, also auf die Instanz von Microsoft Access selbst. - Die mit `Shell` gestartete Anwendung ist ein eigenständiger Prozess und wird von Access nicht direkt kontrolliert. **Warum schließt sich die Shell-Anwendung nicht mit `Application.Quit`?** Weil `Application.Quit` nur Access beendet, aber keinen Einfluss auf andere, separat gestartete Programme hat. **Wie kann man eine per Shell gestartete Anwendung beenden?** Dazu müsstest du den Prozess der gestarteten Anwendung gezielt beenden, z.B. mit Windows-API-Funktionen oder über die Kommandozeile (z.B. mit `taskkill`). Das ist aber ein anderes Thema und erfordert zusätzliche Programmierung. **Zusammengefasst:** `Application.Quit` beendet nur Access, nicht andere Programme, die du mit `Shell` gestartet hast.

Accepted Answer

Wenn du aus einer Access-Anwendung per VBA eine andere Access-Anwendung startest (z.B. mit `CreateObject("Access.Application")` oder `New Access.Application`), dann musst du die gestartete I... [mehr]

Accepted Answer

Wenn du aus einer Access-Anwendung per VBA eine andere Access-Anwendung startest (z.B. mit `CreateObject("Access.Application")` oder `New Access.Application`), dann musst du die gestartete Instanz explizit schließen. Das geschieht mit `Application.Quit` (bzw. `objAccess.Quit`, wenn du ein Objekt verwendest). **Wird `Application.Quit` nicht aufgerufen, bleibt die gestartete Access-Instanz im Hintergrund geöffnet.** Das kann zu Problemen führen, z.B. dass die Datei gesperrt bleibt oder Ressourcen nicht freigegeben werden. **Beispiel:** ```vba Dim accApp As Object Set accApp = CreateObject("Access.Application") accApp.OpenCurrentDatabase "C:\Pfad\Zur\AnderenDatenbank.accdb" ' ... weitere Aktionen ... accApp.Quit Set accApp = Nothing ``` **Fazit:** Ohne `Application.Quit` (bzw. `.Quit` auf dem Objekt) schließt sich die aufgerufene Access-Anwendung nicht automatisch am Ende des VBA-Codes. Du bist selbst dafür verantwortlich, sie zu beenden.