将dbSeeChanges应用于所有记录集VBA

时间:2017-01-11 19:56:46

标签: vba ms-access odbc

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

当我在VBA中打开记录集时,我得到了“你必须在OpenRecordSet中使用dbSeeChanges选项...”

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

如果有人想要修复dbSeeChanges:

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

1 个答案:

答案 0 :(得分:2)

最快捷的方法是剪切文字

,dbOpenDynaset,dbSeeChanges

进入剪切/粘贴缓冲区。

然后,您在OpenRecordSet上进行全局搜索(

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

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

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