Vba 从操作查询中提取行计数

我有一个表单按钮，可以运行删除查询和追加查询。我希望能够向用户显示有多少行将被删除，有多少行将被追加，并将它们存储在表单上。该按钮的查询已存在于VBA之外。所以我只是用DoCmd.OpenQuery调用查询。我关闭了警告，这样弹出窗口就不会显示“您真的想删除这么多行吗？”但我仍然想知道有多少行将被删除或追加，并将该数字作为变量存储在某个位置，以便用户可以看到它。我怎样才能做到这一点

---

我尝试了一个DCount函数，但因为这些是操作查询，所以无法工作。我还希望避免将查询的SQL放在VBA中。我喜欢它们独立于VBA，可以自己编辑

假设使用ACE/Jet，您可以使用currentdb实例运行查询，然后查看RecordsAffected属性

Dim db As Database
Set db = CurrentDb

db.Execute "Delete From Table1 Where Id = 1"
Debug.Print db.RecordsAffected

或者使用已保存的查询

Dim db As Database
Set db = CurrentDb

db.Execute "ADelete"
Debug.Print db.RecordsAffected

---

假设ACE/Jet，您可以使用currentdb实例运行查询，然后查看RecordsAffected属性

Dim db As Database
Set db = CurrentDb

db.Execute "Delete From Table1 Where Id = 1"
Debug.Print db.RecordsAffected

或者使用已保存的查询

Dim db As Database
Set db = CurrentDb

db.Execute "ADelete"
Debug.Print db.RecordsAffected

---

我以前没做过。VBA的基本功能是什么？这很有效。非常感谢。我不得不对我的查询进行一些编辑以使其正常工作。它一直告诉我参数太少，因为我有一个标准是由用户在表单中输入的内容设置的。我想我需要进一步了解.execute函数。通常我使用OpenQuery。但是OpenQuery不能告诉我受影响的记录。再次感谢你的帮助。如果你需要用户输入，考虑参数和查询的实例（），QueDeEF也有受影响的记录（）我以前没有做过。VBA的基本功能是什么？这很有效。非常感谢。我不得不对我的查询进行一些编辑以使其正常工作。它一直告诉我参数太少，因为我有一个标准是由用户在表单中输入的内容设置的。我想我需要进一步了解.execute函数。通常我使用OpenQuery。但是OpenQuery不能告诉我受影响的记录。再次感谢你的帮助。如果你需要用户输入，考虑参数和查询的实例（），QueDeEF也有受影响的记录（）