如何动态地将函数分配给控件的onClick属性

Question

在访问表单中的控件上，我想动态更改使用onClick属性调用的函数。

所以，有一个功能，比如说

public function m(a as string)
    call msgBox(a)
end function

在某个地方，在另一段代码中，我有这个

dim nb as navigationButton
set nb = createNavigationButton(.....)
nb.name = "nav...."
nb.onClick = "=m(""dummy"")"

我有这个工作

然而，我改变了一些东西，但我不知道它是什么。现在，当调用行nb.onClick时，访问权限告诉我相当无用的运行时错误＆＃39; 7960＆＃39;：编译函数时出错

注意，我不能使用＆＃34;普通＆＃34; eventhandler（sub navXYZ_Click）因为控件是动态创建的。

Answer 1

你想要做的是这样的事情：

Command0.OnClick = "=m(""dummy"")"
Command0.Caption = "Hello"

这已在Access 2010中测试并正常运行

我在它自己的模块和表单后面的模块中使用函数m（作为字符串）对它进行了测试，并且它在两个方面都完美地工作。