Access VBA教程:Dirty属性

可以使用 Dirty属性来决定当前记录自从上次保存之后是否修改过。例如,可能要询问用户是否保存对这些记录的更改,如果选择“否”,所做的更改则不会保存。Boolean 类型,可读/写。

expression.Dirty

expression   必需。返回“Applies To”列表中的一个对象的表达式。

说明

Dirty属性使用以下设置:

设置 Visual Basic 说明
True True  当前记录已更改。
False False  当前记录未更改。

此属性在“窗体”视图和“数据表”视图中可用。

此属性可以使用Visual Basic 读取或设置。

如果记录已保存,Microsoft Access 将 Dirty属性设置为 False;如果用户更改记录,则该属性将设置为 True。

VBA示例

以下示例在数据更改时将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

上页:Access VBA教程:Dir属性(数据访问页) 下页:Access VBA教程:DisplayControl属性

Access VBA教程:Dirty属性

Access VBA教程:DisplayControl属性 Access VBA教程:DisplayType属性
Access VBA教程:DisplayWhen属性 Access VBA教程:DividingLines属性
Access VBA教程:DoCmd属性 Access VBA教程:Document属性
Access VBA教程:DownloadComponents属性 Access VBA教程:DrawMode属性
Access VBA教程:DrawStyle属性 Access VBA教程:DrawWidth属性
Access VBA教程:DriverName属性 Access VBA教程:Duplex属性
Access VBA教程:EmailSubject属性 Access VBA教程:Enabled属性
Access VBA教程:Encoding属性 Access VBA教程:EnterKeyBehavior属性
Access VBA教程:Error属性(快照查看器) Access VBA教程:EventProcPrefix属性
Access VBA教程:事件属性 Access VBA教程:事件属性及其应用的对象
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号