当表单中的任何文本框发生更改时运行函数？微软访问答案

【问题标题】：Run a function when any textbox changes in a form? MS Access当表单中的任何文本框发生更改时运行函数？微软访问
【发布时间】：2014-08-07 14:31:50
【问题描述】：

有没有办法在任何控制元素中的数据发生变化时在 VBA 中运行函数？我试过 Form_AfterUpdate 和 Form_DataChange 但他们似乎什么也没做

【问题讨论】：

这将是一个棘手的问题，因为您必须对窗体中控件的所有 After Update/Change 事件进行编码。或者您可以检查 On Click 事件并检查它是否来自控件。或 On Key Press 事件相同的逻辑。这仍然是一个漫长而复杂的过程。
啊，我希望我不必诉诸于此。谢谢
我赞同@PaulFrancis 所说的。话虽如此，如果您对需要做的事情有更多了解，那么另一种方式可能是可行的。
是一些基本的if语句和基于不同文本框的计算，简单的文本框值变化。
而这些需要在运行中？我希望您更新您的问题并准确解释您需要做什么。这将对所有相关人员有所帮助。

标签： forms vba ms-access

【解决方案1】：

您不必在控件的更新/更改事件后编写代码，请查看Key Preview

可以使用 KeyPreview 属性来指定表单级是否在控件的键盘之前调用键盘事件过程事件程序。读/写布尔值。

小心使用。

例如，开启 KeyPreview：

 Private Sub Form_KeyPress(KeyAscii As Integer)
      MsgBox "You pressed a key"
 End Sub

【讨论】：

我不会将其归类为答案，正如我已经在 cmets 中提到的那样，这将是一个很长的过程来找出源头，而且 KeyPreview 事件可能会更加棘手，如果您不知道如何正确使用它们。因此，正确的解决方案是查看 OP 实际需要什么，并提出一个安全且可能是 OverMind 提到的更好的替代方案！
我从来不知道它的存在，哈哈。 +1
@PaulFrancis 总是有Screen.ActiveControl
@Fionnuala - 这并不总是可靠的。这当然是 IMVHO。我不建议使用 Screen.ActiveControl（尽管前面的评论中也暗示了这一点）。 johnny93，欢迎您使用答案，但请注意如何使用它。祝你好运。
@Overmind 这个问题很模糊，我给出了一个有点模糊的答案，提到了一个不是每个人都知道的属性，它不是一个规范的答案，也永远不可能。正如您所提到的，当信息短缺时，我打算指出该属性，而不是提供代码。

【解决方案2】：

第 1 步：创建函数

Function DoStuff()
    Call RunMySub
End Function

第 2 步：创建宏（名为 RunMyCode）

RunCode
  Function Name DoStuff()

第三步：修改 Form_Load() 子

Private Sub Form_Load()
Dim cControl As Control
On Error Resume Next
    For Each cControl In Me.Controls
        if cControl.ControlType = 109 'this is for text boxes
            'Depending on what your code does you can use all or some of these:
            cControl.OnExit = "RunMyCode"
            cControl.OnEnter = "RunMyCode"
            cControl.OnLostFocus = "RunMyCode"
            cControl.OnGotFocus = "RunMyCode"
            If cControl.OnClick = "" Then cControl.OnClick = "RunMyCode"
        end if
    Next cControl
On Error GoTo 0

您可以使用控件中的任何属性，我发现“OnExit/OnEnter”和“OnLostFocus/OnGotFocus”对是最有效的。我也喜欢“OnClick”，但我使用 if 语句来不覆盖操作（用于按钮和东西）。您可以将控制操作分配给其他十几种方法——我相信您将能够找到一种/几种满足您的目标的方法。

注意 -- 我使用 on error 附件是因为我将此代码包装在多种不同类型的控件周围，并且并非所有控件都具有所有方法。

【讨论】：

由于似乎没有表单级别的事件来实现目标，因此 Schalton 的代码可能会显示出一种相当有效且相当稳定的解决方法 - 我认为，这个答案应该反对@987654324 @解决方案。