Do Page Header - Page Footer exist

[Hank]

My boss wants the font on reports to be user selectable on a
Configuration screen. I open the Font Dialog and one is selected.
When the report opens, I call a funtion that changes the font of all
Text Boxes and Labels. I need to go through the collection of each
section of the report: Report Header, Report Footer, Page Header, et
cetera. I use this code:
'
*************** *************** *************** *************** *************** ****
' Set the Report Font based on the passed information 04/23/06
Public Sub SetReportFont(C alling As Report, PassedFontName As String)
On Error GoTo ErrorReport

Dim ctl As Control
Dim ThisType As Long
Dim SectionMode As Integer

For Each ctl In Calling.ReportH eader.Controls
ThisType = ctl.ControlType
If ((ThisType = acTextBox) Or (ThisType = acLabel)) Then
ctl.FontName = PassedFontName
End If
Next

For Each ctl In Calling.ReportF ooter.Controls
ThisType = ctl.ControlType
If ((ThisType = acTextBox) Or (ThisType = acLabel)) Then
ctl.FontName = PassedFontName
End If
Next
And so on. The problem is that some reports may not have a page
header or footer or some other section. Is there a way that I can tell
if the passed report has a particular section before I try to loop
through its collection? I'm using Access 2000.
Thanks,
Hank Reed

[RoyVidar]

Hank wrote in message
<11************ **********@i39g 2000cwa.googleg roups.com> :

My boss wants the font on reports to be user selectable on a
Configuration screen. I open the Font Dialog and one is selected.
When the report opens, I call a funtion that changes the font of all
Text Boxes and Labels. I need to go through the collection of each
section of the report: Report Header, Report Footer, Page Header, et
cetera. I use this code:
'
*************** *************** *************** *************** *************** ****
' Set the Report Font based on the passed information 04/23/06
Public Sub SetReportFont(C alling As Report, PassedFontName As String)
On Error GoTo ErrorReport

Dim ctl As Control
Dim ThisType As Long
Dim SectionMode As Integer

For Each ctl In Calling.ReportH eader.Controls
ThisType = ctl.ControlType
If ((ThisType = acTextBox) Or (ThisType = acLabel)) Then
ctl.FontName = PassedFontName
End If
Next

For Each ctl In Calling.ReportF ooter.Controls
ThisType = ctl.ControlType
If ((ThisType = acTextBox) Or (ThisType = acLabel)) Then
ctl.FontName = PassedFontName
End If
Next
And so on. The problem is that some reports may not have a page
header or footer or some other section. Is there a way that I can
tell if the passed report has a particular section before I try to
loop through its collection? I'm using Access 2000.
Thanks,
Hank Reed

I am not sure at all, but I don't think this is exposed. (I'd love to
be
proven wrong on that). I think I'd try brute force, as in for instance

on error resume next
debug.print calling.section (acPageHeader). controls.count
if err.number <> 0 then
' probably doesn't exist
err.clear
else
' loop the controls
end if

But I'd advice to be carefull when referring to the report sections.
See the following thread for why (watch for linebreaks in the link)
http://groups.google.com/group/comp....018f1b65acea7e

--
Roy-Vidar