こんばんは。 回答します。 以下の説明に沿って作業をしてください。 手順は多くはありませんが、確実に行うことが重要です。 クラスモジュールを使った省力化の方法を紹介します。慣れたらほかでも使えると思います。 最後に説明を加えますので、そちらもよく読んでください。 あるチェックボックスをクリックした時はほかのチェックボックスも同じ値にする、というものです。 質問ではなぜか、chk_02が抜けてますが、このコードではchk_02も処理しています。 1. クラスモジュールを新規作成して、以下のコードをコピペします。 Option Compare Database Option Explicit Dim FControl As Control Dim WithEvents FCheckBox As CheckBox Public Sub Connect(Control As Control) Set FControl = Control If TypeOf Control Is CheckBox Then Set FCheckBox = Control End If FControl.AfterUpdate = "[Event Procedure]" End Sub Private Sub AfterUpdate() Dim i As Integer Dim n As String Dim flg As Boolean Dim frm As Form Set frm = FControl.Parent n = Right(FControl.Name, 2) flg = FControl.Value For i = 1 To 5 If CInt(n) <> i Then frm.Controls("chk_" & Format(i, "00")).Value = flg 'CurrentDb.Execute "UPDATE " End If Next i 'MsgBox FControl.Name End Sub Private Sub FCheckBox_AfterUpdate() AfterUpdate End Sub コードはここまで。 これを CCheckBox という名前で保存します。 2. もうひとつクラスモジュールを新規作成して、以下のコードをコピペします。 Option Compare Database Option Explicit Dim Collection As New Collection Public Sub Connect(frm As Form) Dim CCheckBox As CCheckBox Dim cnt As Control For Each cnt In frm.Controls If cnt.ControlType = 106 Then Set CCheckBox = New CCheckBox CCheckBox.Connect cnt Collection.Add CCheckBox End If Next cnt End Sub コードはここまで。 これを CCheckBoxes という名前で保存します。 3. チェックボックスがたくさんあるフォームの宣言セクションに次の一行を追加します。 Private CCheckBoxes As New CCheckBoxes 4. 同じフォームのOpenイベントに次の一行を追加します。 CCheckBoxes.Connect Me コードはここまで。 これでコードはすべてです。 これだけでご希望の処理はすべて実行できます。 ただし、上記1.のクラスモジュールのAfterUpdateプロシージャの中のFor文に注目してください。 このコードでは 1 to 5 としてありますが、5を26とか27とか適当に変えてください。 もうひとつ、 CurrentDb.Execute "UPDATE "の続きを入力して完成させてください。その上で、コメントの「‘」をはずしてください。 更新するのは、そのチェックボックスに対応するフィールドだけでいいです。 このプロシージャの最後の MsgBox はコメントアウトしてありますが、クリックしたチェックボックスの名前を表示するものです。テスト用。 DAOを使っています。参照設定をよろしく。 ちなみに、クラスモジュールは「作成」タブにあります。 クラスモジュールを使えるようになるとここまで省力化できるので参考になれば。 以上です。 不明な点があったら返信ください。