Private Sub кнПечать_Click()
On Error Resume Next 'Отключаем диагностику ошибок
DoCmd.OpenReport "Отчет об итогах", acViewPreview 'Открываем отчет
Err.Clear 'В случае отсутствия данных очищаем поток ошибок
Лекции по Microsoft Access 2000
On Error Resume Next 'Отключаем диагностику ошибок
DoCmd.OpenReport "Отчет об итогах", acViewPreview 'Открываем отчет
Err.Clear 'В случае отсутствия данных очищаем поток ошибок