Programmgesteuertes Erstellen einer Datenbankvorlage

Mit der SaveAsTemplate-Methode können Sie eine vorhandene Access-Datenbankdatei in eine Datenbankvorlagendatei (ACCDT) konvertieren, die auf der Seite Erste Schritte mit Microsoft Office Access angezeigt werden kann.

Syntax

Ausdruck. SaveAsTemplate(TemplateLocation, TemplateName, PreviewImage, Description, Category, Keywords, Identifier, Reserved)

Ausdruck Eine Variable, die ein TemplateCreator-Objekt darstellt.

In der folgenden Tabelle sind die Argumente der SaveAsTemplate-Methode beschrieben.

Name Erforderlich/Optional Datentyp Beschreibung
TemplateLocation Erforderlich String Der vollständige Pfad und Dateiname der zu erstellenden Datenbankvorlage. Damit die Vorlage auf der Seite Erste Schritte mit Microsoft Office Access angezeigt wird, muss sie im Unterordner Microsoft\Templates des Benutzers im Ordner Anwendungsdaten des Benutzers gespeichert werden.

In Windows XP ist der Standardspeicherort des Ordners Anwendungsdaten C:\Dokumente und Einstellungen\ Benutzername \Anwendungsdaten, wobei Benutzername der Name des Benutzers ist, der derzeit angemeldet ist.

In Windows Vista ist der Standardspeicherort des Ordners Anwendungsdaten C:\Benutzer\ Benutzername \AppData\Roaming, wobei Benutzername der Name des Benutzers ist, der derzeit angemeldet ist. Verwenden Sie die Funktion Environ , um den aktuellen Speicherort des Anwendungsdatenordners des Benutzers zu ermitteln. Der folgende Code veranschaulicht, wie dies funktioniert. strTemplateLocation = Environ("AppData") & "\Microsoft\Templates\"
TemplateName Optional String Der Name der Datenbank, die dann erstellt wird, wenn der Benutzer die Vorlage öffnet.
VorschauImage Optional String Eine Bilddatei, die als Vorschau für die Datenbankvorlage auf der Seite Erste Schritte bei Microsoft Office Access verwendet werden soll.
Beschreibung Optional String Eine Beschreibung, die dann angezeigt wird, wenn der Benutzer die Datenbankvorlage auf der Seite Erste Schritte bei Microsoft Office Access auswählt.
Kategorie Optional String Die Vorlagenkategorie, unter der die Datenbankvorlage auf der Seite Erste Schritte bei Microsoft Office Access angezeigt wird.
Schlüsselwörter Optional String Schlüsselwörter, die zu den Dateieigenschaften der Vorlage hinzugefügt werden sollen.
Kennung Optional String
Reserved Optional String

Verwendung

Sie müssen das TemplateCreator-Objekt instanziieren, bevor Sie die SaveAsTemplate-Methode aufrufen. Zum Instanziieren des TemplateCreator-Objekts ist eine andere Technik als zum Instanziieren der in Access integrierten Objekte erforderlich. Sie müssen die COMAddins-Auflistung zum Instanziieren des TemplateCreator-Objekts verwenden.

Der folgende Code veranschaulicht, wie das AccessDeveloperExtensions-Objekt mithilfe der COMAddins-Auflistung instanziiert wird.

Set objTemplate = Application.COMAddIns("AccessAddIn.ADE").Object.TemplateObject 

Im folgenden Beispiel wird eine neue Vorlage mit dem Namen Asset Tracker erstellt und der Kategorie Abteilungsdaten auf der Seite Erste Schritte mit Microsoft Office Access zugewiesen.

    Dim objTemplate As TemplateCreator 
    Dim strTemplateLocation As String 
     
    ' The database template must be saved to this location to appear on the 
    ' Getting Started with Microsoft Office Access page. 
    strTemplateLocation = Environ("AppData") & "\Microsoft\Templates\" 
     
    ' Instantiate a TemplateObject object. 
    Set objTemplate = Application.COMAddIns("AccessAddIn.ADE").Object.TemplateObject 
 
    ' Create the database template.     
    objTemplate.SaveAsTemplate TemplateLocation:=strTemplateLocation & "AssetTracker.accdt", _ 
                               TemplateName:="Asset Tracker", _ 
                               Category:="Departmental Data"

Sie müssen einen Verweis auf die Typenbibliothek der Access Developer-Erweiterungen erstellen, damit die SaveAsTemplate-Methode verwendet werden kann. Führen Sie dazu die folgenden Schritte aus:

  1. Klicken Sie im Menü Extras auf Verweise.
  2. Aktivieren Sie das Kontrollkästchen Microsoft Office Access Developer Extensions Type Library 1.0 , und klicken Sie dann auf OK.

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.