コードの応用編を教えてください！

質問

windows-xp、アクセス2003、を使っています。

チェックボックスの下記コードの応用編を教えてください。

フォームを開き、チェックボックスを置きました。そして名前を、正従業員は「CH01」バイトは「CH02」としたとします。

Private Sub CH01_Click()
If CH01 = -1 Then CH02 = 0
'CH01がクリックされたとき、CH01にチェックが入っていればCH02のチェックを消す
End Sub

Private Sub CH02_Click()
If CH02 = -1 Then CH01 = 0
'CH02がクリックされたとき、CH02にチェックが入っていればCH01のチェックを消す
End Sub

という記述をすると、片方チェックがされ、片方が消えます。ここまではわかったのですが・・・
次に、パート「CH03」を加えて３択にした場合は、どのようなコードを書けばよいでしょうか？
もちろん、どれか１つ選択すると、残りの２つが消えるという動きにしたいです。

どなたかわかる方、お教えください。
宜しくお願い致します。

回答No.1

mwatana2 · ベストアンサー

これでいいんじゃないでしょうか？

Private Sub CH01_Click()
If CH01 = -1 Then
CH02 = 0
CH03 = 0
End If
End Sub

Private Sub CH02_Click()
If CH02 = -1 Then
CH01 = 0
CH03 = 0
End If
End Sub

Private Sub CH03_Click()
If CH03 = -1 Then
CH01 = 0
CH02 = 0
End If
End Sub

お礼

できました！！
またひとつ勉強になりました。
ありがとうございました！！