以编程方式将VBA代码分配给访问中的MouseupEvent？

Question

我在VBA中动态创建了表单。下面的查询将使用MouseupEvent创建表单。但它不包含事件内的任何代码。我想知道如何为此特定事件插入VBA代码。我们需要使用任何模块或功能吗？

Set frm = CreateForm()
frm.AllowAdditions = False      
frm.AllowDeletions = False
frm.AllowEdits = False
frm.OnMouseUp = "[Event Procedure]"

等待您的宝贵回应......

Answer 1

我能想到的最佳方式包括以下步骤：

• 在模块中创建公共功能

请注意，这是一个单独的模块，而不是其中一个表单模块。 它也必须是 PUBLIC ，并且必须是 FUNCTION 。

• 为以下内容创建一个新宏：RunCode - FunctionName

将函数添加到runCode参数时，请通过表达式构建器执行此操作以确保可以访问该函数。

• frm.OnMouseUp = "MacroName"

我已使用以下代码进行测试：

我希望这更清楚。