ACCESS VBA 代码：将一个Recordset生成一个数据库里的表

在ACCESS VBA中，如果你想将一个Recordset的内容复制到数据库中的一个表（实际上是追加数据），可以使用`Do Until`循环结合`AddNew`和`Update`方法。假设你的Recordset名为`rs`，目标表为`TableName`，并且已经设置了连接。

Sub CopyRecordsetToTable()
    Dim rs As DAO.Recordset
    Dim db As DAO.Database
    Dim newRow As DAO.Recordset
    Dim fld As DAO.Field
    Dim sql As String

    ' 获取当前数据库对象
    Set db = CurrentDb
    
    ' 打开你的Recordset
    Set rs = CurrentDb.OpenRecordset("Your_Recordset_Source", dbOpenSnapshot) ' 替换为你的Recordset源

    ' 检查Recordset是否为空
    If Not rs.EOF And Not rs.BOF Then
        ' 创建新的临时Recordset用于插入新记录
        Set newRow = db.OpenRecordset(dbCreateTableDef, "TableName") ' 替换为你的目标表名

        ' 循环遍历原Recordset的每一条记录
        Do While Not rs.EOF
            ' 将当前Recordset的所有字段值添加到新的临时Recordset中
            For Each fld In rs.Fields
                newRow!fld.Name = rs!fld.Name ' 使用字段名，替换为实际字段
            Next fld
            
            ' 添加新记录到临时表
            newRow.AddNew
            
            ' 更新所有字段值
            newRow.Update
            
            ' 移动到下一行
            rs.MoveNext
        Loop

        ' 保存并关闭临时Recordset
        newRow.Close
        Set newRow = Nothing
        
        ' 删除原始数据表，然后重建以包含新数据
        db.Execute "DROP TABLE TableName"
        db.Execute "CREATE TABLE TableName AS SELECT * FROM YourTempTable" ' 替换为临时表名

        ' 清理
        Set rs = Nothing
        Set db = Nothing
    Else
        MsgBox "Recordset is empty."
    End If
End Sub