Властивість «Дозволити додавання» (AllowAdditions)

Стосується

За допомогою властивості AllowAdditions можна вказувати, чи користувач може додавати запис під час використання форма. Логічний вираз (читання й записування).

вираз.AllowAdditions

expression — обов’язковий аргумент. Вираз, який повертає один з об'єктів у списку "Застосовується до".

Значення

Властивість AllowAdditions може мати наведені нижче значення.

Ви можете задати властивість AllowAdditions, використовуючи вікно властивостей форми, макрос або код Visual Basic for Applications (VBA).

Примітки

Установіть для властивості AllowAdditions значення No (Ні), щоб дозволити користувачам переглядати або редагувати наявні записи, але не додавати нові.

Якщо ви хочете заборонити змінення наявних записів (зробити форму доступною лише для читання), установіть для властивостей AllowAdditions, AllowDeletions і AllowEdits значення No (Ні). Щоб зробити записи доступними лише для читання, також можна встановити для властивості RecordsetType значення Snapshot (Знімок).

Якщо ви бажаєте відкрити форму лише для введення даних, установіть для властивості DataEntry значення Yes (Так).

Коли для властивості AllowAdditions установлено значення No (Ні), команда Створити запис у розділі Записи на вкладці Дані недоступна.

• AllowEdits – Yes (Так)

• AllowDeletions – Yes (Так)

• AllowAdditions – Yes (Так)

• DataEntry – No (Ні)

Щоб заборонити перевизначення будь-яких із цих наявних властивостей дією OpenForm, не задавайте аргумент Data Mode. У такому разі Access використовуватиме значення властивості, які визначає форма.

Приклад

У наведеному нижче прикладі виконується перевірка властивості ControlType для всіх елементів керування у формі. Для кожного елемента керування "надпис" і "текстове поле" процедура перемикає властивість SpecialEffect. Коли для властивості SpecialEffect елемента керування "надпис" установлено значення Shadowed і для властивості SpecialEffect елемента керування "текстове поле" установлено значення Normal, а для властивостей 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