（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 回答日時： 2010/07/16 18:04

訂正。

(2)のところで、

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

になっていましたが、


Private Sub t1_GotFocus()

を、

Private Sub AA_GotFocus()

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

この回答へのお礼

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

お礼日時：2010/07/26 18:01

No.2 回答者： piroin654 回答日時： 2010/07/16 13:43

（１）はテキストボックス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 回答日時： 2010/07/16 11:38

テキストボックスＡがメインフォームにあり

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

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

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

当方Acc2002です。