查资料还得用Google。查了这么多年的baidu都没查到啊
Private Sub SetFormHeader(F As Form, bSwitchOn As Boolean)
Dim S As Section
On Error Resume Next
DoCmd.SelectObject acForm, F.Name, False
Set S = F.Section(acHeader)
If bSwitchOn Then
'if error, add
If Err > 0 Then
RunCommand acCmdFormHdrFtr
End If
Else
'if no error, remove
If Err = 0 Then
RunCommand acCmdFormHdrFtr
End If
End If
End Sub
首先呢，哪果窗体页眉页脚关闭后呢，相关这里面的控件，会被删除的，所以好象不附合你的后续的要求，那么就别想着关闭和打开了。
那么有没有方法来实现TZ的要求呢，方法有的，
1.首先窗体页眉页脚就打开的
2.其次呢，里面相应的控件是存在的
3.如何关闭页眉页脚呢，我们可以换个想法，页眉页脚的高度设为0，那么也形同关闭了
4.那么要注意的是，如果页眉页脚中的控件height(高度)+top(上边距)是大于0的话，那么你的页眉页脚也不能设为0，
换句话说，页眉页脚的控件必须贴住页眉页脚的顶边，并且这些控件的高度必须为0之后，才可以设页眉页脚为0
不知道你的目的，但希望 帮到你。
非常感谢renco，我想要的是在没有开启窗体页眉/页脚的情况下，用vba开启。
用1楼的函数，已经解决了。
总记录：3篇 页次：1/1 9 1 :
