Свойство «Блокировка (Locked)»

Применяется к
Access для Microsoft 365 Access 2024 Access 2021 Access 2019 Access 2016

Применение

Объект BoundObjectFrame Объект OptionButton
Объект CheckBox Объект OptionGroup
Объект ComboBox Объект SubForm
Объект CustomControl Объект TextBox
Объект ListBox Объект ToggleButton
Объект ObjectFrame

Свойство Locked (Блокировка) определяет возможность изменения данных в элементе управления в режиме формы. Свойство имеет значение типа Boolean, доступное для чтения или записи.

        
      

выражение.Locked

Выражение Обязательно. Выражение, возвращающее один из объектов в списке Применяется к.

Замечания

Свойство Locked может принимать следующие значения:

Параметр Visual Basic Описание
Да True (Значение по умолчанию для свободных рамок объектов.) Обычный режим работы элемента управления, но без возможности изменения, добавления или удаления данных.
Нет False (Значение по умолчанию для всех элементов управления, кроме свободных рамок объектов.) Обычный режим работы элемента управления с возможностью изменения, добавления и удаления данных.

Эти свойства можно задать с помощью листа свойств формы, макроса или кода Visual Basic для приложений (VBA).

Используйте свойство Locked для защиты данных в поле, сделав их доступными только для чтения. Например, может быть нужно, чтобы элемент управления только отображал сведения, не позволяя их изменять, или был заблокирован до выполнения определенного условия.

Пример

В приведенном ниже примере показано переключение свойства Enabled (Доступ) кнопки и свойств Enabled и Locked элемента управления в зависимости от типа сотрудника, отображаемого в текущей записи. Если сотрудник является руководителем, кнопка SalaryDetails доступна, а элемент управления PersonalInfo разблокирован и доступен.

Sub Form_Current()
    If Me!EmployeeType = "Manager" Then
        Me!SalaryDetails.Enabled = True
        Me!PersonalInfo.Enabled = True
        Me!PersonalInfo.Locked = False
    Else
        Me!SalaryDetails.Enabled = False
        Me!PersonalInfo.Enabled = False
        Me!PersonalInfo.Locked = True
    End If
End Sub