<\/p>\n
Mit den Anlagefeldern hat Microsoft unter Access 2007 eine Möglichkeit zum Speichern von Dateien in Tabellenfeldern eingeführt, die etwas einfacher zugänglich ist als das bis dahin für solche Zwecke verwendete OLE-Feld. Leider fehlt noch eine Möglichkeit, einfach per Drag and Drop eine Datei aus dem Windows Explorer in ein Anlagefeld einer Tabelle zu ziehen. Dieser Beitrag zeigt, wie Sie ein solches Feature nachträglich hinzufügen können.<\/b><\/p>\n
Anlagefelder sind eigentlich eine prima Sache: Sie können ganz einfach über die Benutzeroberfläche Dateien hinzufügen und darauf ins Dateisystem übertragen. Auch ein öffnen der Dateien direkt aus dem Anlagefeld heraus ist möglich. Allerdings ist der Zugriff auf die enthaltenen Dateien mitunter etwas mühselig.<\/p>\n
Immerhin müssen Sie zunächst auf das Anlage-Steuerelement klicken und dann auf das erscheinende Menü, um überhaupt erst die Liste der enthaltenen Dateien anzuzeigen (s. Bild 1).<\/p>\n
![\"öffnen](\"..\/fileadmin\/_temp_\/2015_06\/pic_1012_002.png\")
<\/p>\n
Bild 1: öffnen des Dialogs zum Verwalten von Anlagen<\/span><\/b><\/p>\n Dort erwartet Sie dann ein Dialog, der die im Anlagefeld enthaltenen Anlagen anzeigt und verschiedene Möglichkeiten bietet, zum Beispiel zum Hinzufügen, Entfernen oder öffnen einer der im Anlagefeld gespeicherten Dateien (s. Bild 2).<\/p>\n Bild 2: Dialog zum Verwalten von Anlagen<\/span><\/b><\/p>\n Was hier für einige Anwendungen fehlen dürfte, ist eine Möglichkeit, mal eben eine Datei aus dem Windows Explorer auf ein Steuerelement zu ziehen und so die Datei im Anlagefeld zu speichern. Das stellen wir uns etwa wie in Bild 3 vor.<\/p>\n Bild 3: Formular mit Drag-and-Drop-Ziel für das Anlagefeld<\/span><\/b><\/p>\n Hier wählen wir komfortabel die Zieltabelle und das darin enthaltene Anlagefeld aus. Das Listenfeld darunter zeigt alle Datensätze der Tabelle an. Hier markieren Sie den Datensatz, dem Sie eine Datei hinzufügen möchten. Dann ziehen Sie die gewünschte Datei aus dem Windows Explorer einfach auf das darunter befindliche ListView<\/b>-Steuerelement. Das erfolgreiche Speichern wird noch durch eine kurze Meldung bestätigt.<\/p>\n Das Formular der Beispieldatenbank heißt frmDragAndDrop <\/b>und soll zeigen, wie Sie Dateien flexibel in beliebige Anlagefelder hineinziehen können. Dies ist erstens sinnvoll, weil Sie so die relevanten Codezeilen leicht anpassen können, zweitens können Sie das Formular gleich nutzen, wenn Sie einem Anlagefeld einer beliebigen Tabelle Dateien hinzufügen möchten.<\/p>\n In der Entwurfsansicht sieht das Formular wie in Bild 4 aus. Im oberen Bereich finden Sie die beiden Kombinationsfelder, mit denen Sie die Zieltabelle und das darin enthaltene Anlagefeld auswählen können. Darunter befindet sich ein Listenfeld, das die Inhalte der ersten vier Felder der gewählten Tabelle anzeigt.<\/p>\n Bild 4: Das Formular mit dem Drag-and-Drop-Ziel in der Entwurfsansicht<\/span><\/b><\/p>\n Hier können Sie festlegen, zu welchem Datensatz die Anlage hinzugefügt werden soll. Schließlich folgt das wichtigste Steuerelement – das ListView<\/b>-Steuerelement, das als Drag-and-Drop-Ziel dient.<\/p>\n Warum ausgerechnet ein ListView<\/b>-Steuerelement Nun: Dieses bietet im Gegensatz zu den Standardsteuerelementen von Access die Möglichkeit, auf Drag-and-Drop-Ereignisse zu reagieren und diese zu implementieren.<\/p>\n Das Kombinationsfeld cboTabellen <\/b>erhält als Datenherkunft die folgende Abfrage:<\/p>\n Diese liefert alle Einträge der Systemtabelle MSysObjects<\/b>, deren Feld Type <\/b>den Wert 1 <\/b>enthält (für lokale Access-Tabellen) und deren Feld Name <\/b>nicht mit MSys…<\/b>, F_…<\/b> oder ~…<\/b> beginnt. Erstere sind die Systemtabellen, Letztere für den internen Gebrauch verwendete Tabellen.<\/p>\n Nach der Auswahl soll das zweite Kombinationsfeld die Felder der gewählten Tabelle anzeigen.<\/p>\n Dazu legen wir für cboTabellen <\/b>eine Ereignisprozedur an, die durch das Ereignis Nach Aktualisierung <\/b>ausgelöst wird:<\/p>\n Die erste Anweisung stellt die Datensatzherkunft des Kombinationsfeldes zur Anzeige der Felder auf den Wert des ersten Kombinationsfeldes ein, also den Namen der Tabelle.<\/p>\n Die zweite legt die gleiche Tabelle als Datensatzherkunft des Listenfeldes lstDatensaetze <\/b>zur Anzeige der enthaltenen Daten fest. Damit das zweite Kombinationsfeld nach der Angabe eines Tabellennamens als Datensatzherkunft auch die enthaltenen Felder anzeigt, stellen Sie zuvor noch die Eigenschaft Herkunftsart<\/b> auf den Wert Feldliste <\/b>ein (s. Bild 5).<\/p>\n <\/p>\n Bild 5: Einstellen der Herkunftsart für das Kombinationsfeld cboFelder<\/span><\/b><\/p>\n Fehlen noch einige Einstellungen für das ListView<\/b>-Steuerelement. Diese nehmen wir gleich beim öffnen des Formulars in der Ereignisprozedur Beim Laden <\/b>vor.<\/p>\n Diese Prozedur aus Listing 1 deklariert zunächst eine Variable des Datentyps ColumnHeader<\/b>. Dieses benötigen wir gleich, um eine Referenz auf ein neu angelegtes Objekt dieses Typs zu speichern. Das ListView<\/b>-Element enthält nämlich nicht automatisch Spalten und somit auch keine Spaltenköpfe.<\/p>\n Listing 1: Einstellen des ListView-Steuerelements beim öffnen des Formulars<\/span><\/b><\/p>\n Nachdem die Prozedur eventuell noch vorhandene Spaltenköpfe mit der Clear<\/b>-Anweisung gelöscht hat, legt sie mit der Add<\/b>-Methode der ColumnHeaders<\/b>-Auflistung des ListView<\/b>-Steuerelements ctlListView <\/b>einen neuen Spaltenkopf an und legt über den dritten Parameter dieser Methode die Spaltenbeschriftung fest. Im Grunde benötigen wir ja gar keine Spalten, aber wir wollen im ListView<\/b>-Steuerelement die Beschriftung Dateien hierher ziehen: unterbringen, damit der Benutzer weiß, was er mit dem ListView<\/b>-Steuerelement anfangen kann.<\/p>\n In der folgenden Anweisung stellen wir die Spaltenbreite für die neu erstellte und in der Variablen objColumnheader <\/b>gespeicherten Spalte auf einen Wert ein, der etwas kleiner ist als die Breite des ListView<\/b>-Steuerelements selbst. Schließlich legen wir noch die Ansicht auf lvwReport <\/b>fest, damit der Spaltenkopf überhaupt erscheint, und stellen OLEDropMode <\/b>auf ccOLEDropManual <\/b>ein, damit wir das Ereignis für das Droppen von Elementen selbst programmieren können.<\/p>\n Die ListItems.Clear<\/b>-Methode leert die Liste, falls diese aus irgendwelchen Gründen einen Eintrag enthalten sollte. Damit finden Sie das Formular in der Entwurfsansicht auch wie in der eingangs dargestellten Abbildung vor.<\/p>\n Wenn der Benutzer eine Datei über dem ListView<\/b>-Steuerelement fallen lässt, löst dies das Ereignis OLEDragDrop <\/b>aus. Dieses Ereignis können Sie nicht, wie bei den eingebauten Access-Steuerelementen üblich, über das Eigenschaftsfenster des Steuerelements anlegen. Stattdessen öffnen Sie direkt das Klassenmodul des Formulars. Wählen Sie dort im linken Kombinationsfeld im oberen Bereich den Wert ctlListView <\/b>aus und im rechten OLEDragDrop<\/b>. Der VBA-Editor legt nun die gewünschte Ereignisprozedur an.<\/p>\n Diese müssen Sie nun nur noch wie in Listing 2 auffüllen. Die Prozedur erwartet einen für uns wichtigen Parameter, nämlich Data<\/b>. Dieses liefert eine Verweis auf das Objekt, das per Drag and Drop über dem ListView<\/b>-Steuerelement fallen gelassen wurde.<\/p>\n Listing 2: Ereignis, das beim Fallenlassen einer Datei über dem ListView-Steuerelement ausgelöst wird<\/span><\/b><\/p>\n Data <\/b>kann eines oder mehrere Objekte enthalten. Deshalb durchlaufen wir in einer For Each<\/b>-Schleife alle Einträge der Files<\/b>-Auflistung des Data<\/b>-Objekts. Dabei landet der Dateiname jeweils in der Variablen varDateipfad<\/b>.<\/p>\n Die Funktion GetFormat <\/b>des Data<\/b>-Objekts prüft, ob das Format der aktuellen Datei einem bestimmten Wert entspricht – in diesem Fall ccDFFiles <\/b>für eine Datei.<\/p>\n Ist dies der Fall, ruft die Prozedur die Routine DateiSpeichern <\/b>auf und übergibt dieser den Dateinamen aus der Variablen varDateipfad<\/b>.<\/p>\n Fehlt noch die Prozedur DateiSpeichern<\/b>, die den Dateinamen als Parameter entgegennimmt (s. Listing 3). Diese ermittelt zunächst mit der Funktion GetSinglePrimaryKey <\/b>den Primärschlüssel der Tabelle (siehe Artikel Primärschlüsselfelder ermitteln<\/b>, www.access-im-unternehmen.de\/1004<\/b>).<\/p>\n Listing 3: Speichern einer Datei im Anlagefeld<\/span><\/b><\/p>\n Anschließend liest die Prozedur die Daten der in cboTabellen <\/b>angegebenen Tabelle in ein Recordset ein, wobei der Primärschlüsselwert dem Wert der gebundenen Spalte des aktuell in lstDatensaetze <\/b>markierten Eintrags entsprechen muss.<\/p>\n Die folgende Anweisung startet die Bearbeitung dieses Datensatzes, die übernächste weist dem Recordset2<\/b>-Objekt den Inhalt des Feldes aus cboFelder <\/b>zu – also den Inhalt des Anlagefeldes. Zur Erläuterung: Anlagefelder enthalten immer ein Recordset mit je einem Datensatz für jede gespeicherte Anlage.<\/p>\n Dies wird auch deutlich, wenn Sie einmal eine Tabelle mit einem Anlagefeld in den Entwurf einer Abfrage ziehen – dort finden Sie versetzt zum Anlagefeld weitere Felder (s. Bild 6). Dies sind die Felder der verknüpften, internen Tabelle, welche die eigentlichen Datensätze mit den Anlagen speichert. Die Tabelle enthält die Felder FileData<\/b>, FileName <\/b>und FileType<\/b>. FileData<\/b> ist das Feld, das die Datei selbst enthält.<\/p>\n Bild 6: Felder des Recordsets eines Anlagefeldes<\/span><\/b><\/p>\n Wie in der Prozedur können Sie nun über die Value<\/b>-Eigenschaft des Anlagefeldes ein Recordset erstellen, das die verknüpfte Tabelle mit den Anlagedaten enthält. Diesem Recordset fügen wir nun einen neuen Datensatz hinzu. Das Feld FileData <\/b>referenzieren wir mit der Objektvariablen fld <\/b>des Typs Field2<\/b>. Dieses bietet wiederum die Methode LoadFromFile <\/b>an, welche die als Parameter angegebene Datei in das Anlagefeld lädt. Um die änderungen zu speichern, rufen Sie erst die Update<\/b>-Methode des Recordsets für das Anlagefeld auf und dann die Update<\/b>-Methode für das Recordset auf Basis der Tabelle.<\/p>\n Mit der in diesem Beitrag vorgestellten Technik können Sie Dateien aus dem Windows Explorer per Drag and Drop auf ein ListView<\/b>-Steuerelement in einem Anlagefeld speichern. Das Beispiel in diesem Beitrag erlaubt es, die Tabelle und das Anlagefeld, das als Ziel verwendet werden soll, zur Laufzeit auszuwählen.<\/p>\n Die Lösung setzt voraus, dass die Tabelle mit dem Anlagefeld nur einen einfachen, aber keinen zusammengesetzten Primärschlüssel verwendet und dass diese das erste Feld der Tabelle ist – nur so wird dieses als erste und somit gebundene Spalte des Listenfeldes angezeigt, das zur Auswahl des Zieldatensatzes verwendet wird.<\/p>\n In einem weiteren Beitrag zeigen wir, wie Sie die Lösung zum Hinzufügen und Verwalten der Inhalte von Anlagefeldern nutzen können. Dort sollen auch die bereits gespeicherten Dateien in einem ListView<\/b>-Steuerelement angezeigt werden.<\/p>\n Diese können Sie dann über ein Kontextmenü oder dafür vorgesehene Schaltflächen löschen, öffnen oder im Dateisystem speichern (Inhalte von Anlagefeldern verwalten<\/b>, www.access-im-unternehmen.de\/1013<\/b>).<\/p>\n Enthaltene Beispieldateien:<\/p>\n DragAndDrop.accdb<\/p>\n![\"Dialog](\"..\/fileadmin\/_temp_\/2015_06\/pic_1012_003.png\")
<\/p>\n![\"Formular](\"..\/fileadmin\/_temp_\/2015_06\/pic_1012_001.png\")
<\/p>\nFormular für Drag und Drop<\/h2>\n
![\"Das](\"..\/fileadmin\/_temp_\/2015_06\/pic_1012_004.png\")
<\/p>\nTabelle und Feld auswählen<\/h2>\n
SELECT Name FROM MSysObjects WHERE Type = 1 \r\nAND NOT Name LIKE ''MSys*'' AND NOT Name LIKE ''~*'' \r\nAND NOT Name LIKE ''f_*'' ORDER BY Name;<\/pre>\n
Private Sub <\/span>cboTabellen_AfterUpdate()\r\n Me!cboFelder.RowSource = Me!cboTabellen\r\n Me!lstDatensaetze.RowSource = Me!cboTabellen\r\nEnd Sub<\/span><\/pre>\n![\"Einstellen](\"..\/fileadmin\/_temp_\/2015_06\/pic_1012_005.png\")
<\/p>\nPrivate Sub <\/span>Form_Load()\r\n Dim <\/span>objColumnheader As <\/span>MSComctlLib.ColumnHeader\r\n With<\/span> Me!ctlListview\r\n .ColumnHeaders.Clear\r\n Set<\/span> objColumnheader = .ColumnHeaders.Add(, , \"Dateien hierher ziehen:\")\r\n objColumnheader.Width = Me!ctlListview.Width - 100\r\n .View = lvwReport\r\n .OLEDropMode = ccOLEDropManual\r\n .ListItems.Clear\r\n End With<\/span>\r\nEnd Sub<\/span><\/pre>\nDrop-Ereignis<\/h2>\n
Private Sub <\/span>ctlListview_OLEDragDrop(Data As Object<\/span>, Effect As Long<\/span>, _\r\n Button As Integer<\/span>, Shift As Integer<\/span>, x As Single<\/span>, y As Single<\/span>)\r\n Dim <\/span>varDateipfad As Variant<\/span>\r\n Dim <\/span>strDateiname As String<\/span>\r\n If <\/span>Data.GetFormat(ccCFFiles) Then<\/span>\r\n For Each varDateipfad In Data.Files\r\n DateiSpeichern CStr(varDateipfad)\r\n MsgBox<\/span> \"Datei hinzugefügt.\"\r\n Next<\/span>\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nDatei im Anlagefeld speichern<\/h2>\n
Private Sub <\/span>DateiSpeichern(strDateiname As String<\/span>)\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n Dim <\/span>fld As <\/span>DAO.Field2\r\n Dim <\/span>rstDateien As <\/span>DAO.Recordset2\r\n Dim <\/span>strPK As String<\/span>\r\n strPK = GetSinglePrimaryKey(Me!cboTabellen)\r\n Set<\/span> db = CurrentDb\r\n Set<\/span> rst = db.OpenRecordset(\"SELECT * FROM \" & Me!cboTabellen & \" WHERE \" & strPK _\r\n & \" = \" & Me!lstDatensaetze, dbOpenDynaset)\r\n rst.Edit\r\n Set<\/span> rstDateien = rst.Fields(Me!cboFelder).Value\r\n rstDateien.AddNew<\/span>\r\n Set<\/span> fld = rstDateien.Fields(\"FileData\")\r\n fld.LoadFromFile strDateiname\r\n rstDateien.Update\r\n rst.Update\r\nEnd Sub<\/span><\/pre>\n![\"Felder](\"..\/fileadmin\/_temp_\/2015_06\/pic_1012_006.png\")
<\/p>\nZusammenfassung und Ausblick<\/h2>\n
Downloads zu diesem Beitrag<\/h3>\n