如何通过记录集循环执行多条DDL语句？批量重命名字段求助

问题背景 #

需要批量修改数百张表中数千个字段名，去除其中的空格与特殊字符。最初思路是将修改规则存入表，通过查询生成每条字段对应的重命名语句（示例：currentdb.TableDefs("tblA").Fields("Bad Field / Name - why_do_this").Name = "GoodFieldName"），该语句在立即窗口可正常执行，但在VBA模块循环记录集执行时失败。

错误原因 #

使用DoCmd.RunSQL (rs(0))时触发运行时错误'3129'，提示"无效SQL语句；预期'DELETE'、'INSERT'、'PROCEDURE'、'SELECT'或'UPDATE'"。核心原因是：

• DoCmd.RunSQL仅支持执行标准SQL语句，而生成的语句是VBA代码，不属于SQL DDL范畴，因此无法被识别执行。

可行解决方案 #

放弃生成字符串语句的方案，直接在VBA中通过DAO对象模型操作表和字段，以下是可正常运行的代码：

Private Sub cmdUpdateFieldName_Click()
    Dim strSQL As String
    Dim rs As DAO.Recordset
    Dim db As DAO.Database, tdf As DAO.TableDef
   
    Set db = CurrentDb

    ' 从查询获取需要修改的字段信息（表名、原字段名、目标字段名）
    strSQL = "select TableName,FieldName,SQLFieldName from qryRemote_qryFieldsSQLOutput where TableName='" & Me.cmbTableName & "' and SQLFieldName is not null"
    
    Set rs = CurrentDb.OpenRecordset(strSQL)
    
    With rs
        If Not .BOF And Not .EOF Then
            .MoveLast
            .MoveFirst
            ' 循环处理每条字段修改记录
            While (Not .EOF)
                ' 先验证字段是否存在，避免报错
                If VerifyFieldExists(rs("FieldName"), rs("TableName")) Then
                    Set tdf = db.TableDefs(rs("TableName"))
                    ' 直接修改字段名称
                    tdf(rs("FieldName")).Name = rs("SQLFieldName")
                End If
                .MoveNext
            Wend
        End If
    End With
    
    ' 释放对象
    Set tdf = Nothing
    Set db = Nothing

    MsgBox "修改完成"
End Sub

注：代码中用到的VerifyFieldExists函数需自行实现，用于检查指定表中是否存在目标字段，避免因字段不存在导致运行错误。

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