Изменение отчета

   Одним из самых сложных этапов разработки отчетов является его построение, вспомните «Платежное поручение» (наверняка, Вы его уже разрабатывали с помощью мастера Access). В Access есть и другой способ разработки отчетов, возможно, он Вам и когда-нибудь пригодится. Ниже дается пример функции, которая меняет плотность поля «Пункт», т.е цифра 1 становится толще.

 

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 'Очищаем поток от ошибок

End Function


Страница сайта http://www.interface.ru
Оригинал находится по адресу http://www.interface.ru/home.asp?artId=10251