MyTetra Share
Делитесь знаниями!
Изменение определенных свойств сразу всех отчетов приложения
Время создания: 16.03.2019 23:43
Раздел: !Закладки - VBA - Access - msa.polarcom.ru - 08 Отчеты
Запись: xintrea/mytetra_db_adgaver_new/master/base/1532016448ezp7vax3y8/text.html на raw.githubusercontent.com

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

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




Так же в этом разделе:
 
MyTetra Share v.0.59
Яндекс индекс цитирования