Access 2010 Abfrage zusammenfassen (Dynamische Abfrage)

Ich habe mal wieder ein Datenbanken Problem. Ich möchte eine Auswertung einer Tabelle durchführen mittels eines Abfrage/Such Formulares.

Die Datenbank beinhaltet eine Tabelle mit Datensätzen, die über ein Formular erweitert werden. Bsp.: Ein Handy-Shop verkauft an 10 Standpunkten jeweils 32 verschiedene Handys.
So nun möchte ich für jeden Standpunkt Auswertungen machen können. Die Abfrage hierfür ist im Wesentlichen immer Gleich:


Erklärung: Ich möchte herausfinden, wie viele xPhone Handys ich im Januar 2011 am Standpunkt Hamburg verkauft habe. Die Standpunkte und die Handys sind dementsprechend natürlich Boolesche Werte.
Wenn ich nun jede Abfrage Manuel erstellen muss, und jeden Monat und das gesamte Jahr auswährten möchte käme ich nach meiner Rechnung auf 4160 Abfragen, die ich wegen dem Datum jedes Jahr erneuern müsste! Das möchte ich nicht ;)

Ich suche nach einer Lösung um das Ganze auf 32 Abfragen zu minimieren, also brauch ich eine Lösung, wo der Standpunkt und die beiden Datum dynamisch vom User verändert werden können.
Desweiteren soll dann die Abfrage als Bericht ausgegeben werden.


Für eure Hilfe bin ich sehr dankbar, sollte etwas noch unklar sein bitte ich dieses zu entschuldigen und werde es versuchen ausführlicher zu formulieren.


LG
cp-com

Me.RecordSource = "SELECT Count (xPhone) FROM Tabelle WHERE xPhone = TRUE AND " & Forms("Formularname").Standort &  " = TRUE AND Verkaufsdatum Between #"  & Forms("Formularname").StartDatum & "# AND #"  & Forms("Formularname").EndDatum & "#"  

> Me.RecordSource = "SELECT Count (xPhone) FROM Tabelle WHERE xPhone = TRUE AND " &  
> Forms("Formularname").Standort &  " = TRUE AND Verkaufsdatum Between #"  &  
> Forms("Formularname").StartDatum & "# AND #"  & Forms("Formularname").EndDatum &  
> "#"  
> 

Private Sub Befehl8_Click()
Me.RecordSource = "SELECT Count (xPhone) FROM Haupt_Tbl WHERE xPhone = TRUE AND " & Forms("Formular1").Kombinationsfeld2 & " = TRUE AND verkaufDatum Between #" & Forms("Formular1").Text4 & "# AND #" & Forms("Formular1").Text6 & "#"  
DoCmd.OpenReport ReportName:="Auswertung", View:=acViewPreview  
End Sub

Private Sub Befehl8_Click()

Dim db as Database
Dim rs as dao.Recordset
Dim SQL as String

SQL = "SELECT Count (xPhone) as cnt FROM Haupt_Tbl WHERE xPhone = TRUE AND " & Forms("Formular1").Kombinationsfeld2 & " = TRUE AND verkaufDatum Between " & cdate(Forms("Formular1").Text4) & " AND " & cdate(Forms("Formular1").Text6)  
set rs = db.openrecordset(SQL)

if not rs.eof then
  if rs![cnt] > 0 then 
    DoCmd.OpenReport ReportName:="Auswertung", View:=acViewPreview   
  end if
end if

set rs = nothing
db.close

end sub

Private Sub Report_Open(Cancel As Integer)
  Me.RecordSource = "SELECT FeldA, .., FeldZ FROM Haupt_Tbl WHERE xPhone = TRUE AND " & Forms("Formular1").Kombinationsfeld2 & " = TRUE AND verkaufDatum Between " & cdate(Forms("Formular1").Text4) & " AND " & cdate(Forms("Formular1").Text6)  
End Sub