使用 Undo 方法可以在控件或窗體的值被更改時進行重新設(shè)置。
expression.Undo
expression 必需。返回“應用于”列表中的一個對象的表達式。
例如,可以使用 Undo 方法來清除對某個包含無效輸入的記錄的更改。
如果將 Undo 方法應用于窗體,那么將失去對當前記錄的所有更改。如果 Undo 方法應用于控件,則只影響控件本身。
該方法必須在更新窗體或控件前應用??梢栽诖绑w的 BeforeUpdate 事件或控件的 Change 事件中包含該方法。
使用 Undo 方法可代替下列做法:在事件過程中使用 SendKeys 語句來發(fā)送 Esc 鍵的值。
下面的示例說明在一個控件的 Change 事件過程中,如何使用 Undo 方法,使一個名為 LastName 的字段由已更改的值重新設(shè)置為原始值。
Private Sub LastName_Change()
Me!LastName.Undo
End Sub
下一個示例,在一個窗體更新前,使用 Undo 方法重新設(shè)置對窗體的所有。
Private Sub Form_BeforeUpdate(Cancel As Integer)
Me.Undo
End Sub