如何在MS Access的VBA插入查询中为记录新增指定列值？

我正在使用VBA通过SQL语句将查询集插入到现有的MS Access 365表中。现有可正常运行的插入代码如下：

CurrentDb.Execute "Insert Into Tablename Select temp.* From temp", dbFailOnError 'if table exists
 
CurrentDb.Execute "Select temp.* Into Tablename From temp", dbFailOnError 'if table does not exist

现在需要为插入的记录新增一个原查询中不存在的列Evtlog，并为该列赋值'1'。尝试执行以下语句时出现语法错误：

CurrentDb.Execute "Insert Into Tablename Select temp.* From temp Set Evtlog=1", dbFailOnError 

想知道能否结合Select与Set实现需求，或通过其他方式（如给查询集新增列）实现，优先保留Select方式以适配动态变化的查询列。

1. 直接在SELECT语句中添加常量列（优先推荐） #

INSERT...SELECT语法里不能搭配SET使用，正确的做法是在SELECT的字段列表中直接追加常量值作为新增列，这样既保留了temp.*适配动态列的特性，又能完成Evtlog列的赋值。

表已存在的场景：

CurrentDb.Execute "Insert Into Tablename Select temp.*, '1' As Evtlog From temp", dbFailOnError

表不存在的场景：

CurrentDb.Execute "Select temp.*, '1' As Evtlog Into Tablename From temp", dbFailOnError

执行后，每条插入记录的Evtlog列都会被设为'1'，同时temp表的所有动态列也会被正常插入目标表。

2. 备选方案（不推荐） #

如果必须拆分操作，可以先插入原有数据，再批量更新Evtlog列，但这种方式需要两次数据库操作，效率更低，还可能存在并发数据不一致的风险：

' 插入原有数据
CurrentDb.Execute "Insert Into Tablename Select temp.* From temp", dbFailOnError
' 更新Evtlog列
CurrentDb.Execute "Update Tablename Set Evtlog='1' Where Evtlog Is Null", dbFailOnError

显然第一种方案更简洁高效，也完全符合你优先保留Select方式的需求。

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