Access 2013 VBA-设置控件的新Click事件

杰瑞德

我到处都在搜索此内容,这似乎是一个简单的解决方法,但是我似乎找不到解决方法。我在Access 2013表单中有几个Rectangle控件,并且正在创建一个处理它们的OnClick事件。我研究了几种不同的方法,并且我认为找到了最简单/最简单的方法。我将控件放在一个集合中,并为每个控件更改OnClick事件。这是我的问题:Access打开表单并识别出我已更改控件的事件,但是单击控件后,它将引发错误,并且将不执行事件。

错误:

“作为事件属性设置输入的单击时表达式产生了以下错误:输入的表达式具有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事件中尝试了一个简单事件,这产生了相同的错误。有人有想法么?

汉素

错误消息告诉您Access找不到名为TestClick函数您的TestClick是子例程,而不是函数。

这是一个简单的示例,已在Access 2010和2013中进行了测试,该示例演示了将函数用于控件的.OnClick属性可以正常工作,但是您需要一个function:-)

Private Sub Form_Load()
    Dim ctl As Control
    Set ctl = Me.Controls("txtMathExpresson")
    ctl.OnClick = "=TestClick()"
    Set ctl = Nothing
End Sub

Private Function TestClick()
    MsgBox "Test"
End Function

请注意,我的Access 2013测试是使用传统的桌面应用程序进行的。如果您使用Access 2013 WebApp,我不知道会发生什么。

本文收集自互联网,转载请注明来源。

如有侵权,请联系[email protected] 删除。

编辑于
0

我来说两句

0条评论
登录后参与评论

相关文章

来自分类Dev

Access 2013无法将查找显示控件设置为文本框

来自分类Dev

MS Access 2013:通过VBA使用MS Word的语法检查

来自分类Dev

MS Access 2013查询条件

来自分类Dev

从Access 2013运行Excel 2013宏时发生VBA自动化错误(系统调用失败)

来自分类Dev

在多个表中创建新记录Access 2013

来自分类Dev

Outlook 2013 VBA:存储用户定义的设置

来自分类Dev

Access 2013 VBA自动使Excel丢失窗口

来自分类Dev

使用VBA对Microsoft Access 2013中的导航和菜单进行精确控制

来自分类Dev

在Access 2013中使用VBA从列表框分配选项

来自分类Dev

自动格式化Excel工作表名称VBA MS Access 2013

来自分类Dev

使用VBA在Access的子窗体控件中触发事件

来自分类Dev

MS Access VBA:如何清除图像控件?

来自分类Dev

Access 2013控件对齐快捷菜单错误

来自分类Dev

Access 2013无法将查找显示控件设置为文本框

来自分类Dev

通过Access 2013 VBA编辑Excel 2013文件后无法打开

来自分类Dev

MS Access 2013/365中的ActiveGantt Activex控件-对象方法上的VBA运行时错误

来自分类Dev

在Excel 2013上使用VBA填充组合框(窗体控件)

来自分类Dev

从Access 2013运行Excel 2013宏时发生VBA自动化错误(系统调用失败)

来自分类Dev

Excel 2013 VBA SelectionChange事件

来自分类Dev

如果以链接形式输入数据,Microsoft Access 2013中的VBA标记复选框

来自分类Dev

在子窗体中搜索值(vba Access2013)

来自分类Dev

VBA(Access 2013)HTTP POST不传递参数

来自分类Dev

Access 2013-VBA-记录集插入获取ID

来自分类Dev

Access 2013插入/更新

来自分类Dev

Access 2013:根据日期设置值

来自分类Dev

在记录更改时运行VBA,但不构成Open Access 2013

来自分类Dev

MS Access 2013,我的工具栏和vba编辑器在哪里?

来自分类Dev

在子窗体中创建新记录按钮单击 MS Access 2013 VBA

来自分类Dev

VBA (Ms-Access) 2013 溢出错误

Related 相关文章

  1. 1

    Access 2013无法将查找显示控件设置为文本框

  2. 2

    MS Access 2013:通过VBA使用MS Word的语法检查

  3. 3

    MS Access 2013查询条件

  4. 4

    从Access 2013运行Excel 2013宏时发生VBA自动化错误(系统调用失败)

  5. 5

    在多个表中创建新记录Access 2013

  6. 6

    Outlook 2013 VBA:存储用户定义的设置

  7. 7

    Access 2013 VBA自动使Excel丢失窗口

  8. 8

    使用VBA对Microsoft Access 2013中的导航和菜单进行精确控制

  9. 9

    在Access 2013中使用VBA从列表框分配选项

  10. 10

    自动格式化Excel工作表名称VBA MS Access 2013

  11. 11

    使用VBA在Access的子窗体控件中触发事件

  12. 12

    MS Access VBA:如何清除图像控件?

  13. 13

    Access 2013控件对齐快捷菜单错误

  14. 14

    Access 2013无法将查找显示控件设置为文本框

  15. 15

    通过Access 2013 VBA编辑Excel 2013文件后无法打开

  16. 16

    MS Access 2013/365中的ActiveGantt Activex控件-对象方法上的VBA运行时错误

  17. 17

    在Excel 2013上使用VBA填充组合框(窗体控件)

  18. 18

    从Access 2013运行Excel 2013宏时发生VBA自动化错误(系统调用失败)

  19. 19

    Excel 2013 VBA SelectionChange事件

  20. 20

    如果以链接形式输入数据,Microsoft Access 2013中的VBA标记复选框

  21. 21

    在子窗体中搜索值(vba Access2013)

  22. 22

    VBA(Access 2013)HTTP POST不传递参数

  23. 23

    Access 2013-VBA-记录集插入获取ID

  24. 24

    Access 2013插入/更新

  25. 25

    Access 2013:根据日期设置值

  26. 26

    在记录更改时运行VBA,但不构成Open Access 2013

  27. 27

    MS Access 2013,我的工具栏和vba编辑器在哪里?

  28. 28

    在子窗体中创建新记录按钮单击 MS Access 2013 VBA

  29. 29

    VBA (Ms-Access) 2013 溢出错误

热门标签

归档