ник: Lukas
Угу, я не дочитал Help до конца.
Ну я тоже типа подписался.
В отчетах можно:
Private Sub Report_Open(Cancel As Integer)
funSetOnFormat Me
End Sub
|
Во внешнем модуле для всех отчетов типа такого:
Public Function funSetOnFormat(rpt As Report)
On Error Resume Next
Dim i As Integer
Err.Clear
With rpt
Do While Err.Number = 0
.Section(i).OnFormat = "=funFormat(Report, " & i & ")"
i = i + 1
Loop
End With
Err.Clear
End Function
|