如何实现MS Access按表名将ID插入对应表？含VBA代码调试

你的代码存在的核心问题 #

1. 无错误反馈机制：db.Execute默认不会抛出执行错误，就算SQL语法错、字段值非法，也不会有任何提示，看起来就像代码没运行。
2. SQL拼接未处理特殊字符：如果ID包含单引号（比如O'Neil），拼接后的SQL会直接语法报错，导致插入失败。
3. 硬编码表名扩展性差：用If-Else判断表名的写法，没法支持新增的数据表，不符合你要的多表循环需求。

快速排查步骤 #

先给原代码加临时错误提示，定位具体问题：

While Not rs.EOF
    If rs!table_name = "table1" Then
        On Error Resume Next
        db.Execute "INSERT INTO table1 (ID) VALUES ('" & rs!ID & "');", dbFailOnError
        If Err.Number <> 0 Then
            MsgBox "插入table1失败: " & Err.Description & " | 当前ID: " & rs!ID
            Err.Clear
        End If
    ElseIf rs!table_name = "table2" Then
        On Error Resume Next
        db.Execute "INSERT INTO table2 (ID) VALUES ('" & rs!ID & "');", dbFailOnError
        If Err.Number <> 0 Then
            MsgBox "插入table2失败: " & Err.Description & " | 当前ID: " & rs!ID
            Err.Clear
        End If
    End If
    rs.MoveNext
Wend

运行后根据弹窗提示，可快速定位以下常见问题：

• requests表的table_name字段值是否有拼写错误（比如带空格、大小写不一致）
• ID字段是否包含特殊字符（单引号、换行符）或空值
• 目标表是否存在、权限是否正常

支持多表的改进版代码 #

下面的代码解决了原问题，同时支持任意数量的目标表，还加入了事务保障数据一致性：

Option Compare Database
Option Explicit

Private Sub Command0_Click()
    UpdateTables
End Sub

Public Sub UpdateTables()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim strSQL As String
    Dim strInsertSQL As String
    
    Set db = CurrentDb()
    strSQL = "SELECT ID, table_name FROM requests;"
    
    ' 只读模式打开记录集，提升效率
    Set rs = db.OpenRecordset(strSQL, dbOpenDynaset, dbReadOnly)
    
    ' 开启事务：要么全部插入成功，要么全部回滚
    db.BeginTrans
    
    On Error GoTo RollbackAndError
    
    While Not rs.EOF
        ' 动态拼接表名，处理ID中的单引号（替换为两个单引号避免SQL语法错误）
        strInsertSQL = "INSERT INTO [" & rs!table_name & "] (ID) VALUES ('" & Replace(Nz(rs!ID, ""), "'", "''") & "');"
        ' 执行插入，出错立即抛出
        db.Execute strInsertSQL, dbFailOnError
        
        rs.MoveNext
    Wend
    
    ' 提交事务
    db.CommitTrans
    MsgBox "数据插入完成！"

Cleanup:
    ' 清理资源
    If Not rs Is Nothing Then
        rs.Close
        Set rs = Nothing
    End If
    Set db = Nothing
    Exit Sub

RollbackAndError:
    ' 出错回滚所有操作
    db.Rollback
    MsgBox "插入失败: " & Err.Number & " - " & Err.Description
    Resume Cleanup
End Sub

非VBA替代方案（固定表场景） #

如果你的目标表数量固定、不需要动态扩展，可以直接创建追加查询：

• 针对table1的追加查询SQL：

INSERT INTO table1 (ID)
SELECT ID FROM requests WHERE table_name = 'table1';

• 针对table2的追加查询SQL同理，需要时手动运行或通过表单按钮触发查询执行即可。

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