Public Function DeleteAttacmtnV(codI As Integer)
    Dim rst As DAO.Recordset, rst1 As DAO.Recordset
    Dim Cod, Counter
    Cod = codI
        Set rst = CurrentDb.OpenRecordset("select * from T_PlanDepartament where Cod=" & codI)
        rst.Edit
        Set rst1 = rst.Fields("FileV").Value
        Counter = rst1.AbsolutePosition
If Counter = -1 Then
         Exit Function
         Else
         While Counter <> -1    'ничего лучше не придумал как в цикле чистить если в вложении несколько файлов
           rst1.Delete
           rst.Update
        Set rst = CurrentDb.OpenRecordset("select * from T_PlanDepartament where Cod=" & codI)
        rst.Edit
        Set rst1 = rst.Fields("FileV").Value
        Counter = rst1.AbsolutePosition
        'MsgBox rst1.AbsolutePosition
        Wend
End If
End Function

Function RemoveAttachment(strRemoveFile As String, Optional strFilter As String) As Long
'RemoveAttachment "*.pdf" 'вызов функции - можно указать удаляемые файлы
    Dim dbs As DAO.Database
    Dim rst As DAO.Recordset2
    Dim rsA As DAO.Recordset2
    Dim fld As DAO.Field2
    Set dbs = CurrentDb
    If Len(strFilter) > 0 Then 'tblAttachments - запрос на выборку записей в которых чистим вложения 
        Set rst = dbs.OpenRecordset("SELECT * FROM tblAttachments WHERE " & strFilter)
    Else
        Set rst = dbs.OpenRecordset("tblAttachments")
    End If
    Set fld = rst("FileV") 'FileV - имя поля с вложениями
    Do While Not rst.EOF
        Set rsA = fld.Value
        Do While Not rsA.EOF
            If rsA("FileName") Like strRemoveFile Then
                rsA.Delete
                RemoveAttachment = RemoveAttachment + 1
            End If
            rsA.MoveNext
        Loop
        rsA.Close
        Set rsA = Nothing
        rst.MoveNext
    Loop
    rst.Close
    dbs.Close
    Set fld = Nothing
    Set rst = Nothing
    Set dbs = Nothing
    MsgBox "Успешно! Удалено вложений - " & RemoveAttachment
End Function