Fatal编程技术网
  • ms-access/
  • Ms access 用户只能在MSAccess 2013中标记两个复选框

Ms access 用户只能在MSAccess 2013中标记两个复选框

ms-access checkbox

Ms access 用户只能在MSAccess 2013中标记两个复选框,ms-access,checkbox,limit,Ms Access,Checkbox,Limit,我有一个由四个复选框组成的表单。我希望最终用户一次只能标记两个复选框。如果他尝试这样做，那么他会收到消息框，通知一次选择的框不超过两个。请帮助我使MSAccess成为可能。在开头添加： Dim checks As Long Public Sub BUpdate(Cancel As Integer) Dim ch As Boolean ch = Screen.ActiveControl.Value Debug.Print ch

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

在开头添加：

    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
对于每个复选框，请在更新前的
事件中写入以下内容：


   BUpdate Cancel



这种方法将一直有效，直到您选中一些框并在“设计”视图中来回切换。
我已在表单属性的BU事件中添加了此代码。但是什么也没发生！此行
BUpdate Cancel
将插入每个
复选框的
更新前事件中