ACCESS テキストボックスの入力内容有無で直線を表示/非表示させるようなコード

Question

ACCESSで業務の引継ぎ事項を入力しレポートを印刷していこうと考えています。

レポート上に引き続き事項を入力したテキストボックスとその下に罫線のように直線を設定しています。
ただ、テキストボックスに入力内容がない場合には直線が表示されたままになり見栄えが悪い状態となっています。

ですので、テキストボックスの入力内容の有無によって直線直線の表示/非表示を変更させたいのです。
また、テキストボックステキストボックスと直線は複数あるので変数を使ってコードをすっきりもさせたいです。

現状、以下のようなコードを書いていますが機能しません。

Dim i As Integer
Dim y As Integer
    For i = 1 To 4
    For y = 1 To 4
        If IsNull (Me["テキストボックス" & i]) Then
            Me.["直線" & y].Visible = False
        Else
            Me.["直線" & y].Visible = True
        End If
    Next y
    Next i

ご指南ご指南よろしくお願いします。

Comments

[sazi]

「機能しません。」とはどのような状況ですか？
そのコードで機能しないというと判定が意図通りにならないという事でしょうか？
デバッグはされてます？

[tst]

最初に質問頂いていたのを見逃していました。
申し訳ありません。
機能しないというのはエラーではじかれるという意味でした。
エラーの表示は失念してしまいました。
今後は皆さんに状況が伝わるように表現を改めます。
ありがとうございました。

Answer 1

レポートの場合、どのイベントに記述するかが重要です。

コントロールの表示/非表示をフィールドの値によって切り替える場合は、
コントロールのが配置しあるセクションのフォーマットイベントを使うことになります。

詳細セクションに配置してあるなら、下記のようなコードになります。

Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
    Dim i As Integer
    
    For i = 1 To 4
        If IsNull(Me("テキストボックス" & i)) Then
            Me("直線" & i).Visible = False
        Else
            Me("直線" & i).Visible = True
        End If
    Next i
End Sub

テキストボックス1 の罫線が、直線1 というように対応している場合です。

Comments

[tst]

早速の回答ありがとうございます。
上記を試したところ思い通りの挙動が実現しました!
本当にありがとうございました!