Как запретить ручное изменение флажка?

Пробовал

Private Sub Zflag1_Click() Dim b As Boolean Me!Zflag1 = b . . . . . b = Me!Zflag1 End Sub

Глючит,тварь.Может,есть способ попроще или похитрее?

Private Sub Кнопка5_Click()
Me.flag1.Value = Not Me.flag1.Value
End Sub


_____________________________________
Мое конг-фу сильнее твоего

Sorry, naoborot:

Private Sub Zflag1_Click()
Dim b As Boolean

b = Me!Zflag1

Me!Zflag1 = b
End Sub

Не работает че-то: при первом нажатии все равно меняет, потом нет.

Блокировка - Да
имелось ввиду

_____________________________________
Мое конг-фу сильнее твоего

Благодарствую, твое конг-фу меня порадовало.