ник: Lukas
Да.
На примере флажка Action, в модуле формы.
Private Sub Action_AfterUpdate()
AllowAll
End Sub
Private Sub Form_Current()
AllowAll
End Sub
Private Sub AllowAll()
Dim blnAllow As Boolean
blnAllow = Me.Action
Me.AllowDeletions = blnAllow
Me.AllowEdits = blnAllow
End Sub
|