Aantal records na filter

[Laroguz]

Hallo,

Als ik in een willekeurig formulier met selectiefilter een willekeurige filtering toe pas, Hoe kan ik dan daarna bepalen hoeveel records er nog over zijn. Ik heb dit aantal namelijk nodig in een stukje VBA code.
De bedoeling is dus om in een grote hoeveelheid data selectiefilter toe te passen en daarna middels een knop een VBA code te starten op de overgebleven records.
Normaal gebruik ik hiervoor Dcount, maar deze werkt niet in een formulier en in de onderliggende query ziet hij blijkbaar de filtering niet. Ik krijg hier dus steeds het totale aantal records en niet de gefilterde.

bij voorbaat dank
Wim Janssen

 

[Greenery80]

ik heb maar wat algemene sites voor je opgezocht.
Je hebt namelijk specificaties van de DCount formule, filter, formulier en velden niet gegeven.

http://www.dbforums.com/microsoft-access/816839-dcount-calculated-field.html

http://www.bigresource.com/MS_ACCESS-Using-variable-in-Dcount-cjF7A25K.html#jFK38c34

http://www.eggheadcafe.com/conversation.aspx?messageid=31926441&threadid=31915485

Ik hoop dat je hier wat aan hebt.

 

[Laroguz]

Hallo

Het probleem zit hem in het feit dat ik op meerdere willekeurige velden kan filteren. Het gaat om een warehouse management system. Dus de velden zijn bijv. "Batch", "PackageId", "Naam", "Lokatie", "Hoeveelheid", "Herkomst". Omdat ik op verschillende velden wil filteren kan ik dus ook geen criteria opgeven voor Dcount.
In jouw eerste link staat iets over een nieuwe SUBSET na filtering. Ik denk dat ik dat zoek. Alle andere informatie gaat over vaste criteria in Dcount.

--------------------------------------------------------------------------------------------------------------------------
=DCount("[ESL]","[ESL Query]","[ESL] = 0")

you are counting records based on a fix number from the query, if that query has no criteria then the dcount wil never change unless of course you add or delete records.

when you apply a filter you are at that point "drilling down" further into the recoedset and subsequently making a new subset of the original recordset and then requerying the form based on the subset

but the dcount will still run against the query object, you may need to count against the new subset of the form
me.recordsource

or create a second query that uses certain fields on the form for its underlying criteria (this is the simplest way)
and then just do dcount of the query to count the rows with no other criteria

dim x as variant
x = dcount("[myfield]","mysecondquery")
--------------------------------------------------------------------------------------------------------------------------

groeten
Wim Janssen

 

[Harry46]

Een mogelijkheid is, tellen via de recordset, b.v.
Me.RecordsetClone.RecordCount
Opmerking:
Tellen via de recordset gaat soms niet goed, als de recordset nog niet is 'doorlopen'.
Dat kan eventueel via Me.RecordsetClone.Movelast

 

[Bakk4318]

Maak eens een veld in de voettekst van je formulier en zet in de "Besturingselementbron" van het veld "=Aantal(*). Volgens mij moet het dan goed gaan.

 

[Laroguz]

Hallo,

Voor Harry.
Forms![FrmMutatiesSerie].RecordsetClone.RecordCount werkt inderdaad prima.

Dank je
Wim Janssen