After printing the report the user is asked if it was OK and then starts a procedure. The problem is that it returns an error message "3001".
The code is:
Private Sub Report_Close()
On Error GoTo Err_Report_Close
Dim db_contratos As Database
Dim rst As Recordset
Dim rst2 As Recordset...