用户只能在MS Access 2013中标记两个复选框

Question

我的表单由四个复选框组成。我希望最终用户一次只能标记两个复选框。如果他试图这样做，那么他会得到消息框，通知一次选择的框不超过两个。请帮助我在MSAccess中实现。

Answer 1

在开头添加：

    Dim checks As Long

    Public Sub BUpdate(Cancel As Integer)

        Dim ch As Boolean

        ch = Screen.ActiveControl.Value

        Debug.Print ch

        If ch Then
            checks = checks + 1
        Else
            checks = checks - 1
        End If

        If checks > 2 Then
            Cancel = 1
            MsgBox "qwe"
        End If
    Debug.Print checks
    End Sub

并为每个复选框在beforeupdate事件中写下此内容：

   BUpdate Cancel

这种方式一直有效，直到您检查一些方框并切换设计视图并返回。