Access レポート IF文でのグループフッター名の指定

Question

Accessのレポートで、グループフッター（残高フッター）にテキストボックスを配置しており、VBAでテキストボックスの周りに線を引きたいと思っています。条件分岐で、各コントロールのうち、残高フッターにあるテキストボックスのみ線を引く条件を実行したいのですが、条件指定（ctrl.Section = "残高フッター"）の所でうまくいきません。どのように変更すればよいでしょうか。よろしくお願いします。

Private Sub 残高フッター_Print(Cancel As Integer, PrintCount As Integer)
    '左に線
    Dim ctrl As Control
    For Each ctrl In Controls
        If ctrl.Section = "残高フッター" And TypeName(ctrl) = "TextBox" Then
            Me.Line (ctrl.Left, ctrl.Top)-(ctrl.Left, ctrl.Top + 340), RGB(0, 0, 0)
        End If
    Next
    '右端に線
    Me.Line (残高.Left + 残高.Width, 残高.Top)-(残高.Left + 残高.Width, 残高.Top + 340), RGB(0, 0, 0)
    '下端に線
    Me.Line (販売経路.Left, 販売経路.Top + 340)-(残高.Left + 残高.Width, 残高.Top + 340), RGB(0, 0, 0)
End Sub

Answer 1

Sectionは定数で指定してください。
フッターなら acGroupLevel1Footer とかになります。数値はグループの階層レベルになります。

If ctrl.Section = acGroupLevel1Footer 

Section プロパティ

セクションの名前で指定するなら、

If Me.Section(ctrl.Section).Name = "残高フッター"  

Comments

[mnbwqz]

ありがとうございました。
上（数値）：If ctrl.Section = 18
下（名前）：Me.Section(ctrl.Section).name = "残高フッター"
で出来ました。