（ACCESS）条件に応じて、テキストボックスを表示・非表示設定

質問

（ACCESS）条件に応じて、テキストボックスを表示・非表示設定

フォーム上のテキストボックスAを条件に応じて表示・非表示にさせたいです。

条件は、サブフォームのテキストボックスBに「支払」を言う文字があれば、
テキストボックスAが表示され、なければ非表示にする方法が探しています。

わからないなりに調べて、多分以下の文章になると思いますが、「？」の条件式がうまくいきません

Private Sub AA_GotFocus()
If 　？？？？？ Then
Me!テキストボックスA.Visible = False
Else
Me!テキストボックスA.Visible = True
End If
End Sub

どなたか教えてください。
宜しくお願い致します。

回答No.3

piroin654 · ベストアンサー

訂正。(2)のところで、

Private Sub t1_GotFocus()
If Forms!フォーム名!ctlサブフォーム名!テキストボックスB Like "*" & "支払" & "*" Then

になっていましたが、

Private Sub t1_GotFocus()

を、

Private Sub AA_GotFocus()

としてください。書き間違いです。

お礼

ありがとうございました。
なんとかできました。

回答No.2

piroin654

（１）はテキストボックスBに「支払」という文字だけが
表示されている場合、(2)は「支払」という文字が含まれて
いる場合です。

(1)
Private Sub AA_GotFocus()
If Forms!フォーム名!ctlサブフォーム名!テキストボックスB = "支払" Then

「ctlサブフォーム名」はメインフォームのサブフォームを
表示するコントロールの名前で作成時は「埋め込み0」などと
名前がついている部分です。直接、サブフォームの名前は
書きません。

サブフォームが帳票形式やデータシート形式の場合は
サブフォームのカレントレコード、すなわち
サブフォームの左の黒い三角のマークがついているレコードが
対象になります。単票形式の場合は表示されたレコードが
カレントレコードです。

(2)
以下はテキストボックスBに「支払」という文字が含まれている場合
です。(1)と同様にカレントレコードに対してです。

Private Sub t1_GotFocus()
If Forms!フォーム名!ctlサブフォーム名!テキストボックスB Like "*" & "支払" & "*" Then

回答No.1

nicotinism

テキストボックスＡがメインフォームにあり
テキストボックスＢがサブフォームにあって
その値が「支払」である
（「ほにゃ支払らら・・」などの余計な文字は含んでいないとします）

フォーカス取得後イベントではなく
サブフォームのレコード移動時イベントに加えてみてください。

Forms!メインフォーム名!テキストボックスＡ名.Visible = Forms!メインフォーム名!サブフォーム名!テキストボックスＢ名 = "支払"

当方Acc2002です。