<\/p>\n
Anlagefelder sind eine prima Möglichkeit, um Dateien in Access-Tabellen zu speichern. Im Gegen-satz zu OLE-Feldern stehen dazu sogar geeignete Elemente in der Benutzeroberfläche zur Ver-fügung. Diese sind allerdings nicht besonders ausgereift – so kann man nicht direkt im For-mu-lar die in einem Anlagefeld gespeicherten Elemente anzeigen oder neue hinzufügen. Dieser Beitrag zeigt, wie Sie ein Formular um diese Möglichkeit erweitern. Dabei fügen wir auch gleich die im Beitrag Drag and Drop im Anlagefeld vorgestellte Technik hinzu.<\/b><\/p>\nBeispieltabelle<\/h2>\n
Als Beispiel nutzen wir eine Tabelle namens tblProjekte<\/b>, die neben dem Primärschlüsselfeld und der Projektbezeichnung nur ein Anlagefeld namens Dateien <\/b>zum Speichern projektrelevanter Dateien enthält. Dies ist natürlich stark vereinfacht, aber es soll ja auch nur ein Beispiel sein. Bild 1 zeigt die Entwurfsansicht der Tabelle tblProjekte<\/b>.<\/p>\n
![\"Tabelle](\"..\/fileadmin\/_temp_\/2015_06\/pic_1013_001.png\")
<\/p>\n
Bild 1: Tabelle mit Anlagefeld<\/span><\/b><\/p>\n Das Formular zum Verwalten der Anlagen im Anlagefeld Dateien<\/b> der Tabelle tblProjekte <\/b>verwendet natürlich die Tabelle tblProjekte <\/b>als Datenherkunft<\/b> (s. Bild 2).<\/p>\n Bild 2: Formular zum Verwalten von Anlagefeld-Inhalten<\/span><\/b><\/p>\n Dabei soll sie den Inhalten der beiden Felder Projekt-ID <\/b>und Projektbezeichung <\/b>in entsprechenden Textfeldern anzeigen. Die im Anlagefeld gespeicherten Anlagen sollen in einem ListView<\/b>-Steuerelement erscheinen. Drei Schaltflächen stellen die Funktionen zum Löschen, öffnen und Speichern der aktuell markierten Anlage im ListView<\/b>-Steuerelement bereit. Als Gimmick soll ein Anlage-Steuerelement im rechten Bereich auch noch die aktuell im Listenfeld markierte Anlage anzeigen. Im Falle einiger Dateien erscheint dann die Vorschau, wie in der Abbildung etwa für eine Bilddatei. Dateien können per Drag and Drop zum ListView<\/b>-Steuerelement hinzugefügt werden. Eine neu hinzugefügte Datei wird gleich markiert und im Anlage-Steuerelement angezeigt.<\/p>\n Zu den Einträgen des ListView<\/b>-Steuerelements haben wir noch jeweils drei Kontextmenü-Befehle hinzugefügt, und zwar Löschen<\/b>, öffnen <\/b>und Speichern unter <\/b>(s. Bild 3).<\/p>\n Bild 3: Kontextmenü mit den Anlagen-spezifischen Befehlen<\/span><\/b><\/p>\n Das Formular sieht im Entwurf wie in Bild 4 aus. Hier können Sie erkennen, dass sich das Anlage-Steuerelement nicht direkt im Hauptformular befindet, sondern in ein Unterformular eingebettet ist. Dies haben wir so gemacht, weil wir ja das Anlagen-Feld der Datenherkunft nicht so an ein Anlagen-Steuerelement binden können, dass jeweils der Inhalt einer speziellen Anlage angezeigt wird. Wie dies technisch gelöst ist, schauen wir uns jedoch weiter unten an.<\/p>\n Bild 4: Das Formular frmAnlagefeldVerwalten in der Entwurfsansicht<\/span><\/b><\/p>\n Beim Laden des Formulars sind zunächst einige Schritte zur Konfiguration des ListView<\/b>-Steuerelements nötig. Dies erledigen wir in der Ereignisprozedur Beim Laden <\/b>(s. Listing 1).<\/p>\n Listing 1: Vorbereitungen, die beim Laden des Formulars durchgeführt werden<\/span><\/b><\/p>\n Die Prozedur leert eventuell vorhandene Spaltenköpfe im ListView<\/b>-Steuerelement und fügt dann einen neuen Spaltenkopf mit dem Text Dateien hierher ziehen <\/b>hinzu. Die Breite dieses Elements stellt sie auf die Breite des Steuerelements minus 350 ein. Dies sorgt dafür, dass die einzige Spalte auch beim Einblenden der vertikalen Bildlaufleiste noch vollständig sichtbar ist und keine horizontale Bildlaufleiste eingeblendet werden muss. Dann stellt sie die Ansicht auf lvwReport <\/b>ein und legt die Schriftart und Schriftgröße so fest, dass diese zur Schrift der übrigen Steuerelemente passt. Der Wert ccFlat <\/b>für die Eigenschaft Appearance <\/b>sorgt dafür, dass das Steuerelement nicht vertieft angezeigt wird. OLEDropMode = ccOLEDropManual <\/b>sorgt dafür, dass einige Ereignisse beim Drag and Drop auf das ListView<\/b>-Steuerelement ausgelöst und implementiert werden können. Schließlich leert die Prozedur das ListView<\/b>-Steuerelement, falls noch Einträge von vorherigen Anwendungen vorhanden sind.<\/p>\n Das Unterformular sfmAnlagefeld <\/b>enthält als einziges Steuerelement das Anlage-Steuerelement ctlAttachment<\/b>. Das Formular selbst ist über die Eigenschaft Datenherkunft <\/b>an eine Abfrage gebunden, welche die beiden Felder Dateien.FileData <\/b>und Dateien.FileName <\/b>liefert (s. Bild 5). Die „doppelten“ Feldnamen mit dem trennenden Punkt erklären sich durch die Besonderheit des Anlagefeldes: Dieses hat in der Tabelle tblProjekte <\/b>den Namen Dateien<\/b>. Ein Anlagefeld enthält aber intern immer eine Tabelle, da es ja auch mehrere Anlagen samt Metadaten aufnehmen kann. Und zwei der Felder dieser Tabelle heißen FileData <\/b>und FileName<\/b>. Um direkt auf diese Felder zuzugreifen, verwendet man dann die Syntax Bild 5: Das Unterformular sfmAnlagefeld in der Entwurfsansicht<\/span><\/b><\/p>\n Das Feld Dateien.FileData <\/b>weisen wir direkt dem Anlage-Steuerelement ctlAttachment <\/b>als Steuerelementinhalt <\/b>zu, damit dieses den Inhalt der Datei oder ein entsprechendes Symbol anzeigt. Wofür aber benötigen wir das Feld Dateien.FileName<\/b> Dieses verwenden wir, um den aktuellen Datensatz des Unterformulars mit dem im ListView<\/b>-Steuerelement des Hauptformulars angezeigten Anlage-Datensatz zu synchronisieren.<\/p>\n Dazu verwenden wir die beiden Eigenschaften Verknüpfen von <\/b>und Verknüpfen nach <\/b>des Unterformular-Steuerelements, die sonst für die Verknüpfung von Daten in einer 1:n-Beziehung in Haupt- und Unterformular dienen. In diesem Fall stellen wir die Eigenschaft Verknüpfen von <\/b>auf das Feld Dateien.FileName <\/b>der Datenherkunft des Unterformulars und die Eigenschaft Verknüpfen nach <\/b>auf das Textfeld txtDateiname <\/b>ein. Dieses finden Sie samt den Eigenschaften des Unterformular-Steuerelements in Bild 6.<\/p>\n Bild 6: Einstellungen für das Unterformular-Steuerelement<\/span><\/b><\/p>\n Nun müssen wir nur noch klären, wie das Textfeld txtDateiname <\/b>an den Namen des aktuell im ListView<\/b>-Steuerelement ausgewählten Eintrags kommt.<\/p>\n Jeder Datensatzwechsel, und damit auch das erste Anzeigen eines Datensatzes im Formular frmAnlagefeldVerwalten<\/b>, löst das Ereignis Beim Anzeigen <\/b>und somit die Prozedur aus Listing 2 aus. Diese prüft zunächst, ob das Formular aktuell überhaupt einen Datensatz anzeigt. Dies ist der Fall, wenn Me!ProjektID <\/b>den Wert Null <\/b>aufweist und geschieht etwa dann, wenn der Benutzer zu einem neuen, leeren Datensatz wechselt. In diesem Fall soll dann einfach das ListView<\/b>-Steuerelement geleert werden – siehe Else<\/b>-Teil der If…Then<\/b>-Bedingung.<\/p>\n Listing 2: Diese Ereignisprozedur wird beim Anzeigen eines jeden Datensatzes ausgelöst.<\/span><\/b><\/p>\n Liegt jedoch ein Datensatz vor, erstellt die Prozedur ein neues Recordset, welches das Feld Dateien.FileName <\/b>der Tabelle tblProjekte <\/b>für alle Datensätze enthält, deren Feld ProjektID <\/b>mit dem aktuellen Primärschlüsselwert des Datensatzes im Hauptformular übereinstimmt. Die Prozedur leert dann die Einträge des Listenfeldes.<\/p>\n Anschließend folgt eine Anweisung, die für die Synchronisierung mit dem Unterformular zur Anzeige der aktuell markierten Anlage verantwortlich ist: Sie stellt den Wert des Feldes txtDateiname <\/b>auf den Dateinamen aus rst(„Dateien.FileName“) <\/b>ein. Das Anlage-Steuerelement im Unterformular zeigt nun Inhalt des Anlagefeldes des ersten Datensatzes der Tabelle tblProjekte <\/b>für das aktuellen Projekt an.<\/p>\n Nun durchläuft die Prozedur alle Datensätze der Abfrage und fügt dem ListView<\/b>-Steuerelement jeweils einen neuen Eintrag hinzu, wobei dieser als Text jeweils den Inhalt des Feldes Dateien.FileName<\/b> erhält.<\/p>\n Neue Dateien fügen Sie zum aktuellen Projekt hinzu, indem Sie diese aus dem Windows Explorer auf das Steuerelement ziehen. Wenn Sie ein beliebiges Objekt über dieses Steuerelement ziehen, löst dies das Ereignis OLEDragOver <\/b>aus. Dieses liefert mit Data <\/b>einen Verweis auf das gezogene Objekt. Die If…Then<\/b>-Bedingung aus Listing 3 prüft, ob es sich bei dem Objekt um eine Datei handelt (ccDFFiles<\/b>).<\/p>\n <\/p>\n Listing 3: Ereignis beim überfahren des Drop-Ziels<\/span><\/b><\/p>\n Falls nicht, wird der Mauszeiger in ein Icon verwandelt, das andeutet, dass das aktuell gezogene Objekt nicht auf das ListView<\/b>-Steuerelement fallen gelassen werden kann (Effect = ccOLEDropEffectNone<\/b>), s. Bild 7.<\/p>\n Bild 7: Versuch, ein anderes Objekt als eine Datei auf das ListView-Steuerelement zu ziehen<\/span><\/b><\/p>\n Falls doch, kann der Benutzer das Objekt auf das List-View<\/b>-Steuerelement fallen lassen. Dies löst dann das Ereignis OLEDragDrop<\/b> aus (s. Listing 4). Auch hier erfolgt zunächst die Prüfung, ob es sich bei dem gezogenen Objekt um eine Datei handelt. Ist dies der Fall, startet die Prozedur eine For Each<\/b>-Schleife über alle Elemente der Files<\/b>-Auflistung des Data<\/b>-Parameters. Dieser liefert alle Dateinamen der in Data <\/b>enthaltenen Dateien – Sie können nämlich nicht nur eine einzige, sondern auch mehrere Dateien gleichzeitig in das Anlagefeld ziehen.<\/p>\n Listing 4: Ereignis, das beim Fallenlassen einer Datei über dem ListView-Steuerelement ausgelöst wird<\/span><\/b><\/p>\n Innerhalb der For Each<\/b>-Schleife ermittelt die Prozedur nun den Dateinamen aus dem Dateipfad, indem Sie das erste Backslash-Zeichen von hinten aus gesehen ermittelt und nur den Teil rechts davon in der Variablen strDateiname <\/b>speichert. Dann fügt sie dem ListView<\/b>-Steuerelement mit der Add<\/b>-Methode der ListItems<\/b>-Auflistung für jede Datei ein neues Element hinzu.<\/p>\n Das neu hinzugefügte Element wird selektiert und eine weitere Prozedur aufgerufen, die üblicherweise durch das Anklicken eines der Einträge des ListView<\/b>-Steuerelements ausgelöst wird. Dies sieht wie folgt aus:<\/p>\n Die Prozedur stellt lediglich den Inhalt des Textfeldes txtDateiname <\/b>auf den Text des aktuell gewählten ListView<\/b>-Eintrags ein und sorgt somit für die Anzeige der enthaltenen Datei im Anlagen-Steuerelement im Unterformular.<\/p>\n Schließlich ruft die Prozedur die Routine DateiSpeichern <\/b>auf, welche sich um das Speichern der Datei im Anlagefeld kümmert. Bislang befindet sich ja nur der Dateiname im ListView<\/b>-Steuerelement – die Datei wurde noch nicht in der Tabelle gespeichert.<\/p>\n Die Routine DateiSpeichern <\/b>finden Sie in Listing 5. Sie prüft wiederum, ob das Formular aktuell überhaupt einen Datensatz anzeigt und nicht etwa einen neuen, leeren Datensatz. Ist Letzteres der Fall, geschehen drei Dinge: Der Fokus wird auf das Feld Projektbezeichnung <\/b>verschoben, die Eigenschaft Dirty <\/b>des Formulars erhält den Wert True<\/b>, was gleichbedeutend mit dem Anlegen eines neuen Datensatzes durch Eintragen eines Wertes für ein beliebiges Feld ist, und der neu angelegte Datensatz wird mit der Methode RunCommand <\/b>und dem Parameter acCmdSaveRecord <\/b>gespeichert.<\/p>\n Listing 5: Prozedur zum Speichern einer Datei im Anlagefeld<\/span><\/b><\/p>\n Damit liegt nun ein gespeicherter Datensatz vor, dessen Anlagefeld mit der mit dem Parameter strDateipfad <\/b>übergebenen Datei gefüllt werden kann.<\/p>\n Dazu erstellt die Prozedur ein Recordset auf Basis der Tabelle tblProjekte <\/b>mit dem Datensatz, der aktuell im Hauptformular angezeigt wird. Diesen versetzt die Prozedur mit der Edit<\/b>-Methode in den Bearbeitungszustand und füllt dann ein weiteres Recordset namens rstDateien <\/b>mit der internen Tabelle zum Speichern der Anlage. Diesem fügt sie einen neuen Datensatz hinzu und lädt die Datei aus strDateipfad <\/b>in das Anlagefeld dieses Datensatzes. Nach dem Aktualisieren der beiden Recordsets per Update<\/b>-Methode ist die Datei im Anlagefeld gespeichert.<\/p>\n Kommen wir nun zu den Funktionen zum Verwalten der Anlagen, die das ListView<\/b>-Steuerelement anzeigt. Dazu finden Sie unter dem ListView<\/b>-Steuerelement drei Schaltflächen zum Löschen, öffnen oder Speichern des aktuellen Eintrags. Die Schaltfläche zum Löschen heißt cmdLoeschen<\/b> und löst die folgende Ereignisprozedur aus:<\/p>\n Die darin aufgerufene Prozedur heißt Loeschen<\/b> und ist in Listing 6 zu finden. Die Prozedur speichert zunächst den Dateinamen aus der Text<\/b>-Eigenschaft des ausgewählten Eintrags in der Variablen strDateiname <\/b>zwischen. Dann öffnet sie ein Recordset auf Basis der Tabelle tblProjekte<\/b>, wobei dieses nach dem Datensatz gefiltert wird, dessen Feld ProjektID <\/b>mit dem entsprechenden Wert des Feldes ProjektID <\/b>des aktuell im Formular angezeigten Datensatzes übereinstimmt. Dieser Datensatz wird mit der Edit<\/b>-Methode zur Bearbeitung freigegeben.<\/p>\n Listing 6: Prozedur zum Löschen der aktuell markierten Anlage<\/span><\/b><\/p>\n Ein zweites Recordset namens rstDateien <\/b>füllt die Prozedur mit dem Inhalt des Anlagenfeldes Dateien<\/b>.<\/p>\n Hier sucht sie mit der FindFirst<\/b>-Methode nach dem Eintrag, dessen Feld Filename <\/b>mit dem Wert aus strDateiname <\/b>übereinstimmt. Sollte dies einen Datensatz zutage bringen, löscht die Prozedur diesen mit der Delete<\/b>-Methode des Recordsets rstDateien<\/b>.<\/p>\n Schließlich aktualisiert die Prozedur den Datensatz aus dem Recordset rst <\/b>mit der Update<\/b>-Methode und entfernt das entsprechende Element aus dem ListView<\/b>-Steuerelement. Hier zu nutzt es die Remove<\/b>-Methode der ListItems<\/b>-Auflistung, der sie den Wert der Index<\/b>-Eigenschaft des selektierten Eintrags übergibt.<\/p>\n Die zweite Schaltfläche soll die im Anlagefeld gespeicherte Datei in der jeweiligen Datei öffnen. Die Schaltfläche heißt cmdOeffnen <\/b>und ruft die Prozedur Oeffnen <\/b>aus Listing 7 auf:<\/p>\n Listing 7: Prozedur zum öffnen einer Datei aus einem Anlagefeld<\/span><\/b><\/p>\nFormular zum Verwalten der Anlagen<\/h2>\n
![\"Formular](\"..\/fileadmin\/_temp_\/2015_06\/pic_1013_002.png\")
<\/p>\n![\"Kontextmenü](\"..\/fileadmin\/_temp_\/2015_06\/pic_1013_004.png\")
<\/p>\nErstellen des Formulars<\/h2>\n
![\"Das](\"..\/fileadmin\/_temp_\/2015_06\/pic_1013_003.png\")
<\/p>\nLaden des Formulars<\/h2>\n
Private 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 - 350\r\n .View = lvwReport\r\n .Font.Name = \"Calibri\"\r\n .Font.Size = 11\r\n .Appearance = ccFlat\r\n .OLEDropMode = ccOLEDropManual\r\n .ListItems.Clear\r\n End With<\/span>\r\nEnd Sub<\/span><\/pre>\nUnterformular zur Ansicht der aktuell markierten Anlage<\/h2>\n
![\"Das](\"..\/fileadmin\/_temp_\/2015_06\/pic_1013_005.png\")
<\/p>\n![\"Einstellungen](\"..\/fileadmin\/_temp_\/2015_06\/pic_1013_006.png\")
<\/p>\nBeim Anzeigen eines Datensatzes<\/h2>\n
Private Sub <\/span>Form_Current()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n Dim <\/span>rstDateien As <\/span>DAO.Recordset\r\n Set<\/span> db = CurrentDb\r\n If <\/span>Not<\/span> IsNull(Me!ProjektID) Then<\/span>\r\n Set<\/span> rst = db.OpenRecordset(\"SELECT Dateien.Filename FROM tblProjekte WHERE ProjektID = \" & Me!ProjektID _\r\n & \" ORDER BY Dateien.Filename\", dbOpenDynaset)\r\n Me!ctlListview.ListItems.Clear\r\n Me!txtDateiname = rst(\"Dateien.Filename\")\r\n Do While<\/span> Not<\/span> rst.EOF\r\n If <\/span>Not<\/span> IsNull(rst.Fields(\"Dateien.Filename\")) Then<\/span>\r\n Me!ctlListview.ListItems.Add , , rst.Fields(\"Dateien.FileName\")\r\n End If<\/span>\r\n rst.MoveNext<\/span>\r\n Loop<\/span>\r\n Else<\/span>\r\n Me!txtDateiname = \"\"\r\n Me!ctlListview.ListItems.Clear\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nHinzufügen neuer Anlagen per Drag and Drop<\/h2>\n
Private Sub <\/span>ctlListview_OLEDragOver(Data As Object<\/span>, Effect As Long<\/span>, Button As Integer<\/span>, Shift As Integer<\/span>, x As Single<\/span>, _\r\n y As Single<\/span>, State As Integer<\/span>)\r\n If <\/span>Not<\/span> Data.GetFormat(ccCFFiles) Then<\/span>\r\n Effect = ccOLEDropEffectNone\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\n![\"Versuch,](\"..\/fileadmin\/_temp_\/2015_06\/pic_1013_007.png\")
<\/p>\nPrivate Sub <\/span>ctlListview_OLEDragDrop(Data As Object<\/span>, Effect As Long<\/span>, Button As Integer<\/span>, Shift As Integer<\/span>, x As Single<\/span>, _\r\n y As Single<\/span>)\r\n Dim <\/span>varDateipfad As Variant<\/span>\r\n Dim <\/span>strDateiname As String<\/span>\r\n Dim <\/span>objListItem As <\/span>MSComctlLib.ListItem\r\n If <\/span>Data.GetFormat(ccCFFiles) Then<\/span>\r\n For Each varDateipfad In Data.Files\r\n strDateiname = Mid<\/span>(varDateipfad, InStrRev<\/span>(varDateipfad, \"\\\") + 1)\r\n Set<\/span> objListItem = Me!ctlListview.ListItems.Add(, , strDateiname)\r\n objListItem.Selected = True<\/span>\r\n Me!ctlListview.SetFocus\r\n ctlListview_Click\r\n DateiSpeichern CStr(varDateipfad)\r\n Next<\/span>\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>ctlListview_Click()\r\n If <\/span>Not<\/span> Me!ctlListview.SelectedItem Is Nothing Then<\/span>\r\n Me!txtDateiname = Me!ctlListview.SelectedItem.Text\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nSpeichern der Datei im Anlagefeld<\/h2>\n
Private Sub <\/span>DateiSpeichern(strDateipfad 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 Set<\/span> db = CurrentDb\r\n If <\/span>IsNull(Me!ProjektID) Then<\/span>\r\n Me!Projektbezeichnung.SetFocus\r\n Me.Dirty = True<\/span>\r\n RunCommand acCmdSaveRecord\r\n End If<\/span>\r\n Set<\/span> rst = db.OpenRecordset(\"SELECT * FROM tblProjekte WHERE ProjektID = \" _\r\n & Me!ProjektID, dbOpenDynaset)\r\n rst.Edit\r\n Set<\/span> rstDateien = rst.Fields(\"Dateien\").Value\r\n rstDateien.AddNew<\/span>\r\n Set<\/span> fld = rstDateien.Fields(\"FileData\")\r\n fld.LoadFromFile strDateipfad\r\n rstDateien.Update\r\n rst.Update\r\nEnd Sub<\/span><\/pre>\nAnlage per Schaltfläche löschen<\/h2>\n
Private Sub <\/span>cmdLoeschen_Click()\r\n Loeschen\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>Loeschen()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n Dim <\/span>strDateiname As String<\/span>\r\n Dim <\/span>rstDateien As <\/span>DAO.Recordset2\r\n strDateiname = Me!ctlListview.SelectedItem.Text\r\n Set<\/span> db = CurrentDb\r\n Set<\/span> rst = db.OpenRecordset(\"SELECT * FROM tblProjekte WHERE ProjektID = \" & Me!ProjektID, dbOpenDynaset)\r\n rst.Edit\r\n Set<\/span> rstDateien = rst.Fields(\"Dateien\").Value\r\n rstDateien.FindFirst \"Filename = ''\" & strDateiname & \"''\"\r\n If <\/span>Not<\/span> rstDateien.NoMatch Then<\/span>\r\n rstDateien.Delete\r\n End If<\/span>\r\n rst.Update\r\n Me!ctlListview.ListItems.Remove Me!ctlListview.SelectedItem.Index\r\nEnd Sub<\/span><\/pre>\nAnlage per Schaltfläche öffnen<\/h2>\n
Private Sub <\/span>Oeffnen()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n Dim <\/span>rstDateien As <\/span>DAO.Recordset2\r\n Dim <\/span>fld As <\/span>DAO.Field2\r\n Dim <\/span>strDateiname As String<\/span>\r\n Dim <\/span>strDateipfad As String<\/span>\r\n strDateiname = Me!ctlListview.SelectedItem.Text\r\n strDateipfad = CurrentProject.Path & \"\\\" & strDateiname\r\n Set<\/span> db = CurrentDb\r\n Set<\/span> rst = db.OpenRecordset(\"SELECT Dateien FROM tblProjekte WHERE ProjektID = \" & Me!ProjektID, dbOpenDynaset)\r\n Set<\/span> rstDateien = rst.Fields(\"Dateien\").Value\r\n rstDateien.FindFirst \"FileName = ''\" & strDateiname & \"''\"\r\n Set<\/span> fld = rstDateien.Fields(\"FileData\")\r\n If <\/span>Not<\/span> Len<\/span>(Dir(strDateipfad)) = 0 Then<\/span>\r\n If <\/span>MsgBox<\/span>(\"Datei bereits in ''\" & CurrentProject.Path & \"'' vorhanden. überschreiben\", vbYesNo) = vbNo Then<\/span>\r\n strDateipfad = GetSaveFile(CurrentProject.Path, strDateiname, , \"Speichern unter\")\r\n Else<\/span>\r\n Kill strDateipfad\r\n End If<\/span>\r\n End If<\/span>\r\n If <\/span>Len<\/span>(strDateipfad) > 0 Then<\/span>\r\n fld.SaveToFile strDateipfad\r\n ShellExecute 0, \"open\", strDateipfad, \"\", \"\", 1\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\n