MS Access 多控制 KeyPress CTRL+A 处理程序

Question

我有一个带有 10 多个文本控件的 Access 数据库。我想要一些代码来处理 CTRL + A KeyPress 事件。通常，在 Access 中按 CTRL + A 时，会选择 所有 记录。我的最终目标是让 CTRL + A 只选择该控件的文本（就像在浏览器的 URL 栏中按 CTRL + A ，它只选择那个文本），这样我就可以只删除那个控件的文本。我检查了this article，因为我想要可以处理任何文本框的东西（处理每个文本框的 KeyPress = 60+ 行代码）。有什么方法可以让我拥有一个 for-next 循环？

Function HandleKeyPress(frm As Form, KeyAscii As Integer, ByVal e As KeyPressEventArgs) 'should it be a function or a sub?
    For Each ctl In Me.Controls
        If KeyAscii = 1 Then    'I think this is CTRL + A?
            e.Handled = True    'Stop this keypress from doing anything in access
            focused_text_box.SelStart = 0
            focused_text_box.SelLength = Len(focused_text_box.Text)
        End If
    Next
End Function

除此之外，我怎样才能将文本框的名称传递给这个子/函数？

注意：如果您还没有注意到，我仍然是 VBA/Access 的菜鸟。

Answer 1

您当前的方法行不通，因为它包含多种在 VBA 中无法以这种方式工作的东西（如 June7 所述），并且由于表单 keydown 事件优先于文本框 keydown 事件

您可以改用以下代码（受this answer on SU 启发）：

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyA And Shift = acCtrlMask Then 'Catch Ctrl+A
        KeyCode = 0 'Suppress normal effect
        On Error GoTo ExitSub 'ActiveControl causes a runtime error if none is active
        If TypeOf Me.ActiveControl Is TextBox Then
            With Me.ActiveControl
                .SelStart = 0
                .SelLength = Len(.Text)
            End With
        End If
    End If
ExitSub:
End Sub

使用 VBA 或仅使用属性窗格将 Form.KeyPreview 属性设置为 True 非常重要，以允许此函数优先于默认行为。