访问 VBA 列表记录集无效
Access VBA set recordset of lists not working
我遇到了一个有趣的问题，但无法找出解决方案。直到一周前，这段代码一直在完美运行。由于某种原因，它不能在我的电脑上运行，但可以在所有其他电脑上运行。现在，当我 运行 下面的代码告诉我“ActiveX 组件无法创建对象”时。
If Not rs.EOF Then
Set Me.DropDownList.Recordset = rs <-Fails here
Me.DropDownList.Requery
End If
它现在在每个表单的每个控件上都这样做，但同样只是在我的计算机上。我已验证控件设置为 'Table/Query' 而不是值列表。但是，如果我遍历记录集并单独添加项目，将行源更改为值列表后，它工作正常。
查询正常，记录集打开正常 只是突然无法设置列表框或下拉列表的记录集。我正在使用 adodb 并从 SQL 服务器检索数据。所有这些都正确连接和检索。
任何帮助将不胜感激，我已经进行了几天的搜索和故障排除，但没有成功。仅仅因为它在我的计算机上不起作用就必须将所有代码更改为循环是最低效的。
最终能够将其归零为 DLL 或服务的问题。修复了 Microsoft Office，重新启动，一切都恢复正常。不明白为什么会发生这似乎是解决方案。
我遇到了一个有趣的问题，但无法找出解决方案。直到一周前，这段代码一直在完美运行。由于某种原因，它不能在我的电脑上运行，但可以在所有其他电脑上运行。现在，当我 运行 下面的代码告诉我“ActiveX 组件无法创建对象”时。
If Not rs.EOF Then
Set Me.DropDownList.Recordset = rs <-Fails here
Me.DropDownList.Requery
End If
它现在在每个表单的每个控件上都这样做，但同样只是在我的计算机上。我已验证控件设置为 'Table/Query' 而不是值列表。但是，如果我遍历记录集并单独添加项目，将行源更改为值列表后，它工作正常。
查询正常，记录集打开正常 只是突然无法设置列表框或下拉列表的记录集。我正在使用 adodb 并从 SQL 服务器检索数据。所有这些都正确连接和检索。
任何帮助将不胜感激，我已经进行了几天的搜索和故障排除，但没有成功。仅仅因为它在我的计算机上不起作用就必须将所有代码更改为循环是最低效的。
最终能够将其归零为 DLL 或服务的问题。修复了 Microsoft Office，重新启动，一切都恢复正常。不明白为什么会发生这似乎是解决方案。