Свойство Dirty (Внесены изменения)

Применение

Объект Form

Объект Report

Свойство Dirty (Внесены изменения) позволяет узнать, была ли изменена текущая запись с момента ее последнего сохранения. Например, можно спросить пользователя, не были ли изменения внесены непреднамеренно, и, если да, разрешить ему перейти к следующей записи без сохранения изменений. Свойство имеет значение типа Boolean, доступное для чтения или записи.

выражение.Dirty

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

Замечания

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

Значение

Visual Basic

Описание

Истина

True

Текущая запись была изменена.

Ложь

False

Текущая запись не была изменена.

Данное свойство доступно в представлении формы и режиме таблицы.

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

При сохранении записи Microsoft Office Access 2007задает для свойства Dirty значение Ложь. При изменении записи пользователем значение меняется на Истина.

Пример

В следующем примере кнопка btnUndo становится активной при изменении данных. Подпрограмма UndoEdits( ) вызывается из события AfterUpdate После обновления элементов управления "текстовое поле". При нажатии активной кнопки btnUndo происходит восстановление исходного значения элемента управления с помощью свойства OldValue (Старое значение).

Sub UndoEdits()
If Me.Dirty Then
Me!btnUndo.Enabled = True ' Enable button.
Else
Me!btnUndo.Enabled = False ' Disable button.
End If
End Sub
Sub btnUndo_Click()
Dim ctlC As Control
' For each control.
For Each ctlC in Me.Controls
If ctlC.ControlType = acTextBox Then
' Restore Old Value.
ctlC.Value = ctlC.OldValue
End If
Next ctlC
End Sub
Совершенствование навыков
Перейти к обучению
Первоочередный доступ к новым возможностям
Присоединиться к программе предварительной оценки Office

Были ли сведения полезными?

Спасибо за ваш отзыв!

Благодарим за отзыв! Возможно, будет полезно связать вас с одним из наших специалистов службы поддержки Office.

×