Access表单中Ctrl+A+退格删除全量记录的阻止方法咨询

首先，你得先确保表单的KeyPreview属性设置为Yes——这是最关键的前提！默认情况下表单不会优先捕获按键事件，文本框这类控件会先处理按键，导致你之前写的表单KeyDown代码根本没机会执行。

接下来，修改表单的Form_KeyDown事件代码，不仅要拦截Ctrl+A的默认行为（防止它选中所有记录），还要保证后续的退格键只作用于文本框内容，不会触发批量删除：

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    ' 拦截Ctrl+A组合键，阻止默认的全选记录行为
    If Shift = acCtrlMask And KeyCode = vbKeyA Then
        KeyCode = 0
        ' 可选：让当前激活的文本框执行自身内容全选（保留用户编辑习惯）
        If TypeOf Me.ActiveControl Is TextBox Then
            Me.ActiveControl.SelStart = 0
            Me.ActiveControl.SelLength = Len(Me.ActiveControl.Text)
        End If
    End If
    
    ' 额外拦截Ctrl+退格组合键，彻底避免误删记录
    If Shift = acCtrlMask And KeyCode = vbKeyBack Then
        KeyCode = 0
        ' 模拟正常退格功能，保证文本框编辑不受影响
        If TypeOf Me.ActiveControl Is TextBox Then
            With Me.ActiveControl
                If .SelLength > 0 Then
                    .Text = Left(.Text, .SelStart) & Mid(.Text, .SelStart + .SelLength + 1)
                    .SelStart = .SelStart
                ElseIf .SelStart > 0 Then
                    .Text = Left(.Text, .SelStart - 1) & Mid(.Text, .SelStart + 1)
                    .SelStart = .SelStart - 1
                End If
            End With
        End If
    End If
End Sub

代码说明： #

• 第一部分处理Ctrl+A：既阻止了Access默认的“全选所有记录”操作，又可选保留文本框自身的内容全选功能，兼顾用户的编辑习惯。
• 第二部分拦截Ctrl+退格：彻底切断可能触发批量删除的按键组合，同时模拟正常退格的编辑逻辑，让文本框的使用不受影响。

如果你不需要文本框的Ctrl+A全选功能，直接去掉那段可选的文本框全选代码，只保留KeyCode=0就能彻底禁用Ctrl+A的所有默认行为。

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