Question

如何取消选中整列复选框？我的访问表中的每个记录中都有一个字段，其中有一个复选框，随着时间的推移，我复选框，但最后要重置，我想在拆分表单上放置一个按钮，取消选中所有框。

这是第二个领域＆＃34; Acct＆＃34;在桌子上＆＃34; tblData1＆＃34;我希望从表格中控制它＆＃34; frmMain＆＃34;使用按钮＆＃34; cmdResetAcct＆＃34;

提前谢谢！

Answer 1

您可以直接在按钮的 OnClick 事件中使用您已拥有的记录集：

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

速度非常快，您的表单会立即更新。

Answer 2

运行UPDATE查询。

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

WHERE子句使其更有效，因为只写入了已检查的行。

如何取消选中整列复选框？

2 个答案: