| Ziel: Aus dem Recordset aller Personen sollen die Personen gefunden und ausgegeben werden, die verstorben sind. Ansatz - Recordset als Dnyaset befüllen, Zeiger steht auf erstem Datensatz oder wenn leer, dann auf Ende Set rcsPers = db.OpenRecordset("tblPersonen", RecordsetTypeEnum.dbOpenDynaset) - Recordset durchsuchen nach Kennzeichen rcsPers.FindFirst ("persVerstorben = True") - Schleife, bis keine Treffer (mehr) Do Until rcsPers.NoMatch Debug.Print rcsPers.Fields("persName")& _ ", " & rcsPers.Fields("persVorname") rcsPers.FindNext ("persVerstorben = True") Loop |