Fatal编程技术网
  • ms-access/
  • Ms access 以编程方式将VBA代码分配给access中的MouseupEvent？

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

ms-access vba

Ms access 以编程方式将VBA代码分配给access中的MouseupEvent？,ms-access,vba,Ms Access,Vba,我已经在VBA中动态创建了表单。下面的查询将使用MouseupEvent创建表单。但它在事件中不包含任何代码。我想知道如何为这个特殊事件插入VBA代码。我们是否需要使用任何模块或功能 Set frm = CreateForm() frm.AllowAdditions = False frm.AllowDeletions = False frm.AllowEdits = False frm.OnMouseUp = "[Event Procedure]" 等待您宝贵的回复 我能想到的最

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

Set frm = CreateForm()
frm.AllowAdditions = False      
frm.AllowDeletions = False
frm.AllowEdits = False
frm.OnMouseUp = "[Event Procedure]"
等待您宝贵的回复

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

  • 在模块中创建公共函数
请注意，这是一个单独的模块，而不是表单模块之一。 它还必须是公共的，并且必须是功能

  • 为以下项创建新宏：RunCode-FunctionName
将函数添加到运行码参数时，请通过表达式生成器执行该操作，以确保可以访问该函数

  • frm.OnMouseUp=“MacroName”
我已使用以下代码进行了测试：

我希望这更清楚。

谢谢您的回复。我已经使用运行代码创建了宏。frm.OnMouseUp=“Macro1”在操作参数中，我已给出了函数名frmMouseup（）。此函数在模块中可用，它包含用于Mouseup事件的VBA代码。但当我尝试单击列标题时，会收到错误消息，如“您输入的表达式具有MS access找不到的函数名”。请告诉我，我在哪里犯了错误。我添加了一些图片供您查看步骤。希望能帮上忙谢谢你parakmiakos先生。过去的三天让我很不舒服。现在我的问题解决了。谢谢。您是访问专家：：）如果接受答案，我们将不胜感激：D