小编Jar*_*edS的帖子

我到处寻找这个,这似乎是一个简单的修复,但我似乎无法找到解决方案.我在Access 2013表单中有几个Rectangle控件,我正在创建一个OnClick事件来处理它们.我已经研究了几种不同的方法,我认为我找到了最简单/最干净的方法.我将控件放在一个集合中,并为每个控件更改OnClick事件.这是我的问题:Access打开表单并识别我更改了控件的事件,但是一旦我单击该控件,它就会抛出错误并且不会执行该事件.

错误:

"作为事件属性设置输入的单击On Click会产生以下错误:您输入的表达式具有Microsoft Access无法找到的函数名称."

代码:

Private Sub Form_Load()
Dim m_colRectangle As Collection
Dim ctl As Access.CONTROL

Set m_colRectangle = New Collection
For Each ctl In Me.Controls
    If ctl.ControlType = acRectangle Then
        If ctl.Name = "shpTest" Then
            m_colRectangle.Add ctl, ctl.Name

            ctl.OnClick = "=TestClick()" ' <--- Error on this line

        End If
    End If
Next ctl
End Sub

Private Sub TestClick()
    MsgBox "Test"
End Sub

或者,我shpTest.OnClick = "=TestClick()"在Form_Load事件中尝试了一个简单的操作,这产生了同样的错误.有人有主意吗？