如何在VBA中将SQL查询结果记录保存为整数

我在Access 2016中有一个查询，我想在VBA模块中将记录编号保存为整数。例如，Query1有10条记录应另存为：

int query1=10

如何使用？

您可以使用DCount函数：

公共子计数记录 作为整数的Dim i i=DCount*，您的\u查询\u姓名 调试.打印i 端接头 或者使用带有COUNT的SQL查询和记录集：

公共子计数记录2 将RST设置为记录集 作为整数的Dim i 设置RST=CurrentDb.OpenRecordsetSELECT COUNT*作为您的查询名称中的CNT 我=RST！碳纳米管 调试.打印i 端接头 DCount可能是最可读的方法，但为了提供另一种选择，您也可以使用记录集的RecordCount属性，例如：

次计数记录3 我想我会坚持多久 使用CurrentDb.OpenRecordsetYour\u Query\u Name 如果不是，那么EOF .先走一步 .最后一个 i=.RecordCount 如果结束 关 以 端接头

---

有人知道我怎么做吗？非常感谢！！是的，使用sql的sum函数