如何解决AfterUpdate MS Access中的几个文本框
我想知道可以为几个文本框设置AfterUpdate功能吗?我有10个文本框,为所有内容写相同的定义是有用的。这个问题有解决办法吗?
解决方法
您可以拥有一个
Private Function MyAfterUpdate()
' stuff
End Function
在您的表单模块中。
然后,将[Event Procedure]
而不是=MyAfterUpdate()
放在文本框的After Update
属性中。
这是 WithEvents 的用途,它是Access的隐藏宝石之一。
可以在我的项目中找到一个示例:VBA.ModernTheme。
但是,代码太多,无法在此处发布,因此请仔细阅读演示。它处理标签的 OnClick 事件,但是您可以轻松更改它以处理texboxes的 AfterUpdate -或其他与此相关的其他控件事件。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。