[kapetang]

Καλημέρα

Σωτήρη, υποθέτω ότι οι εικόνες είναι αποθηκευμένες στο πεδίο fImages τύπου attachment (συνημμένο) και ότι το κουμπί λέγεται cmdDelImages.

Ο παρακάτω κώδικας, που εκτελείται πατώντας το κουμπί, θα διαγράψει όλες τις εικόνες από το πεδίο fImages της τρέχουσας εγγραφής.

Private Sub cmdDelImages_Click()
    Dim rs As DAO.Recordset2, rsIm As DAO.Recordset2
    
    Set rs = Me.RecordsetClone
    rs.Bookmark = Me.Bookmark
    Set rsIm = rs.Fields("[fImages]").Value
    Do Until rsIm.EOF
        rsIm.Delete
        rsIm.MoveNext
    Loop
    Me.[fImages].Requery
    rsIm.Close
    rs.Close
End Sub

Η διαγραφή δε μπορεί να αναιρεθεί, συνεπώς πρέπει να είμαστε προσεκτικοί.


Φιλικά/Γιώργος