MS Access 2002 / MS SQL 2008 R2 - 根据某些条件删除记录时出现问题

Question

我试图让我的代码从通过表单事件链接到 MS Sql 2008 数据库表的 access 2002 数据库表中删除记录。我只是希望它删除用户为空且日期为空的所有记录。

这是给我带来麻烦的sn-p：

Dim delSQL As String

DoCmd.SetWarnings False
delSQL = "DELETE * FROM Notifications WHERE User IsNull;"
Set rst = CurrentDb.OpenRecordset(delSQL, dbOpenSnapshot)

DoCmd.RunSQL delSQL
rst.Close
Set rst = Nothing
DoCmd.SetWarnings True

老实说，我不知道为什么这不起作用。我在 SQL 服务器端运行了上面的 SQL 语句（不包括 Date 部分，因为我想让用户条件首先工作）并且它工作正常。但是每次我尝试让它在 Access 2002 的 VBA 中运行时，在执行 SQL 时都会出错。

Answer 1

User 是保留字。要么用方括号括起来，要么用表名或别名限定字段名。

IsNull 是一个函数。要么使用Is Null 作为@AlexK。建议或使用字段名称作为IsNull() 的参数。

DELETE * 中的* 不是必需的。如果包含它，Access 不会引发错误。当您希望在 Access 查询设计器的数据表视图中预览受影响的行时，它会很有用。

delSQL = "DELETE * FROM Notifications AS n WHERE n.User Is Null"

我建议您将SetWarnings 保持打开状态，并使用CurrentDb.Execute 和dbFailOnError 来执行DELETE。由于数据源是一个链接的SQL Server表，还包括dbSeeChanges：

DoCmd.SetWarnings True
CurrentDb.Execute delSQL, dbSeeChanges + dbFailOnError

这种方法可以让您更好地了解遇到的任何问题。