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

  • Статья

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

Синтаксис

expression. AllowDeletions

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

Замечания

Для этого свойства можно задать значение Нет, чтобы разрешить пользователям просматривать и изменять существующие записи, но не удалять их. Если параметр AllowDeletions имеет значение Да, записи могут быть удалены до тех пор, пока существующие правила целостности ссылок не нарушены.

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

Если для свойства AllowDeletions задано значение Нет, команда Удалить запись в меню Правка недоступна.

Примечание.

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

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

Чтобы действие OpenForm не переопределяло какие-либо из этих существующих параметров свойства, опустите параметр аргумента DataMode , чтобы access использовал параметры свойств, определенные формой.

Пример

В следующем примере проверяется свойство 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 и обратная связь.