如何在消息框中显示受查询影响的记录

Question

我在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

Answer 1

当您在查询中使用.Execute而不是为数据库执行SQL字符串(即CurrentDb.Execute "INSERT INTO..."(时，您还需要对查询本身使用.RecordsAffected：

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

问候，