用户只能标记MSAccess 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 

这样会工作，直到你将检查一些箱子和开关设计视图和回。