Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
[blue] Dim Msg As String, Style As Integer, Title As String
Dim DL As String, Cri As String
DL = vbNewLine & vbNewLine
Cri = "[[purple][b][i]ClientID[/i][/b][/purple]] = " & Me![purple][b][i]ClientID[/i][/b][/purple] & " AND " & _
"[![purple][b][i]CheckboxName[/i][/b][/purple]] = true"
If DCount([[purple][b][i]ClientID[/i][/b][/purple]], "[purple][b][i]TableName[/i][/b][/purple]", Cri) > 0 Then
Msg = "Only One Checkbox Selection Allowed!" & DL & _
"Remember this for future reference . . ."
Style = vbCritical + vbOKOnly
Title = "Checkbox Count Error! . . ."
MsgBox Msg, Style, Title
[b]Cancel = True[/b]
End If[/blue]