Властивість «Дозволити редагування (AllowEdits)»

Застосовується до
Access для Microsoft 365 Access 2024 Access 2021 Access 2019 Access 2016

Стосується

Об’єкт Form

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

вираз.AllowEdits

Вираз Необхідні. Вираз, який повертає один з об'єктів у списку "Застосовується до".

Значення

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

Значення Visual Basic Опис
Так True Користувач може редагувати збережені записи (стандартне значення).
Ні False Користувач не може редагувати збережені записи.

      

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

Примітки

За допомогою властивості AllowEdits можна заборонити змінення наявних даних, які відображаються у формі. Якщо потрібно заборонити змінення даних в певному елементі керування, використовуйте властивість Enabled або Locked.

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

Якщо змінити значення поля програмними засобами, поточний запис буде доступний для редагування незалежно від значення властивості AllowEdits. Якщо необхідно заборонити користувачу вносити зміни до запису (значення Ні властивості AllowEdits), який потрібно редагувати програмними засобами, збережіть цей запис після внесення програмних змін: значення властивості AllowEdits знову буде застосовано після збереження всіх нових змін поточного запису.

Примітка.

Якщо встановити аргумент "Режим даних" дії "Відкрити форму", Microsoft Office Access 2007 перевизначить низку параметрів властивостей форми. Якщо для аргументу Data Mode дії OpenForm установлено значення Edit (Редагувати), Access відкриє форму з такими значеннями властивостей:

  • AllowEdits – Yes (Так)
  • AllowDeletions – Yes (Так)
  • AllowAdditions – Yes (Так)
  • DataEntry – No (Ні)

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

Приклад

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