Поделиться через


Свойство Report.Dirty (Access)

Используйте свойство Dirty , чтобы определить, была ли изменена текущая запись с момента ее последнего сохранения. Для чтения и записи, Boolean.

Синтаксис

expression. Грязные

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

Замечания

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

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

Пример

В следующем примере кнопка 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 VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.