如何仅使窗体页眉的控件清空

简

我的清空代码如下：

    For Each ctl In Me.Controls
        Select Case ctl.ControlType
            Case acTextBox, acComboBox
                ctl = Null
        End Select
    Next ctl

但我希望只把窗体页眉的控件清空，而主体和窗体页脚上的控件不清空，请问对窗体页眉范围的代码怎么写呢？

todaynew

     For Each ctl In me.Section(1).Controls '或me.Section(acHeader).controls
         if ctl.ControlType=acTextBox or ctl.ControlType=acComboBox then
                 ctl.value = Null
         End if
     Next ctl


Section 属性与特定的节对应。可以使用下列常量。建议采用常量来提高程序的可读性。

设置   常量                       说明
0       acDetail                            窗体或报表的主体节
1       acHeader                          窗体页眉节或报表页眉节
2       acFooter                           窗体页脚节或报表页脚节
3       acPageHeader                   窗体或报表的页面页眉节
4       acPageFooter                    窗体或报表的页面页脚节
5       acGroupLevel1Header        分组级别 1 的页眉节（仅用于报表）
6       acGroupLevel1Footer         分组级别 1 的页脚节（仅用于报表）
7       acGroupLevel2Header        分组级别 2 的页眉节（仅用于报表）
8       acGroupLevel2Footer         分组级别 2 的页脚节（仅用于报表）

简

原来是这样，谢谢老汉，谢谢老汉~~~

简

我再请教一下，如何在主窗体里用循环代码把子窗体数据表中控件名前4位为txtA的控件隐藏呢？

1  Dim ctl As Control
2    For Each ctl In Me.sub1.Controls
3         Select Case ctl.ControlType
4            Case acTextBox, acComboBox
5                If Left(ctl.Name, 4) = "txtA" Then
6               
7                Me.sub1!ctl.ColumnHidden = -1
8               
9        End Select
10    Next ctl

11  End Sub

按上述代码，子窗体数据表中指定列没有隐藏，我想问题出在第7行代码上，不知该怎么写才对呢？