Hallo,
in der DropBox wurde ein Beispiel-Access-DB eingestellt, die man herunterladen kann. Daher wurde der Link eingestellt.
Man braucht sich dafür weder Anmelden, noch Registrieren.
Alternativ kann man auch in einer vorhandenen Datenbank eine Abfrage erstellen:
Name: vw_Kundengruppenliste
SQL:
SELECT dpdrueckhol.datum, dpdrueckhol.Kundengruppe
FROM dpdrueckhol
WHERE (((dpdrueckhol.Kundengruppe)=[Bitte Kundengruppe eingeben:]) AND ((Year([datum]))=[Bitte Jahr eingeben:]));
Im VBA-Editor kann in einem Modul (oder im Formular) folgende Zeilen eingetragen werden:
Sub Aufruf()
Debug.Print DCounter(2001, 82)
End Sub
Function DCounter(datYear As Integer, iKundengruppe As Integer)
Dim DB As Database
Dim QD As QueryDef
Dim RS As Recordset
Set DB = CurrentDb()
Set QD = DB.QueryDefs("vw_Kundengruppenliste")
QD.Parameters(0) = iKundengruppe
QD.Parameters(1) = datYear
'QD.Parameters("Your Collection Date") = someOtherValue
Set RS = QD.OpenRecordset(dbOpenSnapshot)
DCounter = RS.RecordCount
RS.Close
QD.Close
DB.Close
End Function
Falls die View anders benannt wurde, muss die Bezeichnung auch im VBA-Code angepasst werden.
Nach dem Aufruf des Befehls Aufruf wird die Anzahl zurückgegeben.
Über die Eigenschaft .recordcount wird die Anzahl der Datensätze zurückgegeben, die den Kriterien entsprechen.
Bei der Sub Aufruf handelt es sich nur um einen Test.
LG, BigBen
|