Применение
Объект Form |
Объект Report |
Свойство Dirty (Внесены изменения) позволяет узнать, была ли изменена текущая запись с момента ее последнего сохранения. Например, можно спросить пользователя, не были ли изменения внесены непреднамеренно, и, если да, разрешить ему перейти к следующей записи без сохранения изменений. Свойство имеет значение типа Boolean, доступное для чтения или записи.
выражение.Dirty
Выражение Обязательный. Выражение, возвращающее один из объектов в списке Применяется к.
Замечания
Свойство Dirty может принимать следующие значения:
Значение |
Visual Basic |
Описание |
True |
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