Wie setze ich ein Abfrageergebnis gleich einer Variablen in VBA?

Question

Ich habe eine Tabelle mit dem Titel MIUInfo. In ihm gibt es drei Spalten; MIUID, Latitude und Longitude.
Darin führe ich die folgende Abfrage, die die Anzahl der MIUID s im Kriterienbereich erhält.

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

Ich brauche das Ergebnis dieser Abfrage gleich eine Variable in VBA zu setzen, so dass ich es als Bedingung für eine Schleife verwenden kann. Ich kann nicht herausfinden, wie das geht.

Auch wenn ich versuche, den DoCmd.RunSQL Befehl zu verwenden, bekomme ich einen Fehler:

Run-time error '2342': A RunSQL action requires an argument of an SQL statement.

Der einzige Unterschied zwischen dieser Abfrage und andere, die ich mit dem DoCmd.RunSQL renne ist, dass alle anderen Auswahlabfragen sind Erzeugen einer neuen Tabelle

Answer 1

In Access ist der einfachste Weg, dies zu tun ist mit der DCount Funktion:

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

Answer 2

Verwenden DCOUNT