【Access示例】OldValue 属性详解-杨雪专栏

附件下载

使用 OldValue属性可以确定绑定控件中未编辑的值。Variant 型，只读。

expression.OldValue

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

说明

OldValue属性包含的是绑定控件中未编辑的数据，它在所有视图中都为只读。

只有在使用宏或Visual Basic 时才可以访问该属性。

通过使用以下语法，可以将 OldValue属性赋给一个变量。

OriginalValue = Forms!Customers!AmountPaid.OldValue

Microsoft Access 使用 OldValue属性来存储绑定控件的原始值。在编辑窗体上的绑定控件时，必须在移到其他记录之后，所作更改才能保存。OldValue属性包含的是基础数据编辑前的原始值。

通过将 OldValue属性设置指派给控件，可以为控件提供撤消功能。

示例一：

下面的示例显示如何撤消对窗体的文本框控件所作的更改：

GIF动画图：

Private Sub btnUndo_Click()
     Dim ctlTextbox As Control
     For Each ctlTextbox in Me.Controls
     If ctlTextbox.ControlType = acTextBox Then
        ctlTextbox.Value = ctlTextbox.OldValue
     End If
     Next ctlTextbox
End Sub

如果控件尚未编辑，该代码就不起作用。当移动到其他记录时，记录源将更新，这样当前值和 OldValue属性就一样了。

OldValue属性设置与控件绑定到的字段有相同的数据类型。

示例二：

下面的示例检查字段中新输入的数据，确定新值是否在原始数据值的 10% 之内。如果更改大于 10%，则使用 OldValue属性还原初始值。下列过程可以从包含要验证数据的控件的 AfterUpdate事件中调用。

GIF动画图：