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

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

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

sazi

2021/03/30 08:01

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

tst

2021/03/30 09:01

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

行動規範の内容に同意します

回答1件

ベストアンサー

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

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

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

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