Public Function WriteBook(ParID As Long) As Long
On Error GoTo Err_Handler

    WriteBook = 0

    Dim dbs As DAO.Database
    Set dbs = CurrentDb
    
    Dim qdf As DAO.QueryDef
    Set qdf = dbs.QueryDefs("qryBookUpdate")
    
    qdf.Parameters("ParID") = ParID

    
    qdf.Execute dbFailOnError
    
    WriteBook = qdf.RecordsAffected
    
                        
    
Exit_Handler:

    If Not qdf Is Nothing Then
        qdf.Close
        Set qdf = Nothing
    End If


    If Not dbs Is Nothing Then
        dbs.Close
        Set dbs = Nothing
    End If
    

    Exit Function

Err_Handler:
    MsgBox Err.Source & vbCrLf & Err.Description, vbExclamation, "Ñîîáùåíèå îá îøèáêå"
    Resume Exit_Handler
    
    
End Function

Private Sub КНОПКА_Click()
DoCmd.Close acReport, "Склады_оснастки_все", acSaveNo
DoCmd.OpenReport "Склады_оснастки_все", acViewReport
End Sub