Dim trz As AccessObject, dbs As Object
Set dbs = Application.CurrentProject
For Each trz In dbs.AllForms
 
    DoCmd.OpenForm trz.Name, acDesign
 
    Forms(trz.Name).Modal = -1
    Forms(trz.Name).PopUp = -1
    DoCmd.Close acForm, trz.Name, acSaveYes
Next
 
For Each trz In dbs.AllReports
 
    DoCmd.OpenReport trz.Name, acDesign
 
    Reports(trz.Name).Modal = -1
    Reports(trz.Name).PopUp = -1
    DoCmd.Close acReport, trz.Name, acSaveYes
Next