ms-access - 无论在 Access 2010 表单上双击哪个文本框，都运行一个过程

Question

我有一个表格，上面有 500 多个文本框。
当我双击其中一个时，我有一个与 On Dbl Click 事件相关的过程。

我想要发生的是，无论我双击 500 个文本框中的哪一个，都运行相同的代码（尽管传递了不同的变量）。
我知道的唯一方法是编写 500 个Private Sub DblClick(Cancel as integer)程序。
那会奏效，但肯定有另一种方法。
我不喜欢将基本相同的代码复制 500 次，这样一个实例就指向 500 个文本框之一。

Answer 1

将以下代码复制到 ms-access 表单。如果双击任何文本框，它将调用该doubleClick函数。

Private Sub Form_Load()
    Dim ctl As Control

    For Each ctl In Me
        If ctl.ControlType = acTextBox Then
            ctl.OnDblClick = "=doubleClick()"
        End If
    Next ctl
End Sub


Function doubleClick() As String
    MsgBox "function called"
End Function