[Access 2000] Accessing header properties using VBA?

[jmc39]

Can anybody tell me how I can access the header and footer properties of a form in Access 2000 using VBA?

The most I have found out is how the access the detail using forms("form1&quot.section(0)....

Thanks for the help

 

[jrbarnett]

forms("form1&quot.section(acHeader)....

forms("form1&quot.section(acFooter)....

Your 0 in the brackets is the equivalent of acDetail.
(ie if you debug.print acDetail in the immediate window, it displays 0.)

John

 

[jmc39]

Thanks for the response but when I try, for example
"Forms("test&quot.Section(acHeader).BackColor" I get the error "The section number you entered is invalid".

I've seen that I may have to add a header before it is actually present in form? is this true? does anybody know how to do this?

Thanks again

 

[jrbarnett]

This is probably becuase there is no header, as you guessed.
To add one, go into form design, go to the view menu and click on Form Header/Footer. This will add one.

John

 

[jmc39]

Sorry, I forgot to mention this in the original post. Everything I am doing needs to be done through VBA. So what I need to be able to do is to add the header (or footer) using VBA.

 

[jrbarnett]

This code snippet will do it.



Dim lngTemp As Long

DoCmd.OpenForm "frmData", acDesign
On Error Resume Next
lngTemp = Forms("frmData").Section(acHeader).Height
' err 2462 = Section not found
If Err.Number <> 2462 Then
    ' item already exists
    MsgBox &quot;Form has header/footer&quot;
Else
    DoCmd.RunCommand acCmdFormHdrFtr
End If

John

 

[jmc39]

jrbarnett, your a life saver, thanks

James