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

Применение

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

выражение.Dirty

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

Замечания

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

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

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

При сохранении записи Access устанавливает для свойства Dirty значение False. При изменении записи пользователем значение меняется на Истина.

Пример

В следующем примере кнопка 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