Office 更新后出现错误消息“对象或类不支持事件集”

Posted 2023-04-19

【中文标题】Office 更新后出现错误消息“对象或类不支持事件集”

【英文标题】：Error message after Office update "Object or class does not support the set of events"

【发布时间】：2019-07-03 07:40:11

【问题描述】：

我相信本周我的工作计算机上安装了 Office 更新。从那时起，我在我构建的数据库中看到一条错误消息。

PC = Windows 10 企业操作系统内部版本 17763.557 Office = 365 ProPlus 版本 1808 Build 10730.20348

我在表单上有一个按钮，它运行 SQL 搜索记录并填充表单。这段代码已经运行了一年多。

单击按钮时代码失败并显示错误消息

“作为事件属性设置输入的 On Click 表达式产生了以下错误：对象或类不支持事件集。”

如果我在表单旁边打开 Visual Basic，查询运行不会出错。

我不确定 Office 更新和错误消息是否相关。我不相信对代码或数据库结构进行了任何更改。其他用户未报告其他错误消息。

Private Sub Command360_Click()
    If IsNull(Me.SEARCH_TEXT.Value) Or Me.SEARCH_TEXT.Value = "" Then
        MsgBox "Please type in your search keyword.", vbOKOnly, "Keyword Needed"
        Me.SEARCH_TEXT.BackColor = vbYellow
        Me.SEARCH_TEXT.SetFocus
    Else
        strsearch = Me.SEARCH_TEXT.Value
        Me.SEARCH_TEXT.BackColor = vbWhite
        SearchTask = "SELECT * FROM [tMASTER_BOREHOLE_LIST] WHERE ( ([HOLEID] Like ""*" & strsearch & "*"") OR ([TYPE] Like ""*" & strsearch & "*"") OR ([ALTERNATE_NAME1] Like ""*" & strsearch & "*"") OR ([ALTERNATE_NAME2] Like ""*" & strsearch & "*"") OR ([ALTERNATE_NAME3] Like ""*" & strsearch & "*"") OR ([Hole_Location] Like ""*" & strsearch & "*"") OR ([ALTERNATE_NAME4] Like ""*" & strsearch & "*"") OR ([Collar_Site_No] Like ""*" & strsearch & "*"") OR ([Site_ID] Like ""*" & strsearch & "*"") OR ([HOLE_NAME] Like ""*" & strsearch & "*"") OR ([Hole_Number] Like ""*" & strsearch & "*"") OR ([Design_Point_Number] Like ""*" & strsearch & "*"") OR ([STAKED_Point_Number] Like ""*" & strsearch & "*"") OR ([As_Drilled_Point_Number] Like ""*" & strsearch & "*"") OR ([COLLAR_LOCATION1] Like ""*" & strsearch & "*"") OR ([COLLAR_LOCATION] Like ""*" & strsearch & "*"") OR ([LW_FOR_SEALUP] Like ""*" & strsearch & "*""))"
        Me.RecordSource = SearchTask
    End If
End Sub

【问题讨论】：

尝试Decompile 并重新编译您的代码。确保所有模块的顶部都有Option Explicit。

在哪一行弹出错误？

"错误在哪一行弹出？" - 这是棘手的部分，我无法逐步找到错误，因为一旦我打开 Visual Basic，错误就不会发生。有趣的是，我只是做了一个数据库的副本来反编译和重新编译；在做任何事情之前我运行了数据库副本来检查并且错误没有发生，但它仍然发生在原始...???

【参考方案1】：

显然，此错误在使用外来字符的数据库中很常见。根据个人经验，它会随机选择事件以出错，而不管事件中的代码如何。

无论如何，保存我的数据库（和健全性）的解决方案正在反编译，如 sourcedaddy 中所述，但我将在此处列出说明，以免您必须遵循 另一个 链接。

按

Win + R

打开运行窗口，输入

msaccess /decompile

，然后按

运行

当 Access 打开时，按住

shift

并打开您的数据库 数据库打开后，完全退出 Access 重新启动 Access 并再次打开您的数据库 打开代码编辑器，点击

调试>>编译

db编译完成后，关闭代码编辑器，点击

Database Tools

中的

Compact and Repair Database

还有魔法！

希望这可以节省其他人我试图修复此错误所花费的时间...

【讨论】：

更好的链接*反编译所需的步骤值得做"：Decompile

【参考方案2】：

我之前也遇到过这个错误，这让我发疯了。问题似乎是我们在一台计算机上安装了两个版本的 Access。

在我们的计算机上卸载所有版本的 office，然后重新安装它们解决了这个问题。