ник: АлексейAlex
ну вот все вышло, спасибо.
Option Explicit
Private blnPressed As Boolean
Private Sub Добавление_записи_Click()
blnPressed = Not blnPressed
Me.AllowAdditions = blnPressed
DoCmd.GoToRecord , , acNewRec
End Sub
Private Sub Form_Current()
If blnPressed Then Me.AllowAdditions = True Else Me.AllowAdditions = False
End Sub
|