Access チェックボックスへのVBAの書き方

質問

□がチェックボックス、各項目はframeで囲ってあります。

＜項目１＞
A□　B□　C□　D□
＜項目２＞
A□　B□　C□　D□
＜項目３＞=======fraEF：このフレームの名前
E□　F□

●やりたいこと
１．画面を開けると＜項目１＞及び＜項目２＞のみ表示され、＜項目３＞は非表示（今のところこれはできています）
２．＜項目１＞及び＜項目２＞でCのチェックボックスにチェックをいれると＜項目３＞が表示され、EもしくはFに入力が必要（なんとなくできているのですが、も確実にしたい）

●現状プロシージャー
＜項目１＞＜項目２＞Cのプロシージャ-に
Private Sub チェックXXXXX_GotFocus()
fraEF.Visible = True
End Sub

とし、

それ以外は
Private Sub チェックXXXXX_GotFocus()
fraEF.Visible = False
End Sub

としています。

《改善したい点》
１．＜項目１＞でCにチェックをいれると、＜項目３＞のフレームとEFチェックはでる。しかし、＜項目２＞でチェックでA,B,Dを選ぶと、＜項目３＞とEFチェックが消えてしまう。＜項目１＞で選んだ場合は、残しておきたい。
２．＜項目１＞＜項目２＞でCをチェックした場合は、EFのチェックを忘れないようにエラーを発生させたい。

上記説明でわかりますでしょうか？
どうぞよろしくお願いいたします。

参考
●自分の持っている本によると、このような作業をするには、プロシージャーを更新後処理へとありますが、チェックボックスのプロパティには、【フォーカス取得後、フォーカス喪失後、マウスボタンクリック時、マウスボタン移動時、マウスボタン解放時、キークリック時、キー解放時、キー入力時】しかありません。

回答No.1

maruru01 · ベストアンサー

こんにちは。maruru01です。

フレームコントロールを使用しているのなら、処理を記述するのは、各チェックボックスではなく、
フレームコントロール自体のイベントです。
例えば、項目1の場合、項目1の各チェックボックスのプロパティの「オプション値」を見ると、1～4の整数が割り当てられています。
そして、フレームコントロールでオプショングループ化されていると、フレーム内の1つしかチェックを入れられません。
で、そのチェックが入っているチェックボックスのオプション値が、フレームコントロールのValueプロパティにセットされます。
項目2も同様です。
で、項目1と項目2のどちらかでCが選択されている場合に、項目3を表示させる場合は、

Private Sub fraKoumoku1_AfterUpdate()

　　If Me!fraKoumoku1.Value = 3 Or Me!fraKoumoku2.Value = 3 Then
　　　　Me!fraEF.Visible = True
　　Else
　　　　Me!fraEF.Visible = False
　　End If

End Sub

（両項目ともチェックボックス[C]のオプション値が3という仮定です。）
これを、項目2のフレーム（fraKoumoku2）の更新後処理イベントにも記述して下さい。

各チェックボックスのイベントは一切記述しません。

あと、改善したい点の2ですが、
・いつチェックしたいのか
・「エラーを発生」とは具体的にどのような動作をさせたいのか（MsgBoxを出す・・・etc）
をはっきりさせて下さい。

補足

早速の回答ありがとうございました。
Frameにイベントを記述し、きちんとできました!!!
「いつチェックしたいのか」説明不足ですみません。Frameに記述して問題は、解決しました。

このフォームでは条件を入力後、最終的にボタンを押すと任意の画面が出てくる設定です。「エラーを発生」は、項目１、項目２で　Cを選択したにもかかわらず、項目３で選択をしなかった場合、最終的にボタンをおしたとき「EまたはFをクリック選択してください」と出したいのです。

お時間ありましたら、また回答お願いいたします。

回答No.2

maruru01

>「エラーを発生」は、項目１、項目２で　Cを選択したにもかかわらず、
>項目３で選択をしなかった場合、最終的にボタンをおしたとき
>「EまたはFをクリック選択してください」と出したいのです。
直接の回答ではないですが。
項目3のフレーム（fraEF）の既定値にどちらかのチェックボックスのオプション値（1か2）を設定してはどうでしょうか？
それなら、フォームを開いた時に必ず設定した方のチェックボックスにチェックが入ります。
これなら、どちらにもチェックが入らないという状態は発生しませんが。

お礼

再度の回答ありがとうございます！エラー出すのはちょっと不安だったので、この方法は助かります。
またお世話になるかもしれませんがその時もよろしくお願いします。