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