Access 2007 表单：撤销后的事件

Question

我在 Access 2007 中有一个表单，它有一个“更新”例程，可以根据其他字段（文本框、复选框、组合框）中的值启用或禁用某些文本框。 该例程的常规操作效果很好。

现在我发现按 ESC 会调用撤消功能，该功能会恢复所有字段中的原始值。 但是此撤消不会调用这些字段上的事件，因此表单处于错误状态，其中文本框被禁用/启用，尽管它们不应该。

我还发现有一个撤消事件，但这对我来说没有用，因为它在撤消之前被调用。 撤消后我需要一个事件。 当按下 ESC 时，我可以在这里做什么来更新字段？

Answer 1

我更喜欢这个解决方案，因为它不仅适用于“ESC”-Key：

private Sub form_Undo(cancel as integer)

  afterUndo = true

  TimerInterval = 1

end Sub

private Sub Form_Timer()

  if afterUndo then

    'do something after the Undo-Event

  end if

  TimerInterval = 0

end Sub 

Answer 2

好吧，就像在我提出问题后找到解决方案之前的很多次一样。

此处的解决方案是在表单上启用 KeyPreview 并使用 KeyUp 事件。 在 KeyDown 上调用撤消，因此当 KeyUp 被引发时，表单已经再次具有恢复的值并且更新例程起作用。

Answer 3

此问题的另一个解决方案是使用每个控件的OldValue属性。 通过实验，我发现控件的三种不同的值属性在不同的情况下发挥作用：

• Control.Value或简单的Control

  • 大多数时候控件的当前值
  • 当控件获得焦点时，它是控件获得焦点之前的值
  • 在Form.Undo事件期间，它是控件在 Undo 之前的值
  • 在Control.AfterUpdate和Control.Undo事件期间相关

• Control.Text

  • 控件具有焦点时的值
  • 与用户键入时发生的事件相关，例如Control.Change 、 Control.KeyUp 、 Control.KeyDown

• Control.OldValue

  • 当前记录第一次打开时控件的值
  • 也是表单级撤消将控件重置为的值
  • 在Form.Undo事件期间相关

这个问题的基于计时器的答案是我的首选解决方案，但如果您已经在处理用户键入的事件（例如，用于实时验证），那么像这样的代码可能是明智的：

Private Sub LastName_Change()
    ValidateLastName SourceProperty:="Text"
End Sub

Private Sub LastName_Undo(Cancel As Integer)
    ValidateLastName SourceProperty:="Value"
End Sub

Private Sub Form_Undo(Cancel As Integer)
    ValidateLastName SourceProperty:="OldValue"
End Sub

Private Sub ValidateLastName(SourceProperty As Variant)
    Dim LastName As String
    Select Case SourceProperty
        Case "LastName"
            LastName = Nz(Me.LastName.Text, "")
        Case "Value"
            LastName = Nz(Me.LastName.Value, "")
        Case "OldValue"
            LastName = Nz(Me.LastName.OldValue, "")
        Case Else
            Debug.Print "Invalid case in ValidateLastName"
            Exit Sub
    End Select

    ' <Do something to validate LastName>
End Sub

请注意，此方法不会让您访问组合/列表框的Control.Column(x)的表单撤消后值。 您可以通过在Control.OldValue上使用DLOOKUP来获得它，但您最好只使用基于计时器的解决方案。