9.9.7 Datei in Attachment-Feldern speichern
9.9.8 Löschen von Dateien in Attachment-Feldern
Zum Löschen eines Attachments aus einer Tabelle bedarf es keiner besonderen Mittel, hier reicht die bekannte Delete-Methode, angewendet auf den passenden Datensatz der Attachment-Tabelle, völlig aus. Die folgende Routine referenziert wiederum das Attachment-Feld als eigenes Recordset2-Objekt und löscht einfach das Attachment, dessen Dateiname mit dem Parameter strDatei übergeben wurde. Das Löschen eines Attachments funktioniert im Übrigen auch ohne das vorherige Vorbereiten des übergeordneten Recordsets mit AddNew/Edit.
Public Sub AttachmentLoeschen(strDatei As String, lngDateiID As Long) Dim db As DAO.Database Dim rst As Recordset2 Dim rstAttachments As Recordset2 Set db = CurrentDb Set rst = db.OpenRecordset("SELECT * FROM tblDateien " _ & "WHERE DateiID = " & lngDateiID, dbOpenDynaset) Set rstAttachments = rst.Fields("Datei").Value rstAttachments.FindFirst "Filename = '" & strDatei & "'" rstAttachments.Delete Set rstAttachments = Nothing Set rst = Nothing Set db = Nothing End Sub
Listing 9.51: Das Löschen eines Attachments erfolgt auf herkömmliche Weise mit der Delete-Methode
Nächster Abschnitt:
9.9.9 Ersetzen eines Attachments
|