Das Buch im HTML-Format

Für unbestimmte Zeit bieten Addison-Wesley und André Minhorst den kompletten Inhalt des Buchs als Download an. Schauen Sie rein und informieren Sie sich über den Inhalt! Und wenn Ihnen das Buch nützlich erscheint und Sie glauben, dass Sie etwas gelernt haben oder durch das Gelesene sogar etwas Zeit und somit Geld bei Ihrer Arbeit einsparen konnten, können Sie sich ja beim Autor und beim Verlag revanchieren - beispielsweise durch den Kauf dieses Buchs.

Am schönsten wäre es natürlich, wenn Sie das Buch direkt hier bestellen - Sie erhalten das Buch dann direkt vom Verlag, und der Autor und Verlag haben dann noch mehr davon, als wenn Sie es anderswo kaufen.

Danke für Ihr Interesse!

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

© 2006-2008 André Minhorst Alle Rechte vorbehalten.