链接表上的 OpenRecordset?

Mar*_*ier 2 ms-access vba

我将几个大表从 AccessDB 分离到后端数据库,没有出现任何问题。

接下来,我需要打开一个记录集来替换各种麻烦的字符。当表位于本地时,以下代码段工作正常,但 Access 现在抱怨该表已链接,但未提供详细信息。

Dim rs3 As DAO.Recordset

'Step thru the Item table fix ' & " characters
Set rs3 = db.OpenRecordset("Item", dbOpenTable)
Do While Not rs3.EOF
    strDesc = Replace(Nz(rs3!DESC), Chr(39), Chr(39) & Chr(39))
    strDesc = Replace(Nz(rs3!DESC), Chr(34), "")
    rs3.MoveNext
Loop
Set rs3 = Nothing
Run Code Online (Sandbox Code Playgroud)

对于使用链接表完成此任务有什么建议吗?

Han*_*sUp 5

dbOpenTable只能与本地表一起使用;它不能与链接表一起使用。

'Set rs3 = db.OpenRecordset("Item", dbOpenTable)
Set rs3 = db.OpenRecordset("Item")
Run Code Online (Sandbox Code Playgroud)