访问更新查询崩溃程序

Question

我最近将Access 2010中内置的数据库移动到Access 2013。它工作正常了一段时间，然后每当使用 VBA 更新某个表时，它就会突然开始崩溃（即没有响应）。我可以毫无问题地自行运行查询，但无法在 VBA 中调用它。下面是会导致崩溃的代码示例。任何更新此表的尝试都会导致其崩溃：

Sub ShipOrder(OrderID As Long)
Dim strSQL As String
On Error GoTo ErrorHandler
strSQL = "UPDATE Orders SET StatusID = 20 WHERE ID = " & OrderID
CurrentDb.Execute strSQL, dbFailOnError
Exit Sub
ErrorHandler:
MsgBox Err.Description
End Sub

我已经将所有表、表单等移动到新数据库中，以防旧数据库已损坏但问题仍然存在。

非常欢迎有关导致此错误的原因的任何建议！

谢谢。

Answer 1

听起来你链接的数据库是问题所在。你试过吗——

docmd.RunSQL ""

可能是CurrentDb.Execute上的CurrentDb是问题所在...

祝你好运。。