创建临时表并编辑替换原表：代码指令序列是否有误？

你的代码存在逻辑冲突和对象不匹配的问题，这是导致执行结果不稳定的根本原因：

1. 重复创建Temp表，对象完全不匹配

   • 你先通过Set tbl_copy = db.CreateTableDef("Temp")创建了一个空的TableDef对象
   • 紧接着又执行db.Execute "SELECT * INTO [Temp] FROM [" & tblName & "]"，这条SQL会直接在数据库里生成一个包含原表数据的Temp表
   • 此时tbl_copy对象和数据库里实际存在的Temp表是两个独立的实体，后续对tbl_copy的字段追加操作，都是在操作那个空对象，和存储了原表数据的Temp表毫无关联

2. 操作顺序颠倒，直接导致数据丢失

   • 你先删除了原表tblName，但后续并没有基于SELECT INTO生成的真实Temp表做修改，而是把空的tbl_copy追加到数据库再改名，最终得到的表只有你追加的日期字段，原表数据完全丢失

修正后的正确逻辑步骤 #

• 先用SELECT INTO生成包含原表数据的Temp表
• 获取数据库中实际存在的Temp表的TableDef对象
• 向这个真实的TableDef对象追加新字段
• 删除原表
• 将Temp表重命名为原表名称

修正后的示例代码 #

' 1. 生成带原表数据的Temp表
db.Execute "SELECT * INTO [Temp] FROM [" & tblName & "]"

' 2. 获取数据库中真实的Temp表对象
Dim tbl_copy As TableDef
Set tbl_copy = db.TableDefs("Temp")

' 3. 追加新字段
Dim field_name As String
With tbl_copy
    For col_id = 2 To named_range.Columns.Count
        field_name = Format(named_range(1, col_id).Value, "m/d/yyyy")
        .Fields.Append .CreateField(field_name, dbdata_type)
    Next col_id
End With

' 4. 删除原表（若原表有索引/关系需提前处理）
db.TableDefs.Delete tblName

' 5. 重命名Temp表为原表名称
tbl_copy.Name = tblName

额外注意事项：

• 确保dbdata_type是合法的Access数据类型常量（如dbText、dbDate等）
• SELECT INTO不会复制原表的索引、关系或约束，若有需要需额外代码处理
• 建议添加错误捕获逻辑，避免因表不存在、字段名重复等问题导致程序崩溃

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