hatena
hatena
2020/09/09 (水) 15:23:32
まずは、下記のリンク先の関数FormRecNoをコピーして標準モジュールに貼り付ける。
消したいフィールドを覆っているテキストボックス(リンク先だと 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関数は重い処理でので、実用的かどうか不明です。
通報 ...