适用于
|
Form 对象 |
|---|
|
Report 对象 |
可使用 Dirty 属性来确定自上次保存后是否修改过当前记录。 例如，可能要询问用户是否想要更改记录，如果不，则不会保存所做的更改。 布尔型，可读/写。
表达式.Dirty
表达式 必需。 返回“适用范围”列表中的对象之一的表达式。
备注
Dirty 属性使用以下设置。
|
设置 |
Visual Basic |
说明 |
|---|---|---|
|
正确 |
True |
当前记录已更改。 |
|
False |
False |
当前记录未更改。 |
此属性在窗体视图和数据表视图中可用。
此属性使用宏或 Visual Basic for Applications (VBA) 代码设置或读取。
保存记录时，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
