In einem Formular soll ein Kombinationsfeld eingesetzt werden, das Kundenadressen anzeigt und nach einer Auswahl Name und Adresse in die Felder des Formulars einträgt.Ein Tipp von Smart Tools Publishing.

Versionen: Access 2013/2010 (32- und 64-Bit), 2007, 2003, 2002/XP und Office 365 (Access)

Ein Tipp von Smart Tools Publishing

Um per VBA eine leere neue Datenbank anzulegen, setzen Sie die Funktion „CreateDatabase()“ wie folgt ein:

- Wechseln Sie mit Alt+F11 in die VBA-Entwicklungsumgebung.

1. Wählen Sie das Menü Extras-Verweise an.
2. Setzen Sie eine Referenz auf „Microsoft DAO Object Library 3.6x“.
3. Nehmen Sie in Ihrer VBA-Routine die folgende Deklaration bzw. die folgenden Anweisungen auf:

Dim db As DAO.Database

Set db = DAO.CreateDatabase(„X:\Testdatenbank.mdb“, _
dbLangGeneral)
'…..
'Hier Ihre Anweisungen…
'…..
db.Close

Der erste Parameter definiert Laufwerk, Pfad und Dateiname der anzulegenden Datenbank. Über den zweiten Parameter legen Sie das Gebietsschema bzw. die Sprache fest: „dbLangGeneral“ steht hier für den Einsatz im europäischen Bereich. Weitere mögliche Konstanten für den Einsatz in anderen Regionen können Sie in Erfahrung bringen, indem Sie den Cursor auf die Anweisung „CreateDatabase“ setzen und F1 drücken.

Ein dritter, optionaler Parameter erlaubt die Angabe einer Datenbank-/Jet Engine-Version. Wenn Sie beispielsweise aus Access 2002/XP eine Datenbank anlegen möchten, die auch mit Access 97 genutzt werden kann, geben Sie als dritten Parameter „dbVersion30“ an. Dadurch wird dann eine zur Jet Engine 3.x kompatible Datenbank angelegt. Fehlt dieser Parameter, wird die neue Datenbank in der Version der aktuellen Datenbank erstellt.
</font>