MS Access Treeview错误加载ActiveX控件

时间:2012-08-20 12:48:07

标签: vba ms-access activex access-vba

  

可能重复:
  MS-access doesn't catch treeview events after win sec-update

最近我的访问表单中出现了一个Treeview元素错误。

  

您在事件属性设置中输入的表达式扩展产生了以下错误:在您的某个表单或报表上添加了ActiveX控件时出错。

当我单击“确定”(仅限机会)时,出现下一个错误(展开被MouseMove,MouseDown / Up,DblClick等替换),当我按下按键时,KeyDown / Up / Press Message出现等。 当我与TreeView交互时,“Expand”被替换为例如NodeClick或折叠。 每条消息只出现一次,当我执行所有可能的事件时,没有弹出消息 - 但树视图不起作用,它不打开任何形式(树视图用作菜单)。

对我来说神秘的事情是 - 上周那些Access数据库都运行正常 - 我们为每个客户提供了一个数据库(前端和数据在一起),现在突然每个数据库都“崩溃”。我认为ActiveX Treeview Control已被Windows Update或类似的东西更改,但旧的WinXP笔记本电脑也会抛出相同的错误消息。 即使是一个没有打开2周并且肯定已经恢复工作的数据库也不再适用了。因此,从我的观点来看,代码中的任何内容都是错误的。

尽管如此,我尝试在Form_Load事件中设置断点,但在执行OnLoad的第一行之前已经弹出Expand Error。 OnLoad事件是唯一指定的事件(GUI表示“事件过程”​​,仅限其VBA代码),所有其他字段为空(并且未指定代码)。 我创建了一个空白的VBA,例如MouseMove,但仍然出现错误。

这是什么错误,它来自哪里?希望任何人都可以提供帮助。

此致

的Matthias

P.S .: My Treeview Project 通过此链接,您可以在MS Access中找到treeview项目的文件(在第一个答案中提到)。当我下载这些文件时出现相同类型的错误..所以它肯定与activeX控件有关,对吧?这些文件是否有用,如果有的话 - 为什么?希望有人可以提供帮助......

2 个答案:

答案 0 :(得分:1)

我遇到了同样的问题 - treeview上周没有在2007年或2010年Access,多台PC上工作。问题是Windows更新。 (参见链接http://support.microsoft.com/kb/2687441)。我按照kb文章中的说明创建并运行了批处理文件,现在我的Treeview正常工作。

答案 1 :(得分:0)

我得到了同样的错误。我在以下链接中找到了解决方案: http://mymsaccessblog.blogspot.nl/2008/09/my-teeview-project-episode-5-using.html

我添加了下面列出的以下子项,并使用我使用的密钥对其进行了调整。 我希望这对你也有帮助。对不起格式化不好。我第一次发布任何东西

Private Sub xProductTreeview_Click()

Dim nodSelected As MSComctlLib.Node'当前所选节点的变量

Set nodSelected = Me.xProductTreeview.SelectedItem ' get the currently selected node

If nodSelected.Key Like "Prod=*" Then ' are we on a product node
ElseIf nodSelected.Key Like "Cat=*" Then ' are we on a category node
Else ' somehow this is neither a category or product node
End If

End Sub