如何解决什么是使用访问 vba 的最佳事件
我有一个带有各种选项卡和控件的表单。
有文本框控件,我想在更新某些文本框中的任何一个时调用子控件。这并不适用于所有文本框,我想将已更新的文本框的名称作为参数传递。
到目前为止,我只需要为每个事件创建一个 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
提前致谢。
解决方法
您可以对不传递值的事件执行此操作。
所以,在更新事件之前说,它有这种默认的子:
Private Sub Fax_BeforeUpdate(Cancel As Integer)
End Sub
所以,以上是不行的!
但是,更新后事件?它看起来像这样:
Private Sub Fax_AfterUpdate()
End Sub
所以,假设我有这个表单,并且我希望触发所有文本框的更新后事件。
好的,切换到设计模式,然后单击以突出显示您希望运行公共代码事件的所有文本框。
注意格式 - 你输入 =MyFunctionName(),或者在这个例子中, =MyCommonAfter()
VBA 代码呢?它必须是表单代码模块中的公共函数。
它看起来像这样:
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"))
那么对于一个普通的点击事件,或者说控件的更新事件之后,那么上面就可以让你批量选择控件,输入名称。
您当然可以单独选择每个控件,然后在上面输入,但是选择一组控件并在属性表中输入因此适用于您选择的所有控件。
因此,无需为每个控件编写或创建代码存根——您只需在属性表中输入函数名称即可。
,构建一个可由每个控件调用的过程,并设计该过程以接受参数。仍然需要每个控件的 AfterUpdate 事件中的代码来调用公共过程并将其自己的名称作为参数的值传递。如果所有控件都在同一个窗体上,那么程序可以在该窗体后面。如果您希望多个表单的控件使用该过程,请将其放在一个通用模块中。
Sub MyProc(varD)
'do something with varD
End Sub
Sub MyControl_AfterUpdate()
MyProc("MyControl")
End Sub
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。