| |
|
|
| | Пример:
Private Sub Form_Current()
If нажата кнопка Then Me.AllowAdditions = True Else Me.AllowAdditions = False
End Sub
Пробовал так:
If Me.Добавить_запись_Click() = True Тогда то-то и то-то
Но это ошибка | |
| |
| |
| |
|
|
| |
Private Sub Выключатель4_AfterUpdate()
Me.AllowAdditions = Me.Выключатель4
End Sub
|
| |
| |
| |
| |
|
|
| | работает хорошо, спасибо.
но все же
а если через IF, а не через переключатель?
просто при включение формы, когда еще переключатель не обновлен, запись добавляется. Поэтому важно делать проверку всегда (то есть, я так думаю при событии "текущая запись"). | |
| |
| |
| |
|
|
| |
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
|
А в конструкторе запретить добавление изначально не пробовали? | |
| |
| |
| |
|
|
| | изменял по умолчании на Ложь, но акцесс видит изменение только если мышкой ткнешь. Хотя я вижу что галочки нет. у меня мозг уже закипел)) | |
| |
| |
| |
|
|
| | ну вот все вышло, спасибо.
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
|
| |
| |
| |
| |
|
|
| |
Private Sub Form_Current()
Me.AllowAdditions = blnPressed
End Sub
|
| |
| |
| |
| |
|
|
| | не выходит вот что:
1, при нажатии на кнопку, добавлять запись разрешается.
2, А нужно чтоб после добавления записи, запрет на добавление восстановился
я так думаю хорошо бы чтоб в свойствах формы "текущая запись" было условие ловящее момент нажатия
IF нажата тогда запись разрешена, а так, всегда добавление записи запрещено ( Me.AllowAdditions = false) а вот как прописать этот onClick (момент нажатия)??? | |
| |
| |
| |
 17 Кб. |
|
| | оказалось все просто: см. рисунок | |
| |
| |
