Поделиться через

Свойство Form.AllowAdditions (Access)

  • Статья

Используйте свойство AllowAdditions , чтобы указать, может ли пользователь добавлять запись при использовании формы. Для чтения и записи, Boolean.

Синтаксис

expression. AllowAdditions

выражение: переменная, представляющая объект Form.

Замечания

Задайте для свойства AllowAdditions значение Нет, чтобы разрешить пользователям просматривать или изменять существующие записи, но не добавлять новые записи.

Если вы хотите предотвратить изменение существующих записей (сделать форму доступной только для чтения), задайте для свойств AllowAdditions, AllowDeletions и AllowEdits значение Нет. Вы также можете сделать записи доступными только для чтения, задав для свойства RecordsetType значение Snapshot.

Если вы хотите открыть форму только для ввода данных, задайте для свойства DataEntry формы значение Да.

Если для свойства AllowAdditions задано значение Нет, команда "Ввод данных" в меню "Записи" недоступна.

Примечание.

При использовании аргумента DataMode действия OpenForm Microsoft Access переопределит ряд параметров свойств формы. Если аргумент DataMode действия OpenForm имеет значение Изменить, Access откроет форму со следующими параметрами свойства:

  • AllowEdits — Да
  • AllowDeletions — Да
  • AllowAdditions — Да
  • DataEntry — нет

Пример

В следующем примере проверяется свойство ControlType для всех элементов управления в форме. Для каждого элемента управления "Метка" и "Текстовое поле" процедура переключает свойство SpecialEffect для этих элементов управления. Если свойство SpecialEffect элементов управления меткой имеет значение Shadowed, а свойство SpecialEffect текстового поля имеет значение Обычный, а свойства AllowAdditions, AllowDeletions и AllowEdits имеют значение True, intCanEdit переменная переключается, чтобы разрешить редактирование базовых данных.

Sub ToggleControl(frm As Form) 
 Dim ctl As Control 
 Dim intI As Integer, intCanEdit As Integer 
 Const conTransparent = 0 
 Const conWhite = 16777215 
 For Each ctl in frm.Controls 
 With ctl 
 Select Case .ControlType 
 Case acLabel 
 If .SpecialEffect = acEffectShadow Then 
 .SpecialEffect = acEffectNormal 
 .BorderStyle = conTransparent 
 intCanEdit = True 
 Else 
 .SpecialEffect = acEffectShadow 
 intCanEdit = False 
 End If 
 Case acTextBox 
 If .SpecialEffect = acEffectNormal Then 
 .SpecialEffect = acEffectSunken 
 .BackColor = conWhite 
 Else 
 .SpecialEffect = acEffectNormal 
 .BackColor = frm.Detail.BackColor 
 End If 
 End Select 
 End With 
 Next ctl 
 If intCanEdit = IFalse Then 
 With frm 
 .AllowAdditions = False 
 .AllowDeletions = False 
 .AllowEdits = False 
 End With 
 Else 
 With frm 
 .AllowAdditions = True 
 .AllowDeletions = True 
 .AllowEdits = True 
 End With 
 End If 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.