ник: Lukas
Option Compare Database
Option Explicit
Private blnPressed As Boolean
Private Sub btnAllow_Click()
blnPressed = Not blnPressed
If blnPressed Then
Me.btnAllow.Caption = "Разрешить"
Else
Me.btnAllow.Caption = "Запретить"
End If
End Sub
'Где-то: If blnPressed Then
|
А в конструкторе запретить добавление изначально не пробовали?