Microsoft Access 掲示板

オブジェクトを隠すためのテキストボックス色を背景色にあわせたい / 1

4 コメント
views
4 フォロー
1

まずは、下記のリンク先の関数FormRecNoをコピーして標準モジュールに貼り付ける。

B.WH |AC : 帳票フォームで表示順に連番を付ける

消したいフィールドを覆っているテキストボックス(リンク先だと txtHideB)のプロパティを下記のように変更する。

コントロールソース
=IIf(([FieldA] Like "[!A-Z]" Or [FieldA] Is Null) And [FormRecNo] Mod 2=0,"gggg","")

前景色 グレー

次にこのテキストボックスをコピーして、詳細セクションに貼り付けてから、移動させて txtHideB の上に重ねます。
プロパティを下記のように設定します。

コントロールソース
=IIf(([FieldA] Like "[!A-Z]" Or [FieldA] Is Null) And [FormRecNo] Mod 2=1,"gggg","")
前景色 白
名前 txtHideB2

このテキストボックスのフォーカス取得時のイベントプロシージャを下記のように記述します。

Private Sub txtHideB2_Enter()
    If Me.txtHideB = "" Then
        Me.FieldB.SetFocus
    Else
        Screen.PreviousControl.SetFocus
    End If
End Sub

以上でどうでしょうか。
実際に試してはいません。
FormRecNo関数は重い処理でので、実用的かどうか不明です。

通報 ...