MS Access多行富文本框CTRL+Z功能异常问题求助

问题描述 #

• 使用绑定的多行富文本文本框（tbxNote）时，默认CTRL+Z行为不符合预期：第一次按下可撤销最近修改，第二次按下会直接恢复到文本框初始内容，而非逐步回溯修改，易造成数据丢失。
• 尝试通过表单KeyDown事件限制CTRL+Z仅执行一次，但出现异常：无论按下次数，保存记录时所有修改都会丢失，即使文本框显示的是修改后的内容。

用户原代码（表单KeyDown事件）：

If Shift = acCtrlMask And KeyCode = vbKeyZ Then
    If TempVars!booCtrlZ = False Then
        'do not process this CTRL+Z if we've already pressed it once
        KeyCode = 0  'clear the keypress
        Beep
        Exit Sub
    Else
        'process the CTRL+Z and flag that it's been pressed once
        TempVars!booCtrlZ = True  'flag that we've pressed CTRL+Z once
    End If
End If

核心需求 #

• 需求1：实现类似MS Word的多步撤销，每次CTRL+Z逐步回溯最近修改。
• 需求2：若无法实现多步撤销，允许一次CTRL+Z撤销最近修改，后续按下直接拦截。

解决方案 #

方案1：修复单次CTRL+Z限制逻辑 #

原代码的逻辑错误在于TempVars!booCtrlZ的判断条件搞反了，且未处理记录编辑状态的同步问题。修正后的代码如下：

1. 表单Load事件初始化临时变量：

Private Sub Form_Load()
    TempVars!booCtrlZ = False
End Sub

2. 修改表单KeyDown事件代码：

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If Shift = acCtrlMask And KeyCode = vbKeyZ Then
        If TempVars!booCtrlZ = True Then
            ' 已执行过一次撤销，拦截后续操作
            KeyCode = 0
            Beep
            Exit Sub
        Else
            ' 允许第一次撤销，标记状态
            TempVars!booCtrlZ = True
            ' 同步记录的Dirty状态，避免保存时丢失修改
            Me.Dirty = True
        End If
    End If
End Sub

3. 文本框Change事件重置标记（用户再次修改文本时，允许重新使用一次撤销）：

Private Sub tbxNote_Change()
    TempVars!booCtrlZ = False
End Sub

方案2：模拟多步撤销（近似Word式体验） #

Access的绑定富文本框本身不支持原生多步撤销，需手动维护撤销栈实现：

1. 表单模块定义模块级变量存储撤销历史：

Private undoStack As Collection
Private isUndoing As Boolean ' 防止撤销时触发Change事件重复入栈

2. 表单Load事件初始化撤销栈：

Private Sub Form_Load()
    Set undoStack = New Collection
    ' 初始内容入栈
    undoStack.Add tbxNote.Value
End Sub

3. 文本框Change事件记录修改到撤销栈（仅在非撤销操作时）：

Private Sub tbxNote_Change()
    If Not isUndoing Then
        ' 限制栈的大小，避免内存占用过高，比如保留最近20步
        If undoStack.Count >= 20 Then
            undoStack.Remove 1
        End If
        undoStack.Add tbxNote.Value
    End If
End Sub

4. 表单KeyDown事件处理CTRL+Z的多步撤销：

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If Shift = acCtrlMask And KeyCode = vbKeyZ Then
        If undoStack.Count > 1 Then
            isUndoing = True
            ' 移除当前内容，恢复到上一步
            undoStack.Remove undoStack.Count
            tbxNote.Value = undoStack(undoStack.Count)
            isUndoing = False
        Else
            ' 没有可撤销的内容，提示
            Beep
        End If
        KeyCode = 0 ' 拦截原生撤销行为，避免冲突
    End If
End Sub

5. 表单Unload事件清理资源：

Private Sub Form_Unload(Cancel As Integer)
    Set undoStack = Nothing
End Sub

内容的提问来源于stack exchange，提问作者DRC