使用VBA向Access数据库插入数据时排除重复项报错求助

这个错误的核心原因是Access的SQL语法限制：INSERT INTO ... VALUES这种直接插入值的写法，是不支持附加WHERE子句的，这就是为什么你会触发“查询输入必须包含至少一个表或查询”的3067错误。

正确的SQL写法（用INSERT INTO...SELECT替代VALUES） #

把原来的VALUES改成SELECT语句，就能合法使用WHERE NOT EXISTS来过滤重复项了，同时注意Access里日期要用#包裹（比双引号更安全，避免格式解析问题）：

strSQL = "INSERT INTO PubHol (HolidayDate, HolidayName) " & _
         "SELECT #" & dtOutDT & "#, """ & strOutDesc & """ " & _
         "WHERE NOT EXISTS (SELECT * FROM PubHol ph WHERE ph.HolidayDate = #" & dtOutDT & "#)"
MsgBox strSQL
dbCurr.Execute strSQL, dbFailOnError

原理是：当NOT EXISTS的条件成立（即该日期还没存在于表中），SELECT会返回一行要插入的数据；如果条件不成立，SELECT返回空结果，自然就不会执行插入操作。

其他避免重复项的可靠方案 #

除了SQL层面的检查，还有两种更稳妥的方式：

• 设置唯一索引（推荐）：直接在Access表设计视图中，给HolidayDate字段添加唯一索引。这样哪怕代码层面没做检查，数据库本身会直接阻止重复日期的插入，还能避免多用户并发操作时可能出现的重复问题（纯SQL检查可能会有并发漏洞）。
• DAO Recordset前置检查：如果习惯用对象操作，可以先打开表的记录集，查找是否存在目标日期，不存在再执行插入：

  Dim rs As Recordset
  Set rs = dbCurr.OpenRecordset("PubHol", dbOpenDynaset)
  rs.FindFirst "HolidayDate = #" & dtOutDT & "#"
  If rs.NoMatch Then
      rs.AddNew
      rs!HolidayDate = dtOutDT
      rs!HolidayName = strOutDesc
      rs.Update
  End If
  rs.Close
  Set rs = Nothing
  

你原来生成的错误SQL语句：

INSERT INTO PubHol (HolidayDate, HolidayName) VALUES ("01/01/2018", "New Year's Day" ) WHERE NOT EXISTS (SELECT * FROM PubHol as ph WHERE ph.HolidayDate = CDate ('01/01/2018'))

内容的提问来源于stack exchange，提问作者Dan