使用 access 的最佳事件是什么 vba

Question

我有一个带有各种选项卡和控件的表单。
有文本框控件，我想在某些文本框中的任何一个更新时调用一个子控件。这并不适用于所有文本框，我想将已更新的文本框的名称作为参数传递。

到目前为止，我只需要为每个事件创建一个 Mytxtbox_AfterUpdate() 事件，但这变得非常耗时，而且它有效地复制了相同的代码，只有很小的变化。我以前没怎么用过事件；有没有一种更有效的方法可以在一个适用于所有事件的事件中执行此操作？

伪代码；

Private Sub Form_AfterUpdate()
'I have tried the afterupdate event btw
'but it didn't trigger when I entered new text in the text fields

Dim UpdatedControl as Control
'Need to Find out what that control is somehow

If UpdatedControl.ControlType = acTextbox And UpdatedControl.Name Not like "*excludename*" Then
    Call MySub(UpdatedControl.Name, 1)
End if

End Sub

提前致谢。

Answer 1

构建一个可由每个控件调用的过程，并设计该过程以获取参数。仍然需要每个控件的 AfterUpdate 事件中的代码来调用公共过程并将其自己的名称作为参数值传递。如果所有控件都在同一表格上，则该过程可以在该表格后面。如果您希望多个窗体的控件使用该过程，则将其放在通用模块中。

Sub MyProc(varD)
'do something with varD
End Sub

Sub MyControl_AfterUpdate()
MyProc("MyControl")
End Sub

Answer 2

您可以为不传递值的事件执行此操作。

所以，在更新事件之前，它有这种默认子：

Private Sub Fax_BeforeUpdate(Cancel As Integer)

End Sub

所以，上面不行！

但是，更新后的事件？它看起来像这样：

Private Sub Fax_AfterUpdate()

End Sub

所以，假设我有这个表单，我希望触发所有文本框的更新后事件。

好的，进入设计模式，然后单击以突出显示您希望公共代码事件针对运行的所有文本框。

注意格式 - 您输入 =MyFunctionName()，或者在本例中， =MyCommonAfter()

和 VBA 代码？它必须是表单代码模块中的 public 函数。

它看起来像这样：

Public Function MyCommonAfter()

    Debug.Print "global after"

    Dim MyControl As Control

    Set MyControl = Screen.ActiveControl

    Debug.Print "Control name = " & MyControl.Name

    Debug.Print "Text of control = " & MyControl.Value


End Function

你可以在函数中传递一个值，比如

=(MyCommonAfter("ABC"))

所以对于一个普通的点击事件，或者说控件的更新事件之后，那么上面允许你批发select控件，输入名称。

您当然可以 select 每个控件分开，然后在上面键入，但是 select 一组控件并在属性 sheet 中键入因此适用于您 selected.

的所有控件

因此，无需为每个控件编写或创建代码存根 - 您只需在属性 sheet.

中输入函数名称

使用 access 的最佳事件是什么 vba

Whats the best event to use access vba

events

ms-access

controls

vba