使用 Undo 方法可以在控件或窗体的值被更改时进行重新设置。
expression.Undo
expression 必需。返回“应用于”列表中的一个对象的表达式。
例如,可以使用 Undo 方法来清除对某个包含无效输入的记录的更改。
如果将 Undo 方法应用于窗体,那么将失去对当前记录的所有更改。如果 Undo 方法应用于控件,则只影响控件本身。
该方法必须在更新窗体或控件前应用。可以在窗体的 BeforeUpdate 事件或控件的 Change 事件中包含该方法。
使用 Undo 方法可代替下列做法:在事件过程中使用 SendKeys 语句来发送 Esc 键的值。
下面的示例说明在一个控件的 Change 事件过程中,如何使用 Undo 方法,使一个名为 LastName 的字段由已更改的值重新设置为原始值。
Private Sub LastName_Change()
Me!LastName.Undo
End Sub
下一个示例,在一个窗体更新前,使用 Undo 方法重新设置对窗体的所有。
Private Sub Form_BeforeUpdate(Cancel As Integer)
Me.Undo
End Sub