Ms access 如何在Msgbox中显示受查询影响的记录

我在MS Access窗体上有一个按钮，用于将记录从表复制到存档表。我将警告设置为false，但希望向最终用户显示插入该归档表的记录数。我已经尝试了一系列我在网上找到的代码，但是所有的代码都返回一个0的计数，即使记录是附加的。我正在使用Access 2013。下面是我当前的代码。任何帮助都将不胜感激

Private Sub cmdArchiveReceipts_Click()

Dim db As DAO.Database
Set db = CurrentDb
Dim RowsInserted As String


On Error GoTo Err_cmdArchiveReceipts_Click

DoCmd.SetWarnings False

db.QueryDefs("qryAppend_to_Receipts_Archive").Execute
RowInserted = db.recordsAffected
MsgBox RowInserted & " Appended"

DoCmd.SetWarnings True


Exit_cmdArchiveReceipts_Click:
    Exit Sub

Err_cmdArchiveReceipts_Click:
    MsgBox Err.Description
    Resume Exit_cmdArchiveReceipts_Click


End Sub

---

当您对查询使用

.Execute

而不是对数据库执行SQL字符串时（即

CurrentDb.Execute“INSERT INTO…”

），您还需要对查询本身使用

.RecordsAffected

：

db.QueryDefs("qryAppend_to_Receipts_Archive").Execute
RowInserted = db.QueryDefs("qryAppend_to_Receipts_Archive").RecordsAffected

---

关于，

当您对查询使用

.Execute

而不是对数据库执行SQL字符串时（即

CurrentDb.Execute“INSERT INTO…”

），您还需要对查询本身使用

.RecordsAffected

：

db.QueryDefs("qryAppend_to_Receipts_Archive").Execute
RowInserted = db.QueryDefs("qryAppend_to_Receipts_Archive").RecordsAffected

---

问候，

你绝对是我的英雄！非常感谢你。我有一个后续问题。在这种情况下这不是问题，只是为了我将来的知识。db.QueryDefs（“qryAppend\u to\u Receipts\u Archive”）.RecordsAffected是否包含插入的实际行数。例如，如果索引冲突阻止32行中的10行追加，则RowsAffected是否包含正确的22行数？再次感谢你的帮助。你救了我。看来这只统计成功添加的记录。太好了！！再次感谢。你绝对是我的英雄！非常感谢你。我有一个后续问题。在这种情况下这不是问题，只是为了我将来的知识。db.QueryDefs（“qryAppend\u to\u Receipts\u Archive”）.RecordsAffected是否包含插入的实际行数。例如，如果索引冲突阻止32行中的10行追加，则RowsAffected是否包含正确的22行数？再次感谢你的帮助。你救了我。看来这只统计成功添加的记录。太好了！！再次感谢。