Public Function funDetalReport(strReport As String) As Boolean

Dim rpt As Report

    On Error GoTo 999 'Переходим по ошибке

    funDetalReport = False 'Возвращаем значение при ошибке

    appAccess.DoCmd.OpenReport strReport, acViewDesign 'Открываем отчет

    Set rpt = appAccess.Reports("Отчет об итогах") 'Выбираем отчет

    rpt.Пункт.FontWeight = 700 'Изменяем плотность шрифта

    appAccess.DoCmd.Close acReport, strReport 'Закрываем отчет

    funDetalReport = True 'Возвращаем значение

    Exit Function 'Выходим из программы

999:

    MsgBox Err.Description 'Сообщаем об ошибке

    Err.Clear 'Очищаем поток от ошибок

Содержание раздела

---