Hallo,
da noch keiner auf die Anfrage geantwortet hat, versuche ich es mal:
In Access kann eine Abfrage erstellt werden, mit der alle status-Informationen gruppiert und gezählt werden. Mit einem Parameter kann die gewünschte Nummer gefiltert werden:
PARAMETERS NummerFilter Short;
SELECT tab_status.Nummer, tab_status.Status, Count(tab_status.Status) AS AnzahlvonStatus
FROM tab_status
GROUP BY tab_status.Nummer, tab_status.Status
HAVING (((tab_status.Nummer)=[NummerFilter]));
Wenn diese View via VBA abgefragt werden soll, kann das auch geschehen:
Sub OpenQuery()
Dim db As Database
Dim rst As Recordset
Dim qdf As QueryDef
Set db = CurrentDb()
Set qdf = db.QueryDefs("qry_CountStatus")
qdf.Parameters("NummerFilter").Value = 999
Set rst = qdf.OpenRecordset
If Not rst.EOF Then
rst.MoveFirst
Do Until Not rst.BOF And rst.EOF
Debug.Print rst.Fields(0).Value, rst.Fields(1).Value, rst.Fields(2).Value
rst.MoveNext
Loop
End If
rst.Close
db.Close
End Sub
Es wird angenommen, das die Abfrage unter dem Namen "qry_CountStatus" abgespeichert wurde.
|