チェックボックスの列全体を選択解除するにはどうすればよいですか？

Question

チェックボックスの列全体をオフにするにはどうすればよいですか？ アクセステーブルの各レコードにチェックボックスがあるフィールドがありますが、時間が経過するとチェックボックスが表示されますが、最後にリセットすると、すべてのボックスのチェックボックスをオフにする分割フォームにボタンを配置します。ボタンを使用して

それはテーブルの上に2番目のフィールド「アカウンティング」「tblData1」であると私は、フォームからそれを制御したい「frmMain」「cmdResetAcct」

事前にありがとうございます！

Answer 1

UPDATEクエリを実行します。

CurrentDb.Execute "UPDATE tblData1 SET Acct = False WHERE Acct <> False" 

WHERE句を使用すると、チェックされた行だけが書き込まれるため、効率が向上します。

Answer 2

あなたはすでにあなたのボタンのクリック時イベントに直接持っているレコードセットを使用することができます。

Dim rs As DAO.Recordset 

Set rs = Me.RecordsetClone 
If rs.RecordCount > 0 Then 
    rs.MoveFirst 
End If 

While Not rs.EOF 
    If rs!Acct.Value = True Then 
     rs.Edit 
      rs!Acct.Value = False 
     rs.Update 
    End If 
    rs.MoveNext 
Wend 

Set rs = Nothing 

これは非常に高速であり、そして、あなたのフォームが即座に更新します。