<\/p>\n
Bis Access 2003 waren die OLE-Felder die einzige Möglichkeit, Dateien in Access-Tabellen zu speichern (okay, theoretisch ginge dies auch mit Memofeldern …). Access 2007 liefert mit dem Anlagefeld eine neue Möglichkeit, dies zu erledigen. Neu ist dabei vor allem die Tatsache, dass sich Dateien leicht über die Benutzeroberfläche in solchen Feldern speichern und auch wiederherstellen lassen. Wir schauen uns im Detail an, was Anlagefelder können und wie Sie damit umgehen.<\/b><\/p>\n
Anlagefelder sehen in der Entwurfsansicht von Tabellen zunächst wie herkömmliche Felder aus – mit dem Unterschied, dass Sie als Felddatentyp den Wert Anlage <\/b>auswählen und dass diese im Register Allgemein <\/b>des Eigenschaften-Bereichs der Entwurfsansicht nur zwei Eigenschaften enthalten (siehe Bild 1).<\/p>\n
![\"pic001.png\"](\"..\/fileadmin\/_temp_\/2010_01\/Anlagefelder-web-images\/pic001_opt.jpeg\")
<\/p>\n
Bild 1: Ein Anlagefeld in der Entwurfsansicht einer Tabelle<\/span><\/b><\/p>\n In der Datenblattansicht zeigt sich Überraschendes: Erstens zeigt Access statt des Feldnamens als Spaltenüberschrift nur eine Büroklammer an, und auch der Feldinhalt selbst sieht außergewöhnlich aus: Eine weitere Büroklammer mit einer eingeklammerten Null (siehe Bild 2).<\/p>\n Bild 2: Statt einer Spaltenüberschrift zeigt Access bei Anlagefeldern nur eine Büroklammer an. Kehrt Karl Klammer zurück Nein, …<\/span><\/b><\/p>\n Das Problem mit der Spaltenüberschrift lässt sich schnell lösen: Dazu brauchen Sie in der Entwurfsansicht einfach nur einen Text für die Eigenschaft Beschriftung <\/b>des Anlagefelds einzutragen (siehe Bild 3).<\/p>\n Bild 3: … denn für die Eigenschaft Beschriftung können Sie auch für Anlagefelder eine Spaltenüberschrift festlegen.<\/span><\/b><\/p>\n Was aber stellen wir nun mit dem frisch erstellten Anlagefeld an Bevor wir uns brachial mit einem Doppelklick darauf stürzen, versuchen wir es mit einem Rechtsklick auf den Feldinhalt. Und siehe da: Der Eintrag Anlagen verwalten… <\/b>sieht verheißungsvoll aus (siehe Bild 4). Ein Klick darauf wirkt übrigens genau so wie der zuvor angesprochene Doppelklick, aber wir wollen doch keine möglicherweise hilfreichen weiteren Funktionen verpassen …<\/p>\n Bild 6: Mit diesem Dialog wählen Sie eine oder mehrere Dateien zum Hinzufügen zum Anlagefeld aus.<\/span><\/b><\/p>\n Anlagen hinzufügen<\/b><\/p>\n Der nun erscheinende Dialog Anlagen<\/b> enthält ein zunächst leeres Listenfeld und nur eine aktivierte Schaltfläche, die eine Funktion zum Hinzufügen einer Anlage offeriert (siehe Bild 5). Wer diesen Beitrag im Internet oder im PDF-Format liest, dem fällt möglicherweise auf, dass der Anlagen<\/b>-Dialog im Gegensatz zu den Fenstern der anderen Screenshots blau statt schwarz ist. Dies ist darauf zurückzuführen, dass letzterer ein Windows-Dialog und als solches nicht dem aktuellen Access-Theme unterworfen ist.<\/p>\n Bild 4: Der Kontextmenüeintrag Anlagen verwalten… eröffnet weitere Möglichkeiten.<\/span><\/b><\/p>\n Ein Klick auf die Schaltfläche Hinzufügen… <\/b>öffnet den bekannten Datei auswählen<\/b>-Dialog, mit dem Sie nicht nur eine, sondern auf Wunsch auch mehrere Dateien auswählen können (siehe Bild 6).<\/p>\n Bild 5: Ein Klick auf die Schaltfläche Hinzufügen… sollte Leben in das (noch) leere Listenfeld bringen.<\/span><\/b><\/p>\n Mehrere Dateien Und … landen die dann alle im gleichen Feld oder legt Access automatisch neue Datensätze für die übrigen Dateien an Genau genommen geschieht beim Hinzufügen mehrerer Dateien eine Mischung aus beidem – dazu jedoch später mehr. Schauen wir uns zunächst an, was beim Hinzufügen einer einzigen Datei, zum Beispiel einer Bilddatei, geschieht. Nach dem Schließen des Datei auswählen<\/b>-Dialogs erscheint die ausgewählte Datei in der Liste des Anlagen<\/b>-Dialogs. Gleichzeitig aktiviert Access einige weitere Schaltflächen, so etwa die Entfernen<\/b>-, die Speichern unter…<\/b>– und die Alles speichern…<\/b>-Schaltflächen (siehe Bild 7).<\/p>\n Bild 7: Die enthaltene Bilddatei lässt sich entfernen oder speichern.<\/span><\/b><\/p>\n Die Funktion dieser Felder ist nicht erklärungsbedürftig. Erklärungsbedürftig ist aber, warum ausgerechnet die Schaltfläche Öffnen <\/b>deaktiviert ist. Zunächst könnte man vermuten, der Dateityp .png <\/b>würde einfach nicht unterstützt. Weitere Versuche mit Office-Dokumenten oder anderen Dateiformaten schlugen fehl – die Öffnen<\/b>-Schaltfläche ließ sich nicht aktivieren. Nach dem Schließen und erneuten Öffnen des Anlage-Dialogs zeigt sich die Öffnen<\/b>-Schaltfläche jedoch schon bereitwilliger – sie ist nun aktiviert, und auch der Doppelklick auf eine zuvor abgespeicherte Datei öffnet diese in der entsprechenden Anwendung. Nach dem Hinzufügen einiger Dateien (in diesem Fall vier) und dem Schließen des Anlagen<\/b>-Dialogs zeigt sich, dass die Zahl in Klammern hinter dem Büroklammer-Symbol die Anzahl der im Feld gespeicherten Dateien wiedergibt (siehe Bild 8).<\/p>\n Bild 8: Das Anlagefeld kann offensichtlich mehr als eine Datei speichern.<\/span><\/b><\/p>\n Wir können also mehrere Dateien in einem einzigen Feld speichern – wie funktioniert das denn<\/p>\n Verborgene Tabelle<\/b><\/p>\n In der Tat speichert Access die Dateien nicht in einem einzigen Feld. Stattdessen verbirgt sich hinter Anlagefeldern eine intern gepflegte Tabelle mit den drei Feldern FileData<\/b>, FileName <\/b>und FileType<\/b>.<\/p>\n Woher wir das wissen Ganz einfach: Sie brauchen nur eine Abfrage auf Basis einer Tabelle mit einem Anlagefeld zu erstellen. Die Feldliste zeigt versetzt die Felder der Anlagen-Tabelle an (siehe Bild 9).<\/p>\n Bild 9: In einer Abfrage erkennt man die wahre Gestalt eines Anlagefelds.<\/span><\/b><\/p>\n Wenn Sie diese wie in der Abbildung in das Entwurfsraster ziehen und in die Datenblattansicht wechseln, enthält jeder Datensatz neben dem Original-Anlagefeld mit vier Dateien je ein Anlagefeld mit einer Datei sowie Dateiname und Dateiendung der enthaltenen Datei (siehe Bild 10).<\/p>\n Bild 10: Mittels einer Abfrage lassen sich die Daten aus der hinter einem Anlagefeld verborgenen Tabelle anzeigen.<\/span><\/b><\/p>\n Die Ausgabe sieht genau so aus, als wenn die Beispieltabelle tblAnlagen<\/b> und die verborgene Tabelle mit den einzelnen Anlagen eine 1:n-Beziehung aufweisen.<\/p>\n Exkurs für Profis: Der Nachweis der verborgenen Hilfstabellen<\/b><\/p>\n Wie können wir herausfinden, ob Anlagefelder tatsächlich mit verborgenen Tabellen verknüpft sind, und so den Eindruck bestätigen, den das Abfrageergebnis aus Bild 10 lieferte Ganz einfach: Wir brauchen einfach nur die Ausführungspläne zu untersuchen, welche die Jet-Engine beim Ausführen von Abfragen verwendet und die, eine entsprechende Einstellung in der Registry vorausgesetzt, in eine Datei geschrieben werden und eingesehen werden können.<\/p>\n Ganz einfach gelingt dies mit einem Tool namens Showplan-Capture<\/b> von Sascha Trowitzsch, das Sie unter dem folgenden Link herunterladen können: http:\/\/www.mosstools.de\/index.phpoption=com_content&view=article&id=54&Itemid=57<\/b><\/p>\n Nach dem Entpacken und Starten brauchen Sie nur die Option Aktiv für ACE (Access 2007\/2010) <\/b>auszuwählen und dann dafür zu sorgen, dass die zu untersuchende Abfrage neu optimiert wird. Dazu ändern Sie irgendein Detail dieser Abfrage, indem Sie beispielsweise das Feld Anlagefeld <\/b>entfernen und erneut die Datenblattansicht dieser Abfrage anzeigen. Das Ergebnis sieht wie in Bild 11 aus.<\/p>\n Bild 11: Der Ausführungsplan der Abfrage qryAnlagen zeigt, dass die einzelnen Dateien des Anlagefelds in einer verknüpften Tabelle gespeichert werden.<\/span><\/b><\/p>\n Die verborgene verknüpfte Tabelle heißt in diesem Fall Anlagefeld_DA3A63DDBA8A47E394389107CAFA307D <\/b>und ist über das Feld _Anlagefeld <\/b>mit dem Feld Anlagefeld <\/b>der Tabelle tblAnlagen <\/b>verknüpft.<\/p>\n Nicht alle Dateiformate möglich<\/b><\/p>\n Ohne den Einsatz von VBA (dazu später mehr) können Sie nur wenige Dateiformate in einem Anlagefeld speichern. Dazu gehören einige Bilddateiformate (BMP<\/b>, RLE<\/b>, DIB<\/b>, GIF<\/b>, JPEG<\/b>, JPG<\/b>, JPE<\/b>, EXIF<\/b>, PNG<\/b>, TIFF<\/b>, TIF<\/b>, ICON<\/b>, ICO<\/b>, WMF <\/b>und EMF<\/b>), die mit einer Microsoft Office-Anwendung erzeugten Formate, .txt <\/b>und .log<\/b>-Dateien.<\/p>\n Informationen zu den zugelassenen, speziell aber auch zu den verbotenen Dateiformaten finden Sie in der Onlinehilfe des VBA-Editors unter dem Stichwort Attachment-Objekt<\/b>.<\/p>\n Besonderheiten beim Umgang mit Bilddateien<\/b><\/p>\n Bilddateien können Sie entweder im ursprünglichen Format in einem Anlagefeld speichern oder in dem proprietären Format, in dem diese auch beim Einfügen in OLE-Feldern gespeichert werden. Letzteres hat den Nachteil, dass Bilder mit vormals wenig Speicherbedarf in ein proprietäres Format konvertiert werden, das sehr viel mehr Speicherplatz frisst. Ob Access Bilddateien etwa im Format .jpg<\/b>, .gif <\/b>oder .png <\/b>bei der Originalgröße belässt, stellen Sie im Optionen<\/b>-Dialog von Access ein. Diesen öffnen Sie mit der Schaltfläche Access-Optionen <\/b>im Office-Menü. Dort zeigen Sie den Bereich Aktuelle Datenbank <\/b>an und stellen unter Anwendungsoptionen <\/b>die Option Bildeigenschaften-Speicherformat <\/b>auf den Wert Quellbildformat beibehalten <\/b>ein (siehe Bild 12).<\/p>\n Bild 14: Eine .ico-Datei im Anlage-Steuerelement<\/span><\/b><\/p>\n Das Anlage-Steuerelement<\/b><\/p>\n Was wäre ein Anlagefeld, wenn wir es nicht in Formularen einsetzen könnten Und so gibt es natürlich auch ein neues Steuerelement für diesen neuen Datentyp. Wenn Sie ein solches Steuerelement zu einem Formular hinzufügen möchten, finden Sie es im Ribbon in Form eines Büroklammer-Symbols vor (siehe Bild 13).<\/p>\n Bild 12: Diese Option sorgt dafür, dass Bilddateien beim Einfügen in ein Anlagefeld nicht konvertiert werden und so unter Umständen wesentlich mehr Speicherplatz benötigen.<\/span><\/b><\/p>\n Es lässt sich zwar als ungebundenes Steuerelement hinzufügen, aber anfangen lässt sich erst etwas damit, wenn Sie seinen Steuerelementinhalt an ein Anlagefeld einer Tabelle oder einer Abfrage binden. Dann zeigt es beispielsweise eine Icon-Datei wie in Bild 14 an.<\/p>\n Bild 13: Das Büroklammersymbol repräsentiert das neue Anlage-Steuerelement.<\/span><\/b><\/p>\n Wenn Sie einfach auf das Anlage-Steuerelement klicken, erscheint darüber eine kleine Kontext-Symbolleiste, die das Blättern in den gespeicherten Dateien sowie das Öffnen des Anlagen<\/b>-Dialogs erlaubt – Letzteren kennen Sie ja bereits.<\/p>\n Während das Anlage-Steuerelement Bilder direkt anzeigt, liefert es etwa für Office-Dokumente nur das jeweilige Datei-Symbol als Platzhalter – eine Vorschau auf den Inhalt der Datei erscheint nicht. Das Anlage-Steuerelement liefert eine Reihe spezieller Eigenschaften:<\/p>\n Alternative Möglichkeit zur Anzeige von Anlagen in Formularen<\/b><\/p>\n Das Beispielformular aus Bild 14 enthält als Steuerelementinhalt den Namen des Anlagefelds der an das Formular gebundenen Tabelle tblAnlagen<\/b>. Damit liefert es genau die gleichen Funktionen, die auch das Tabellenfeld selbst offerierte.<\/p>\n Sie können in diesem Formular erstens durch die verschiedenen in der Tabelle tblAnlagen <\/b>gespeicherten Datensätze blättern und außerdem die verschiedenen im Feld Anlagefeld <\/b>der Tabelle gespeicherten Dateien betrachten.<\/p>\n Es gibt noch eine andere Möglichkeit, die in einem Anlagefeld enthaltenen Dateien in einem Anlagefeld anzuzeigen. Wenn Sie nicht das Anlagefeld selbst aus der Feldliste in den Formularentwurf ziehen, sondern die in der verknüpften Tabelle gespeicherten Felder FileData <\/b>und, nach Wunsch, die Felder FileName <\/b>und FileType<\/b> (siehe Bild 15), durchlaufen Sie die im Feld Anlagefeld <\/b>aller Datensätze der Tabelle tblAnlagen <\/b>gespeicherten Dateien.<\/p>\n Bild 15: Dieses Formular zeigt die in allen Datensätzen gespeicherten Dateien wie einen eigenen Datensatz an.<\/span><\/b><\/p>\n <\/p>\n Wenn Sie also beispielsweise im Anlagefeld des ersten Datensatzes drei Bilddateien gespeichert haben und im Anlagefeld des zweiten Datensatzes zwei, zeigt der Navigationsbereich des Formulars insgesamt fünf Datensätze an (siehe Bild 16).<\/p>\n Bild 16: Datensatzweise Anzeige von Anlagen<\/span><\/b><\/p>\n Diese Darstellung erlaubt nicht den komfortablen Zugriff auf die im Anlagefeld gespeicherten Daten wie sie durch die Popup-Symbolleiste oder das Kontextmenü des herkömmlich verwendeten Anlagefelds bereitgestellt werden.<\/p>\n Anlage-Steuerelement in Berichten<\/b><\/p>\n Sinnvoll wird das Einarbeiten des Feldes FileData <\/b>der Untertabelle eines Anlagefelds erst in einem Bericht. Bild 17 zeigt einen Bericht, dessen Anlage-Steuerelement an das Feld Anlagefeld <\/b>der Tabelle tblAnlagen <\/b>gebunden ist. Egal, wie viele Bilddateien das Anlagefeld eines jeden Datensatzes enthält: Der Bericht zeigt nur das jeweils erste Bild an. Wenn Sie die Eigenschaft Steuerelementinhalt <\/b>des Anlage-Steuerelements auf das Feld Anlagefeld.FileData<\/b>, also das Feld der Untertabelle des Anlagefelds einstellen, zeigt der Bericht alle enthaltenen Bilddateien an (siehe Bild 18).<\/p>\n Bild 18: Erst, wenn man das Anlage-Steuerelement an das Feld FileData in der Untertabelle des Anlagefelds bindet, zeigt der Bericht alle enthaltenen Bilddateien an.<\/span><\/b><\/p>\n Bild 17: Das Anlage-Steuerelement zeigt in der Berichtsvorschau nur jeweils die erste Datei des Anlagefelds eines jeden Datensatzes an.<\/span><\/b><\/p>\n Warum überhaupt mehrere Dateien pro Anlagefeld<\/b><\/p>\n Wer gern die Kontrolle über die Logik seiner Anwendung und die enthaltenen Daten behält, verzichtet auf die eingebaute Möglichkeit, mehrere Dateien in einem einzigen Anlagefeld speichern zu können. In vielen Fällen reicht es ohnehin aus, wenn man eine einzige Datei pro Datensatz speichert (etwa beim Passfoto eines Mitarbeiters). Und sollen einmal mehrere Bilder oder andere Dateien je Datensatz gespeichert werden, können Sie immer noch eine eigene Tabelle zum Speichern der Dateien erstellen, die per 1:n-Beziehung mit der entsprechenden Haupttabelle verknüpft ist.<\/p>\n Anlagefelder im Datenzugriff<\/b><\/p>\n Wenn Microsoft schon eine Alternative zu den OLE-Feldern liefert, sollte man auch mit mindestens einer der gängigen Datenzugriffstechnologien per VBA-Code darauf zugreifen können. In der Tat hat Microsoft ADO hier links liegen lassen (generell empfiehlt man dort, unter Access 2007 auch nicht mehr mit der Kombination ADO\/Access-Projekt auf SQL Server-Datenbanken zuzugreifen, sondern per DAO\/ODBC – dies nur als Hintergrundinformation). DAO hingegen wurde dahingehend weiterentwickelt, dass man damit auch Anlagefelder und die darin enthaltenen Daten im Griff hat.<\/p>\n Aus Feld mach Recordset<\/b><\/p>\n Nachdem Sie bereits erfahren haben, dass die in einem Anlagefeld gespeicherten Dateien offensichtlich in einer Tabelle gespeichert werden, die per 1:n-Beziehung mit der Haupttabelle verknüpft ist, fragen Sie sich sicher, wie Sie per DAO auf die in der verborgenen Tabelle enthaltenen Daten zugreifen können. Dies ist ganz einfach: Sie brauchen einfach nur eine Referenz auf die Value<\/b>-Eigenschaft des entsprechenden Fields<\/b>-Objekts an ein Recordset zu übergeben und greifen dann mit den üblichen Methoden auf die Felder der verborgenen Tabelle zu. Doch zunächst einmal deklarieren Sie die notwendigen DAO-Objekte:<\/p>\n Vermutlich fällt Ihnen gleich auf, dass wir hier die Datentypen Recordset2<\/b> und Field2 <\/b>statt Recordset <\/b>und Field <\/b>verwenden. Dies sind zwei der wenigen Neuerungen der DAO-Bibliothek. Diese zwei Datentypen dienen erstens dem Zugriff auf Anlagefelder und zweitens dem Zugriff auf die sogenannten mehrwertigen Felder (dabei handelt es sich um Felder, die mehr als einen Wert enthalten können). Sie können allerdings auch weiterhin mit den alten Bezeichnungen arbeiten, diese funktionieren auch. Wenn Sie jeweils die 2 <\/b>anhängen, können Sie beim Herunterkonvertieren von Access 2007-Datenbanken in ältere Access-Formate schneller erkennen, wo der Fehler liegt, wenn der Zugriff etwa auf Anlagefelder misslingt. Sie sollten jedoch nur die neuen Objekte verwenden, wenn dies erforderlich ist – also beispielsweise bei der Arbeit mit Anlagefeldern.<\/p>\n Zurück zum Code: db <\/b>und rst <\/b>benötigen Sie für den Zugriff auf die aktuelle Datenbank beziehungsweise zum Erzeugen eines Recordsets auf Basis der Beispieltabelle tblAnlagen<\/b>. Mit fld <\/b>referenzieren Sie das Anlagefeld Anlagefeld <\/b>der Tabelle. rstAnlagen <\/b>schließlich dient dem Zugriff auf die hinter dem Anlagefeld verborgene Tabelle und fldAnlagen <\/b>zum Durchlaufen der darin enthaltenen Felder. Füllen wir zunächst die Objektvariablen db<\/b>, rst <\/b>und fld<\/b>:<\/p>\n Nun holen wir über die Value<\/b>-Eigenschaft des Anlagefeldes fld <\/b>einen Verweis auf die enthaltene Tabelle und schreiben diesen in rstAnlagen<\/b>: <\/p>\n Schließlich durchlaufen wir die Elemente der Fields<\/b>-Auflistung der referenzierten Tabelle. Den jeweiligen Verweis speichern wir in der Variablen fldAnlagen <\/b>zwischen und geben den Feldnamen und zusätzlich noch den Felddatentyp im Direktfenster des VBA-Editors aus (den vollständigen Code dieser Prozedur finden Sie in der Beispieldatenbank im Modul mdlAnlagen <\/b>unter dem Namen Anlagen_Feldzugriff<\/b>):<\/p>\n Das Ergebnis sieht wie folgt aus (die Konstanten für die Zahlenwerte der Eigenschaft Type<\/b> haben wir als Kommentar ergänzt – die komplette Auflistung der Datentypen finden Sie im Objektkatalog (F2<\/b>) unter dem Stichwort DataTypeEnum<\/b>):<\/p>\n Die Tabelle, die sich hinter dem Anlagefeld verbirgt, enthält also sogar noch mehr Felder, als etwa der Abfrageentwurf und die Feldliste von Formularen und Berichten anzeigt. Die änderung des Befehls zur Ausgabe der Feldnamen um die Feldwerte zeigt aber, dass die drei noch nicht bekannten Felder allesamt den Wert Null<\/b> enthalten:<\/p>\n Wofür also die nicht verwendeten Felder Diese werden in Zusammenhang mit SharePoint benötigt. Weitere Informationen würden den Rahmen dieses Beitrags allerdings sprengen …<\/p>\n Beim Betrachten der Ausgabe fällt zunächst auf, dass das Feld FileData <\/b>eine Menge kryptischer Zeichen enthält, die offensichtlich die gespeicherte Datei repräsentieren. Es handelt sich dabei um ein Byte-Array, das neben der Datei auch noch einen Header enthält.<\/p>\n Durchlaufen der Dateien in einem Anlagefeld<\/b><\/p>\n Wenn Sie Informationen zu allen in einem Anlagefeld einer Tabelle gespeicherten Dateien ausgeben möchten, ändern Sie den inneren Teil der zuvor erwähnten Prozedur wie folgt (siehe Beispielprozedur AnlagenDurchlaufen<\/b>):<\/p>\n Anlagen mit einem Recordset durchlaufen<\/b><\/p>\n Es gibt noch eine Alternative zum Ermitteln aller in einem Anlagefeld gespeicherten Dateien. Diese kommt im Gegensatz zur vorherigen Version mit nur einem Recordset aus und verwendet nicht den Umweg über die Value<\/b>-Eigenschaft des Field<\/b>-Objekts des Anlagefelds.<\/p>\n Hier benötigen wir nur einen Verweis auf die aktuelle Datenbank sowie auf das zu durchlaufende Recordset, die wir wie folgt deklarieren:<\/p>\n Danach füllen wir db<\/b> mit dem Verweis auf die aktuelle Datenbank: <\/p>\n Der wichtigste Schritt ist der folgende. Wenn die Felder der in einem Anlagefeld gespeicherten Tabelle im Abfrageentwurf und auch in der Feldliste von Formularen und Berichten auftauchen, warum sollen wir dann nicht auch per SQL-Statement darauf zugreifen können Also probieren wir die folgende Abfrage als Quelle für das Recordset<\/b>-Objekt rstAnlagen <\/b>aus:<\/p>\n Dieses können wir fast wie ein herkömmliches Recordset <\/b>durchlaufen. Der einzige Unterschied ist, dass wir nicht mit der Ausrufezeichen-Syntax (rst!Feldname<\/b>) auf die in der Untertabelle enthaltenen Felder zugreifen können, sondern die Fields<\/b>-Eigenschaft mit einem Ausdruck bestücken, der aus dem Namen des Anlagefeldes, dem Punkt und dem Namen des Feldes der untergeordneten Tabelle besteht:<\/p>\n Dateien aus einem Anlagefeld per VBA im Dateisystem speichern<\/b><\/p>\n Gegebenenfalls möchten Sie einmal eine oder mehrere Dateien aus Anlagefeldern im Dateisystem speichern, damit Sie mit anderen Anwendungen darauf zugreifen können.<\/p>\n Die folgenden Code-Schnipsel stammen aus der Prozedur AnlageSpeichern <\/b>des Moduls mdlAnlagen <\/b>der Beispieldatenbank.<\/p>\n Neben den bereits bekannten Variablen brauchen wir hier eine zusätzliche Field2<\/b>-Variable namens fldAnlage <\/b>(beachten Sie die Singular-Form im Vergleich zu fldAnlagen<\/b>: fldAnlagen <\/b>wird später mit einem Verweis auf das Anlagefeld gefüllt, fldAnlage <\/b>verweist auf das Feld mit der eigentlichen Anlage in der im Anlagefeld enthaltenen Tabelle).<\/p>\n Außerdem verwenden wir eine Variable namens strDateiname<\/b>, um den Dateinamen zusammenzusetzen:<\/p>\n db <\/b>und rst <\/b>werden wie gewohnt befüllt: <\/p>\n Dann folgen die beiden ineinander verschachtelten Schleifen zum Durchlaufen der Datensätze der Tabelle tblAnlagen <\/b>und der in ihrem Feld Anlagefeld <\/b>enthaltenen verborgenen Tabelle. In der inneren Schleife setzt die Prozedur aus dem aktuellen Datenbankverzeichnis und der im Feld FileName <\/b>gespeicherten Zeichenkette den Dateinamen zusammen und speichert diesen Ausdruck in der Variablen strDateiname<\/b>. Dann löscht sie eine eventuell vorhandene Datei gleichen Namens (damit dies keinen Fehler auslöst, wenn keine solche Datei vorhanden ist, wird die Fehlerbehandlung deaktiviert). Schließlich schreibt die SaveToFile<\/b>-Methode (eine der Methoden, durch die sich Field2 <\/b>von Field <\/b>unterscheidet) die Datei auf die Festplatte:<\/p>\n Diese Prozedur können Sie als Grundlage für eigene Routinen zum Speichern von Anlagen im Dateisystem verwenden. Sie können diese beispielsweise dahingehend anpassen, dass der Benutzer den Speicherpfad auswählt oder nur die Anlagen des Anlagefelds des aktuellen Datensatzes gespeichert werden.<\/p>\n Dateien aus dem Dateisystem per VBA im Anlagefeld speichern<\/b><\/p>\n Natürlich funktioniert auch der umgekehrte Weg. Hier muss man sich allerdings Gedanken machen, ob die Dateien in einen neuen oder vorhandenen Datensatz geschrieben werden sollen, ob Dateien gleichen Namens vorhandene überschreiben oder ob diese als neue Anlagen im gleichen oder einem neuen Datensatz angehängt werden sollen.<\/p>\n Wir zeigen zunächst an einem einfachen Beispiel, wie das Anhängen einer Datei an ein Anlagefeld grundsätzlich funktioniert. Dabei erzeugen wir einen neuen, leeren Datensatz in der Tabelle tblAnlagen <\/b>und fügen dem Anlagefeld eine erste Datei hinzu. Die nachfolgend auszugsweise beschriebene Prozedur finden Sie im Modul mdlAnlagen <\/b>unter dem Namen DateiInAnlage<\/b>.<\/p>\n Wir benötigen genau die gleichen Variablen wie beim Speichern einer Datei aus einem Anlagefeld auf der Festplatte. Der erste Unterschied findet sich beim Öffnen der Datensatzgruppe. Hier wird als WHERE<\/b>-Bedingung der Ausdruck 1=2 <\/b>verwendet, was nichts anderes bewirkt, als dass wir ein leeres Recordset auf Basis der Tabelle tblAnlagen <\/b>erhalten – schließlich wollen wir nur Daten hinzufügen, aber keine vorhandenen Daten bearbeiten:<\/p>\n Dieser Datensatzgruppe fügen wir einen neuen Datensatz hinzu:<\/p>\n Wie üblich referenzieren wir das Anlagefeld mit einer entsprechenden Objektvariablen und erzeugen ein Recordset auf Basis der hinter diesem Feld verborgenen Tabelle:<\/p>\n Diesem fügen wir nun ebenfalls einen neuen Datensatz hinzu:<\/p>\n Die Objektvariable fldAnlage <\/b>füllen wir mit einem Verweis auf das Feld FileData <\/b>des Anlagen-Recordsets:<\/p>\n Nach dem Zusammensetzen des Dateinamens folgt der Hauptakt – das Einlesen der Datei mit der Methode LoadFromFile<\/b>:<\/p>\n Anschließend aktualisieren wir die Datensatzgruppe des Anlagefeldes, schließen diese und geben die Ressource frei:<\/p>\n Dies erledigen wir auch noch für das Recordset der zugrunde liegenden Tabelle und das Database<\/b>-Objekt:<\/p>\n Anschließend können Sie die neue Datei im Anlagefeld des neuen Datensatzes der Tabelle tblAnlagen <\/b>begutachten.<\/p>\n Wenn Sie Dateien zum Anlagefeld eines bestehenden Datensatzes hinzufügen möchten, stellen Sie den Datensatzzeiger auf den entsprechenden Datensatz ein und versetzen diesen mit der Edit<\/b>-Methode in den Bearbeitungsmodus. Wenn Sie im Anlagefeld eine bestehende Datei überschreiben möchten, setzen Sie auch hier den Datensatzzeiger auf den gewünschten Datensatz und verwenden die LoadFromFile<\/b>-Methode nach dem Aufrufen der Edit<\/b>-Methode. Vergessen Sie auf beiden Ebenen nicht, die änderungen mit der Update-Methode zu speichern.<\/p>\n Flexibles Importieren und Exportieren von Dateien aus dem Anlagefeld per VBA<\/b><\/p>\n Sie haben bereits erkannt, dass es einige Varianten beim Im- und Export von Dateien aus Anlagefeldern gibt. Vor allem beim Hinzufügen von Dateien aus dem Dateisystem in ein Anlagefeld gibt es viele Varianten. Um Ihnen die Arbeit mit dem Anlagefeld zu erleichtern, haben wir Ihnen zwei flexibel einsetzbare Funktionen mitgegeben, mit denen Sie dank einstellbarer Parameter alle wichtigen Aufgaben in Zusammenhang mit dem Im- und Export erledigen können.<\/p>\n Universeller Import von Dateien per VBA<\/b><\/p>\n Die Funktion können Sie universell für das Importieren beliebiger Dateien in Anlagefelder verwenden. Sie erwartet die folgenden Parameter:<\/p>\n Wenn Sie eine Datei in einem neuen Datensatz speichern möchten, verwenden Sie etwa diesen Aufruf:<\/p>\n Zum Anfügen einer Datei in einem vorhandenen Datensatz setzen Sie die folgende Anweisung ab – wobei 2 <\/b>der Primärschlüsselwert des Zieldatensatzes ist:<\/p>\n Schließlich können Sie auch ein Attachment mit einem bestimmten Dateinamen in der Tabelle überschreiben. Auch dies erfordert die Angabe des Datensatzes und zusätzlich den Namen des bereits vorhandenen Attachments:<\/p>\n Die Routine hat übrigens noch ein weiteres Feature, das eine völlig unverständliche Eigenschaft von Anlagefeldern ausschaltet: Und zwar dürfen nur Dateien mit bestimmten Dateiendungen importiert werden. Und das ist wörtlich zu nehmen:<\/p>\n Der Inhalt der Datei spielt keine Rolle, Sie brauchen die Datei nur vor dem Speichern im Anlagefeld umzubenennen und dies anschließend wieder rückgängig zu machen. Und genau das macht diese Funktion auch, indem sie den beim Speichern einer Datei mit einer nicht erlaubten Dateiendung auftretenden Fehler entsprechend behandelt. Den Quellcode der Funktion finden Sie, mit einigen Kommentaren versehen, in Listing 1. <\/p>\n Listing 1: Flexibles Speichern von Dateien im Anlagefeld<\/p>\n Universeller Export von Dateien<\/b><\/p>\n Für den umgekehrten Weg gibt es ebenfalls eine passende und universell einsetzbare Funktion namens DateiAusAnlage<\/b> (s. Listing 2). Der Grund, warum die Datei wesentlich kompakter ist als die zum Importieren von Dateien, ist folgender: Die Routine greift direkt mit einer geeigneten SQL-Abfrage auf die in der Untertabelle des Anlagefeldes enthaltenen Felder zu.<\/p>\n Die Parameter sind weitgehend mit denen der vorherigen Funktion identisch. Auch der Export mit der Methode SaveToFile <\/b>prüft die Dateiendung, weshalb auch hier ein Workaround eingebaut ist. Die Funktion erwartet die folgenden Parameter:<\/p>\n Der Aufruf der Funktion sieht etwa wie folgt aus:<\/p>\n In diesem Fall wird die erste Datei im Anlagefeld Anlagefeld <\/b>des Datensatzes mit dem Wert 1<\/b> im Primärschlüsselfeld AnlagebeispielID <\/b>der Tabelle tblAnlagen <\/b>unter dem Namen text.ico <\/b>im Verzeichnis der aktuellen Datenbank gespeichert. Wenn das betroffene Anlagefeld mehr als eine Datei enthielte, würde dieser Aufruf die erste Datei der Liste im Dateisystem speichern. Wenn Sie den Namen der Datei kennen, können Sie diesen als zusätzlichen Parameter angeben.<\/p>\n Zusammenfassung und Ausblick<\/p>\n Mit dem Anlagefeld speichern Sie Dateien ganz leicht in Access-Tabellen. Darüber hinaus können Sie darin gespeicherte Bilder problemlos mit dem passenden Anlage-Steuerelement in Formularen und Berichten anzeigen. Durch die Möglichkeit, mehrere Dateien in einem einzigen Anlagefeld zu speichern, ist dieser Datentyp scheinbar flexibel; wer es mit den Normalformen seines Datenmodells aber ernst meint, speichert nicht mehr als eine Datei in einem Anlagefeld und legt stattdessen eine eigene Tabelle zum Verwalten der Anhänge an, die er per 1:n-Beziehung mit der entsprechenden Basistabelle verknüpft.<\/p>\n Neben den Bedienungsgrundlagen des Anlage-Steuerelements liefert dieser Beitrag viele Codebeispiele für den Zugriff per VBA. Damit sollten alle Tätigkeiten rund um Anlagen zu erledigen sein.<\/p>\n Listing 2: Speichern von Anlagen im Dateisystem<\/p>\n<\/td>\n<\/tr>\n Enthaltene Beispieldateien:<\/p>\n Anlagefelder.accdb<\/p>\n![\"pic002.png\"](\"..\/fileadmin\/_temp_\/2010_01\/Anlagefelder-web-images\/pic002_opt.jpeg\")
<\/p>\n![\"pic003.png\"](\"..\/fileadmin\/_temp_\/2010_01\/Anlagefelder-web-images\/pic003_opt.jpeg\")
<\/p>\n![\"pic006.png\"](\"..\/fileadmin\/_temp_\/2010_01\/Anlagefelder-web-images\/pic006_opt.jpeg\")
<\/p>\n![\"pic004.png\"](\"..\/fileadmin\/_temp_\/2010_01\/Anlagefelder-web-images\/pic004_opt.jpeg\")
<\/p>\n![\"pic005.png\"](\"..\/fileadmin\/_temp_\/2010_01\/Anlagefelder-web-images\/pic005_opt.jpeg\")
<\/p>\n![\"pic007.png\"](\"..\/fileadmin\/_temp_\/2010_01\/Anlagefelder-web-images\/pic007_opt.jpeg\")
<\/p>\n![\"pic008.png\"](\"..\/fileadmin\/_temp_\/2010_01\/Anlagefelder-web-images\/pic008_opt.jpeg\")
<\/p>\n![\"pic009.png\"](\"..\/fileadmin\/_temp_\/2010_01\/Anlagefelder-web-images\/pic009_opt.jpeg\")
<\/p>\n![\"pic010.png\"](\"..\/fileadmin\/_temp_\/2010_01\/Anlagefelder-web-images\/pic010_opt.jpeg\")
<\/p>\n![\"pic011.png\"](\"..\/fileadmin\/_temp_\/2010_01\/Anlagefelder-web-images\/pic011_opt.jpeg\")
<\/p>\n![\"pic014.png\"](\"..\/fileadmin\/_temp_\/2010_01\/Anlagefelder-web-images\/pic014_opt.jpeg\")
<\/p>\n![\"pic012.png\"](\"..\/fileadmin\/_temp_\/2010_01\/Anlagefelder-web-images\/pic012_opt.jpeg\")
<\/p>\n![\"pic013.png\"](\"..\/fileadmin\/_temp_\/2010_01\/Anlagefelder-web-images\/pic013_opt.jpeg\")
<\/p>\n\n
![\"pic015.png\"](\"..\/fileadmin\/_temp_\/2010_01\/Anlagefelder-web-images\/pic015_opt.jpeg\")
<\/p>\n![\"pic016.png\"](\"..\/fileadmin\/_temp_\/2010_01\/Anlagefelder-web-images\/pic016_opt.jpeg\")
<\/p>\n![\"pic017.png\"](\"..\/fileadmin\/_temp_\/2010_01\/Anlagefelder-web-images\/pic017_opt.jpeg\")
<\/p>\n![\"pic018.png\"](\"..\/fileadmin\/_temp_\/2010_01\/Anlagefelder-web-images\/pic018_opt.jpeg\")
<\/p>\nDim db As DAO.Database\r\nDim rst As DAO.Recordset2\r\nDim fld As DAO.Field2\r\nDim rstAnlagen As DAO.Recordset2\r\nDim fldAnlagen As DAO.Field2<\/pre>\n
Set db = CurrentDb\r\nSet rst = db.OpenRecordset("SELECT * FROM\r\ntblAnlagen", dbOpenDynaset)\r\nSet fld = rst!Anlagefeld<\/pre>\nSet rstAnlagen = fld.Value<\/pre>\n
For Each fldAnlagen In rstAnlagen.Fields\r\n Debug.Print fldAnlagen.Name, fldAnlagen.Type\r\nNext fldAnlagen<\/pre>\n
FileData 11 ''dbLongBinary\r\nFileFlags 4 ''dbLong\r\nFileName 10 ''dbText\r\nFileTimeStamp 8 ''dbDate\r\nFileType 10 ''dbText\r\nFileURL 12 ''dbMemo<\/pre>\n
Debug.Print fldAnlagen.Name, fldAnlagen.Value<\/pre>\n
Do While Not rst.EOF\r\n Set rstAnlagen = fld.Value\r\n Do While Not rstAnlagen.EOF\r\n With rstAnlagen\r\n Debug.Print !FileName, !FileType\r\n End With\r\n rstAnlagen.MoveNext\r\n Loop\r\n rst.MoveNext\r\nLoop<\/pre>\n
Dim db As DAO.Database\r\nDim rstAnlagen As DAO.Recordset2<\/pre>\n
Set db = CurrentDb<\/pre>\n
Set rstAnlagen = db.OpenRecordset("SELECT\r\nAnlagebeispielID, Anlagefeld.FileName,\r\nAnlagefeld.FileType FROM tblAnlagen",\r\ndbOpenDynaset)<\/pre>\nDo While Not rstAnlagen.EOF\r\n With rstAnlagen\r\n Debug.Print\r\n .Fields("Anlagefeld.FileName"),\r\n .Fields("Anlagefeld.FileType")\r\n End With\r\n rstAnlagen.MoveNext\r\nLoop<\/pre>\nDim db As DAO.Database\r\nDim rst As DAO.Recordset\r\nDim fldAnlagen As DAO.Field2\r\nDim rstAnlagen As DAO.Recordset2\r\nDim strDateiname As String\r\nDim fldAnlage As DAO.Field2<\/pre>\n
Set db = CurrentDb\r\nSet rst = db.OpenRecordset("SELECT * FROM\r\ntblAnlagen", dbOpenDynaset)<\/pre>\nDo While Not rst.EOF\r\n Set fldAnlagen = rst!Anlagefeld\r\n Set rstAnlagen = fldAnlagen.Value\r\n Do While Not rstAnlagen.EOF\r\n strDateiname = CurrentProject.Path\r\n & "\\" & rstAnlagen!FileName\r\n Set fldAnlage = rstAnlagen!FileData\r\n On Error Resume Next\r\n Kill strDateiname\r\n On Error GoTo 0\r\n fldAnlage.SaveToFile strDateiname\r\n rstAnlagen.MoveNext\r\n Loop\r\n rst.MoveNext\r\nLoop<\/pre>\n
Set rst = db.OpenRecordset("SELECT *\r\nFROM tblAnlagen WHERE 1=2", dbOpenDynaset)<\/pre>\nrst.AddNew<\/pre>\n
Set fldAnlagen = rst!Anlagefeld\r\nSet rstAnlagen = fldAnlagen.Value<\/pre>\n
rstAnlagen.AddNew<\/pre>\n
Set fldAnlage = rstAnlagen!FileData<\/pre>\n
strDateiname = CurrentProject.Path & "\\add2.ico"\r\nfldAnlage.LoadFromFile strDateiname<\/pre>\n
rstAnlagen.Update\r\nrstAnlagen.Close\r\nSet rstAnlagen = Nothing<\/pre>\n
rst.Update\r\nrst.Close\r\nSet rst = Nothing\r\nSet db = Nothing<\/pre>\n
\n
AnlageAusDatei(CurrentProject.Path & "\\add2.ico", "tblAnlagen", "Anlagefeld")<\/pre>\n
AnlageAusDatei CurrentProject.Path & "\\address_book_delete.ico", "tblAnlagen", "Anlagefeld", True, "AnlagebeispielID", 1<\/pre>\n
AnlageAusDatei CurrentProject.Path & "\\address_book_delete.ico", "tblAnlagen", "Anlagefeld", True,"AnlagebeispielID",1,"address_book_delete.ico"<\/pre>\n
Function AnlageAusDatei(strDatei As String, strTabelle As String, strAnlagefeld As String, _\r\n Optional bolBearbeiten As Boolean, Optional strPrimaerschluesselfeld As String, _\r\n Optional varPrimaerschluesselwert As Variant, Optional strAnlagename As String) As Boolean\r\n Dim fldAnlage As DAO.Field2\r\n Dim rst As DAO.Recordset2\r\n Dim rstAnlagen As DAO.Recordset2\r\n On Error GoTo ErrHandler\r\n Set rst = CurrentDb.OpenRecordset("SELECT * FROM [" & strTabelle & "]", dbOpenDynaset)\r\n If bolBearbeiten Then\r\n If IsNull(varPrimaerschluesselwert) Then Err.Raise vbObjectError + 1, , "Keine Datensatz-ID angegeben!"\r\n rst.FindFirst "CStr([" & strPrimaerschluesselfeld & "])=''" & CStr(varPrimaerschluesselwert) & "''"\r\n If rst.NoMatch Then Err.Raise vbObjectError + 2, , _\r\n "Datensatz mit ID " & varPrimaerschluesselwert & " nicht gefunden!"\r\n rst.Edit\r\n Else\r\n rst.AddNew\r\n End If\r\n Set rstAnlagen = rst(strAnlagefeld).Value\r\n If bolBearbeiten Then\r\n If rstAnlagen.EOF Then ''Fall 1: Es gibt noch keine Anlagen; > neue Anlage\r\n rstAnlagen.AddNew\r\n Else ''Fall2: Es gibt keine Anlage mit dem Namen in sAttachment: > ''neue Anlage\r\n If Len(strAnlagename) = 0 Then\r\n strAnlagename = Mid(strDatei, InStrRev(strDatei, "\\") + 1)\r\n End If\r\n rstAnlagen.FindFirst "[FileName]=''" & strAnlagename & "''"\r\n If rstAnlagen.NoMatch Then\r\n rstAnlagen.AddNew\r\n Else ''Fall3: Anlage gefunden; dann editieren\r\n rstAnlagen.Edit\r\n End If\r\n End If\r\nElse\r\n rstAnlagen.AddNew\r\nEnd If\r\nSet fldAnlage = rstAnlagen.Fields!FileData\r\nOn Error Resume Next\r\nfldAnlage.LoadFromFile strDatei\r\nIf Err.Number = -2146697202 Then ''Unerlaubte Dateiendung! Spezialbehandlung...\r\nOn Error GoTo ErrHandler\r\nName strDatei As strDatei & ".dat" ''Unerlaubte Endung in ".dat" ändern\r\nfldAnlage.LoadFromFile strDatei & ".dat" ''Datei laden\r\nName strDatei & ".dat" As strDatei ''Umbenennung rückgängig machen\r\nrstAnlagen.Fields!FileName = Mid(strDatei, InStrRev(strDatei, "\\") + 1) ''Anlagename setzen\r\nrstAnlagen.Update\r\nElse\r\nOn Error GoTo ErrHandler\r\nrstAnlagen.Update\r\nEnd If\r\nrst.Update\r\nAnlageAusDatei = True ''Rückgabe True = Alles ok.\r\n''... Restarbeiten, Fehlerbehandlung - aus Platzgründen nicht abgedruckt\r\nEnd Function<\/pre>\n\n
DateiAusAnlage "tblAnlagen", "Anlagefeld", "AnlagebeispielID", 1, CurrentProject.Path & "\\test.ico"<\/pre>\n
\n\n
\n \n \n \n Function DateiAusAnlage(strTabelle As String, strAnlagefeld As String, strPrimaerschluesselfeld As String, _\r\n varPrimaerschluesselwert As Variant, strDatei As String, Optional strAnlage As String = "*") As Boolean\r\n Dim db As DAO.Database\r\n Dim rstAnlagen As DAO.Recordset2\r\n On Error GoTo ErrHandler\r\n Set db = CurrentDb\r\n Set rstAnlagen = db.OpenRecordset("SELECT [" & strAnlagefeld & "].FileData FROM " & strTabelle & " WHERE [" _\r\n & strPrimaerschluesselfeld & "]=" & varPrimaerschluesselwert & " AND [" & strAnlagefeld _\r\n & "].FileName LIKE ''" & strAnlage & "''", dbOpenSnapshot)\r\n If rstAnlagen.EOF Then\r\n Err.Raise vbObjectError + 3, "DateiAusAnlage", "Das Anlagefeld ist leer."\r\n End If\r\n If Dir(strDatei) <> "" Then\r\n Kill strDatei\r\n DoEvents\r\n End If\r\n ''Fehlerbehandlung ausschalten, da nachfolgende Zeile\r\n ''gegebenenfalls Fehler bei blockierten Dateiendungen erzeugt\r\n On Error Resume Next\r\n rstAnlagen(0).SaveToFile strDatei\r\n If Err.Number = (-2146697202) Then\r\n ''Spezialbehandlung: Datei wird mit Endung .dat versehen, was erlaubte Endung ist. Anschließend wird\r\n ''wiederhergestellte Datei wieder korrekt umbenannt\r\n rstAnlagen(0).SaveToFile strDatei & ".dat"\r\n DoEvents\r\n Name strDatei & ".dat" As strDatei\r\n End If\r\n DateiAusAnlage = True\r\n ''... Restarbeiten und Fehlerbehandlung aus Platzgründen nicht abgedruckt\r\n End Function<\/pre>\n<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\nDownloads zu diesem Beitrag<\/h3>\n