Um die richtige Anzahl Datensätze von Abfragen zu bekommen kann folgende SQL Befehl benützt werden.
Dim strsql As String Dim rs As DAO.Recordset Dim db As DAO.DATABASE Dim anzahl As Long strsql = "SELECT * FROM tbl_Pruefkatalog WHERE Standard = True" Set db = CurrentDb Set rs = db.OpenRecordset(strsql, dbOpenDynaset) rs.MoveLast anzahl = rs.RecordCount rs.Close: Set rs = Nothing db.Close: Set db = Nothing
Anzahl Datensätze auslesen (RecordSet.Count)