Уважаемые коллеги! Во-первых, поздравляю всех участников форума и их близких с Новым Годом!
Ну и желаю соответственно все, что положено в таких случаях.

А, во-вторых, прошу помочь, что-то сам не догоняю в чем дело.
Единица к переменной плюсуется, но не минусуется!

Public intNumberOfOptCorrIsOn As Integer

Private Sub optSulfCorr_Click()
Me!optSulfCorr.Value = True
Let intNumberOfOptCorrIsOn = intNumberOfOptCorrIsOn + 1
End Sub

Private Sub optSulfCorr_DblClick(Cancel As Integer)
Me!optSulfCorr.Value = False
Let intNumberOfOptCorrIsOn = intNumberOfOptCorrIsOn - 1
End Sub

'Таких Click-DblClick 16 штук (на каждый ингредиент)

Private Sub cmdCheckAllOptCorrOn_Click()
If intNumberOfOptCorrIsOn = 0 Then
MsgBox "Не выбраны ингредиенты для сравнения", vbOKOnly
ElseIf intNumberOfOptCorrIsOn = 1 Then
MsgBox "Необходимо выбрать еще один ингредиент", vbOKOnly
ElseIf intNumberOfOptCorrIsOn = 2 Then
Me!cmdCheckCorr.SetFocus
Me!cmdCheckCorr.Enabled = True
ElseIf intNumberOfOptCorrIsOn > 2 Then
MsgBox "Можно выбрать только два ингредиента", vbOKOnly
Else
End If
End Sub

Ой, чой-то я про Click перед DoubleClick забыл...
Торопился, наверное, за праздничный стол.
Спасибо!
С наступившим!

Идея правильная, только надо чуть исправить:
Private Sub optSulfCorr_DblClick(Cancel As Integer)
Me!optSulfCorr.Value = False
Let intNumberOfOptCorrIsOn = intNumberOfOptCorrIsOn - 2
End Sub

Только я успокоился, как опять проблема. Ситуация, конечно, несколько надумана, но все же...
Private Sub optAmmSecond_Click()
Me!optAmmSecond.Value = True
Me!optAmm.Value = True
Let intNumberOfOptIngredientForSecondAxis = intNumberOfOptIngredientForSecondAxis + 1
End Sub

Private Sub optAmmSecond_DblClick(Cancel As Integer)
Me!optAmmSecond.Value = False
Let intNumberOfOptIngredientForSecondAxis = intNumberOfOptIngredientForSecondAxis - 2
End Sub
Попробовал БЫСТРО пощелкать на переключателе. Приложение реагирует неадекватно! Вроде как подвисает. Или при последующем Debug'е выдает, что значение intNumberOfOptIngredientForSecondAxis = -1! Впечатление, что в какой-то момент DblClick произошел без Click перед ним. Во-вторых, показывает, что Value этого переключателя = True, в то время как судя по отображению на форме должно быть False.

Кто-нибудь может посоветовать что-нибудь дельное по этому поводу?

Нет, ну как "надумана". Дело в том, что некоторые пользователи начинают думать "выбрать-не выбрать" и процесс размышления сопровождают щелчками мыши. Не париться, конечно, проще. Но грамотно работающее приложение должно предусматривать разные ситуации. "Кабина лифта должна выдерживать прямое попадание самого необученного академика".
А какие другие контролы я мог бы применить, чтобы разрешить эту проблему?
Я попробовал не присваивать значение переменной сразу после кликов:

Private Sub optSulfCorr_Click()
Me!optSulfCorr.Value = True
Rem Let intNumberOfOptCorrIsOn = intNumberOfOptCorrIsOn + 1
End Sub

Private Sub optSulfCorr_DblClick(Cancel As Integer)
Me!optSulfCorr.Value = False
Rem Let intNumberOfOptCorrIsOn = intNumberOfOptCorrIsOn - 1
End Sub

А проверку производить уже потом в зависимости от значения Value. Но и это не решило проблему (Value тоже воспринимается не так - см. выше)!