用戶只能標記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 

這樣會工作，直到你將檢查一些箱子和開關設計視圖和回。