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

上記では、全く可視を制御できず、変わりに変数の値を変化させて、サブフォームの読み込み時のイベントで可視を切り替えると、2回目以降の読み込み時には制御できるのです。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 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
1078210
(SS)C-BOARD v3.8 is Free