TopPicLogo TopPicText

Изменение определенных свойств сразу всех отчетов приложения

Private Sub ChangeReportsPrp()
'es = 10.10.2001
'Изменение определенных (ниже) свойств сразу всех отчетов приложения
    Dim dbs As Database, ctr As Container, doc As Document
    Dim objReport As Report
On Error GoTo ChangeFormsPrpErr
    Set dbs = CurrentDb
    Set ctr = dbs.Containers!Reports
    'цикл по всем отчетам
    For Each doc In ctr.Documents
        'открытие отчета в режиме редакции
        DoCmd.OpenReport doc.Name, acViewDesign
        Set objReport = Reports(doc.Name)
        'отображение инфы о тек. отчете в Status Bar
        SysCmd acSysCmdSetStatus, "Обрабатываю Отчет - " & doc.Name
            '***********************************************************
            'СОБСТВЕННО ИЗМЕНЕНИЕ СВОЙСТВ
            'objReport.Picture= "c:\Windows\Winlogo.bmp"
            '...
            '... ДРУГИЕ свойства
        'Закрытие отчета
        DoCmd.Close acReport, doc.Name, acSaveYes
    Next doc
    SysCmd acSysCmdClearStatus

Exit Sub
ChangeFormsPrpErr:
    MsgBox Err.Description & vbCrLf & "При обработке Отчета - " & doc.Name, vbCritical
End Sub

Назад ToTop
L.E. 21.10.2012
Рейтинг@Mail.ru