Option Compare Database

Private Sub Кнопка39_Click()

Dim FileName As String
Dim FilePath As String

FileName = "Num_" & Me.№_В_ЖВК
FilePath = "C:\" & FileName & ".pdf"
DoCmd.OutputTo acOutputReport, "rep_full", acFormatPDF, FilePath


On Error GoTo Err_AddImage

Dim db As DAO.Database
Dim rsParent As DAO.Recordset2
Dim rsChild As DAO.Recordset2

Set db = CurrentDb
Set rsParent = Me.Recordset

rsParent.Edit

Set rsChild = rsParent.Fields("[Скан протокола]").Value

rsChild.AddNew
rsChild.Fields("FileData").LoadFromFile ("c:\Num_" & Me.№_В_ЖВК & ".pdf")

rsChild.Update
rsParent.Update

Exit_AddImage:

Set rsChild = Nothing
Set rsParent = Nothing
Exit Sub

Err_AddImage:

If Err = 3820 Then
MsgBox ("Файл с таким имененем уже добавлен в текущее поле!")
Resume Next

Else
MsgBox "Произошла другая ошибка!", Err.Number, Err.Description
Resume Exit_AddImage

End If


MsgBox "Акт успешно сохранен", vbInformation, "Сообщение"
End Sub

Kill "c:\akt\Num_" & Me.№_В_ЖВК & ".pdf"