将 dbSeeChanges 应用于所有记录集 VBA

Posted 2023-05-07

【中文标题】将 dbSeeChanges 应用于所有记录集 VBA

【英文标题】：apply dbSeeChanges to all recordsets VBA

【发布时间】：2017-01-11 19:56:46

【问题描述】：

我使用 MS access 2016 作为前端，并通过 ODBC 连接到 Microsoft SQL 服务器。

当我在 VBA 中打开记录集时，我得到了“您必须将 dbSeeChanges 选项与 OpenRecordSet 一起使用...”

现在我已经解决了这个问题，所以我的问题是：有没有一种简单的方法可以将它应用到所有创建记录集的地方？是否有一些简单的设置可以检查 VBA？因为在我的代码中创建了很多记录集，并且到处添加 dbSeeChanges 命令需要很长时间。

如果有人想要修复 dbSeeChanges：

Set tempRcst = CurrentDb.OpenRecordset("SELECT * FROM table1", dbOpenDynaset, dbSeeChanges)

【问题讨论】：

没有简单的方法 - 但我想知道你是怎么走到这一步才看到这条消息的。

【参考方案1】：

最快的方法是剪切文本

,dbOpenDynaset, dbSeeChanges

进入您的剪切/粘贴缓冲区。

然后你在 OpenRecordSet(

当您找到匹配项时（按 f3 进行搜索）。当您看到匹配项时，然后点击“结束”键移动到行尾，然后点击一个后退箭头，然后按 ctrl-v 粘贴在上面。现在按 f3 并再次执行此操作（并再次等等）。

上述过程将很快发生 - 即使在大型应用程序中，上述过程也只需要几分钟。我可以假设使用一些 VBA 来读取所有代码并进行修改，但我认为上述过程会比使用一些 VBA 对代码进行全局类型的替换更快。

因此您可以进行全局搜索，但 VBA IDE 中没有可用的“模式”匹配替换。

【讨论】：

是的，这几乎就是我遵循的过程！感谢您的帖子！