[5分]如何用代码在窗体页眉节和主体节中切换

谢谢,这么快回复

早上才看到.

整理了一下,供大家参考,代码如下:

'-----------------------------------------------------------------
'Purpose  : 设置指定的窗体节成为当前活动节
'Usage    : 仅适于窗体节.
'Compatib : 适用于各版本的ACCESS；已测试：Access2003SP3+Win7ChsX64SP1
'Author   : Lynn 2014-04-14 Infor: 创建
'-----------------------------------------------------------------
Sub SetFocusSection(Form As Access.Form, Section As AcSection)
    Dim ctl As Access.Control, tmp As Long
    '排除活动节为已指定的节
    If Form.ActiveControl.Section = Section Then Exit Sub
    '历遍节中控件
    For Each ctl In Form.Section(Section).Controls
        tmp = ctl.ControlType
        If tmp <> acLabel And tmp <> acLine And tmp <> acPage And tmp <> acPageBreak And tmp <> acRectangle And tmp <> acImage Then
            If ctl.TabIndex = 0 Then
                ctl.SetFocus
                Exit For
            End If
        End If
    Next
End Sub