☰

根据 Access 中选中的其他复选框来选中复选框

tag-icon • tag-icon microsoft-access-2010
根据 Access 中选中的其他复选框来选中复选框

我在 Access 2010 中有一个表单，其中有一个名为 DR Process 的复选框字段，然后我还有 25 个其他复选框字段，如果选中这些字段，我希望 DR Process 复选框自动选中。此外，如果选中 25 个字段中的一个，然后取消选中，则应该取消选中 DR Process 复选框。有办法吗？

谢谢

答案1

您为控件描述的行为听起来类似于具有多个复选框的行为，并附带一个全选checkbox 同时启用或禁用集合中的所有复选框：

全选

为了实现这一点，我相信您需要在After Update控件的各种事件处理程序中使用一些 VBA 代码。

在以下示例中，我假设您有一组复选框，分别称为chk1、chk2和，chk3以及一个全选复选框调用chkA（但是，通过简单地增加循环的上限，可以将其扩展到任意数量的复选框For）。

然后您可以使用以下两个函数实现所需的行为：

将所有选项复选框切换为给定值的函数：

Function ToggleAll(v As Integer)
    Dim i As Integer
    For i = 1 To 3
        Controls("chk" & i).Value = v
    Next i
End Function

用于测试所有选项复选框是否已启用并启用或禁用的函数全选相应的复选框：

Function AllEnabled()
    Dim i As Integer, v As Integer: v = -1
    For i = 1 To 3
        v = v * Abs(Controls("chk" & i).Value)
    Next i
    chkA.Value = v
End Function

然后，您只需从After Update控件的事件处理程序中评估上述函数：

Private Sub chk1_AfterUpdate()
    AllEnabled
End Sub

Private Sub chk2_AfterUpdate()
    AllEnabled
End Sub

Private Sub chk3_AfterUpdate()
    AllEnabled
End Sub

Private Sub chkA_AfterUpdate()
    ToggleAll chkA
End Sub

在这里，每次更改单个选项复选框的值时，该AllEnabled函数都会检查所有选项复选框是否已启用，并设置全选复选框。

当全选checkbox( chkA) 被修改时，ToggleAll函数被评估，同时启用或禁用表单上所有选项复选框的设置。

相关内容