[kapetang]

Καλησπέρα
Σωτήρη, νόμιζα ότι έχεις ένα πεδίο τύπου Attachment (συνημμένο) με πολλές εικόνες.
Για να διαγράψεις όλες τις εικόνες από όλα τα πεδία συνημμένων, δοκίμασε τον κώδικα:

Private Sub cmdDelImages_Click()
    Dim rs As DAO.Recordset2, rsIm As DAO.Recordset2
    Dim images As Variant, i As Long

    'Εδώ συμπληρώνουμε τα ονόματα των πεδίων
    images = Array("USimage1", "USimage2", "USimage3", "USimage4", "USimage5")

    Set rs = Me.RecordsetClone
    rs.Bookmark = Me.Bookmark
    For i = 0 To UBound(images)
        Set rsIm = rs.Fields(images(i)).Value
        Do Until rsIm.EOF
            rsIm.Delete
            rsIm.MoveNext
        Loop
        Me.Controls(images(i)).Requery
    Next
    rsIm.Close
    rs.Close
End Sub

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