全部显示

OldValue 属性

       

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

expression.OldValue

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

说明

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

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

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

OriginalValue = Forms!Customers!AmountPaid.OldValue

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

通过将 OldValue 属性设置指派给控件,可以为控件提供撤消功能。下面的示例显示如何撤消对窗体的文本框控件所作的更改:

Private Sub btnUndo_Click()

     Dim ctlTextbox As Control

     For Each ctlTextbox in Me.Controls
     If ctlTextbox.ControlType = acTextBox Then
        ctlTextbox.Value = ctl.OldValue
     End If
     Next ctlTextbox

End Sub

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

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

示例

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

Public Sub Validate_Field()

    Dim curNewValue As Currency
    Dim curOriginalValue As Currency
    Dim curChange As Currency
    Dim strMsg As String
    
    curNewValue = Forms!Products!UnitPrice
    curOriginalValue = Forms!Products!UnitPrice.OldValue
    curChange = Abs(curNewValue - curOriginalValue)

    If curChange > (curOriginalValue * .1) Then
        strMsg = "Change is more than 10% of original unit price. " _ 
        & "Restoring original unit price."
        MsgBox strMsg, vbExclamation, "Invalid change."
        Forms!Products!UnitPrice = curOriginalValue
    End If

End Sub