vba - 如何设置查询结果等于 VBA 中的变量？

Question

我有一张名为MIUInfo. 其中有三列；MIUID, Latitude, 和Longitude.
在其中，我正在运行以下查询，该查询获取MIUID条件范围内的 s 数。

SELECT Count(MIUInfo.MIUID)
      From MIUInfo 
      WHERE ((MIUInfo.Latitude Between " & minLat & " And " & maxLat & ") 
      AND (MIUInfo.Longitude Between " & minLong & " And " & maxLong & "))

我需要将此查询的结果设置为等于 VBA 中的一个变量，以便我可以将其用作循环的条件。我不知道该怎么做。

此外，当我尝试使用该DoCmd.RunSQL命令时出现错误：

运行时错误“2342”：RunSQL 操作需要 SQL 语句的参数。

此查询与我正在运行的其他查询之间的唯一区别DoCmd.RunSQL是所有其他选择查询都在生成一个新表。

Answer 1

在 Access 中，最简单的方法是使用DCount函数：

Total = DCount("MIUInfo.MIUID", "MIUInfo", "(MIUInfo.Latitude Between " & minLat & " And " & maxLat & ") AND (MIUInfo.Longitude Between " & minLong & " And " & maxLong & ")")

Answer 2

使用DCOUNT