MS访问使用vba复制记录集

Question

更新：

我正在尝试设置一个“任务”表单，当您单击一个按钮时，它将获取 [Status] 为 10 的所有记录并复制它们，然后之前的记录将被标记为 [Status] 100。

所以我所拥有的是以下“之前”数据表视图：

运行代码后，它将如下所示：

因此，代码将复制所有 [Status] 为 10（“In Progress”）的记录，将旧记录标记为 [Status] 100（“Completed”），并在 [Date Completed] 字段添加时间戳。

希望这有助于澄清我正在尝试做的事情。

代码如下：

Public Sub Duplicate_Click()
Dim rs As DAO.Recordset

Set rs = CurrentDb.OpenRecordset("SELECT * FROM tblTasks")
rs.MoveFirst

If Not (rs.EOF And rs.BOF) And Me.Status = 10 Then

Do Until rs.EOF = True
'Copy/Paste In Process Tasks
    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdCopy
    DoCmd.RunCommand acCmdPasteAppend
    [Status].Value = 0
    rs.MoveNext
Loop
Else
    MsgBox ("Nothing Done")
'do nothing
End If

    MsgBox ("Complete")

rs.Close 'Close the recordset
Set rs = Nothing 'Clean up

End Sub

Answer 1

您为什么不为此任务使用简单的insert 查询？

例如：

insert into tblTasks
select * from tblTasks where tblTasks.status = 10

Answer 2

您似乎没有对 Recordset 做任何事情。

这些：

DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
DoCmd.RunCommand acCmdPasteAppend

只会影响活动表单数据表。不是记录集。他们也不会四处走动做他们所做的事情。这三个命令将选择记录，复制记录，然后将相同的记录粘贴到末尾，然后重复。

您可以将源和目标作为记录集打开，并在您通过源移动时将它们添加到目标，因为它们具有适当的值 所以像

Dim rs1 As DAO.Recordset
Dim rs2 As DAO.Recordset

Set rs1 = CurrentDb.OpenRecordset("Source")
Set rs2 = CurrentDb.OpenRecordset("Destination")

rs1.MoveFirst

If Not (rs1.EOF And rs1.BOF) And Me.Status = 10 Then

Do Until rs1.EOF = True
    If(rs1![Field] = 10) Then
       With rs2
            .AddNew
            ![Field]=rs1![Field]
            .Update
       End With
    End If
    rs1.MoveNext
Loop
Else
    MsgBox ("Nothing Done")
'do nothing
End If

    MsgBox ("Complete")

rs1.Close 'Close the recordset
Set rs1 = Nothing 'Clean up
rs2.Close 'Close the recordset
Set rs2 = Nothing 'Clean up
End Sub

Answer 3

这些

DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
DoCmd.RunCommand acCmdPasteAppend

处理当前表单中的记录。他们不关心记录集。

但这可能不是唯一的问题。我建议您更改您的问题或提交一个新问题，以包含您的表格以及您想要通过期望结果的示例来完成什么，因为我很确定即使上述行按照您的想法工作，你仍然不会得到想要的结果。