Applies ToAccess для 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 IfEnd Sub

Нужна дополнительная помощь?

Нужны дополнительные параметры?

Изучите преимущества подписки, просмотрите учебные курсы, узнайте, как защитить свое устройство и т. д.

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