Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1073 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【8876】サブフォームのコントロール可視制御 雅 06/12/7(木) 17:37 質問[未読]
【8882】Re:サブフォームのコントロール可視制御 飛ばない豚 06/12/8(金) 9:59 発言[未読]
【8886】Re:サブフォームのコントロール可視制御 雅 06/12/9(土) 15:47 発言[未読]
【8888】Re:サブフォームのコントロール可視制御 雅@どっかの所長 06/12/10(日) 21:37 発言[未読]
【8890】Re:サブフォームのコントロール可視制御 雅 06/12/10(日) 21:49 お礼[未読]
【8891】Re:サブフォームのコントロール可視制御 雅 06/12/11(月) 10:25 発言[未読]
【8892】Re:サブフォームのコントロール可視制御 雅 06/12/11(月) 10:38 発言[未読]
【8894】Re:サブフォームのコントロール可視制御 雅 06/12/11(月) 12:37 お礼[未読]
【8876】サブフォームのコントロール可視制御
質問  雅  - 06/12/7(木) 17:37 -
引用なし
パスワード
   メインフォームのテキストボックス(A)の値によって、サブフォームのコントロール(B)の可視を切り替えたいのですが、うまくいきません。何がいけないのでしょうか。

If A.Value = 1 Then
　　 Forms!メインフォーム!サブフォーム.Form!B.Visible = False
Else
　　 Forms!メインフォーム!サブフォーム.Form!B.Visible = true
End If

上記では、全く可視を制御できず、変わりに変数の値を変化させて、サブフォームの読み込み時のイベントで可視を切り替えると、２回目以降の読み込み時には制御できるのです。RequeryやRepaintなど、いろいろやってみましたが・・・
どなたか、教えていただけますか。
【8882】Re:サブフォームのコントロール可視制御
発言  飛ばない豚  - 06/12/8(金) 9:59 -
引用なし
パスワード
   ▼雅 さん：
If〜の行の前に
Drbug.Print A.Value
を入れて処理を実行し、A.Valueの値を見てみて下さい。
A.Valueは希望の値になっていますか？

確認してみてください。(^･ω･^)
【8886】Re:サブフォームのコントロール可視制御
発言  雅  - 06/12/9(土) 15:47 -
引用なし
パスワード
   ▼飛ばない豚 さん：

投稿後、急用で出かけてしまいました。遅くなりましたこと
ご無礼お許しください。ご指摘の点ですが、希望の値になっ
ています。フォームを開き直すと可視が切り替わるのですが
RequeryやRepaintを使っても、うまく機能しません。

>▼雅 さん：
>If〜の行の前に
>Drbug.Print A.Value
>を入れて処理を実行し、A.Valueの値を見てみて下さい。
>A.Valueは希望の値になっていますか？
>
>確認してみてください。(^･ω･^)
【8888】Re:サブフォームのコントロール可視制御
発言  雅@どっかの所長  - 06/12/10(日) 21:37 -
引用なし
パスワード
   こんにちわ。雅です。

何のイベントで行っているかを書くといいかもしれませんね。

でわ。
【8890】Re:サブフォームのコントロール可視制御
お礼  雅  - 06/12/10(日) 21:49 -
引用なし
パスワード
   ▼雅@どっかの所長 さん：

コマンドボタンのクリックイベントです。

>こんにちわ。雅です。
>
>何のイベントで行っているかを書くといいかもしれませんね。
>
>でわ。
【8891】Re:サブフォームのコントロール可視制御
発言  雅  - 06/12/11(月) 10:25 -
引用なし
パスワード
   こんにちわ。雅です。

> If A.Value = 1 Then
> 　　 Forms!メインフォーム!サブフォーム.Form!B.Visible = False
> Else
> 　　 Forms!メインフォーム!サブフォーム.Form!B.Visible = true
> End If

これをコマンドボタンのクリックイベントに書いてますか？

でわ。
【8892】Re:サブフォームのコントロール可視制御
発言  雅  - 06/12/11(月) 10:38 -
引用なし
パスワード
   ▼雅 さん：

はい。書いているのですが、うまく機能しません。ただ、フォームを開き直す
と可視が切り替わるのです。RequeryやRepaintを使えばいいのかと思い、これ
もやってみましたが、結果は駄目でした。

>こんにちわ。雅です。
>
>> If A.Value = 1 Then
>> 　　 Forms!メインフォーム!サブフォーム.Form!B.Visible = False
>> Else
>> 　　 Forms!メインフォーム!サブフォーム.Form!B.Visible = true
>> End If
>
>これをコマンドボタンのクリックイベントに書いてますか？
>
>でわ。
【8894】Re:サブフォームのコントロール可視制御
お礼  雅  - 06/12/11(月) 12:37 -
引用なし
パスワード
   雅さん、飛ばない豚さん

いろいろありがとうございました。フォームのコントロールを貼り直して
再度ソースを書き直したら、うまく動きました。こんなことがあるのかっ
て思いますが、原因は全くわかりません。ウォッチ式で対象コントロール
の可視状態を見たりしていたのですが、途中でどういう訳か、「このコン
トロールのプロパティに対象のメソッドはサポートされていません」???
と出ました。その前にウォッチ式で見ていたときは、可視をFalseにセット
しているのにTrueとなっていたり・・・　何が何だか解らないまま、解決
してしまい、すっきりしないのですが、とりあえずOKとなりました。

お忙しいところ、いろいろありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1073 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1078206
(SS)C-BOARD v3.8 is Free