1. Попробкйте добавить в код отмену события
Private Sub Report_Error(DataErr As Integer, Response As Integer) DoCmd.CancelEvent End Sub
2. Можно открыть отчет не через макрос, а через команду: DoCmd.OpenReport "name", acViewPreview