RecCount werkt niet direct

[lunatic95]

Ik gebruik de volgende code om in mijn formulier "X van Y" (recordnummer) aan te geven:

Private Sub Form_Current()
Dim RecCount As Integer
RecCount = Me.RecordsetClone.RecordCount
Me.RecordXofY = Me.CurrentRecord & " van " & RecCount
End Sub

Werkt in principe wel, maar hij geeft bij het openen van het formulier altijd "1 van 1", en pas als ik naar de volgende record ga, geeft hij "2 van 252" (en als ik terugga ook "1 van 252"). Is dit gewoon een bug of hebben jullie (alweer) een slimmigheidje?

 

[lunatic95]

Opgelost!

Me.RecordsetClone.MoveLast

Deze even toegevoegd aan de code, en nu is het in orde!

 

[OctaFish]

Zou ik toch echt niet doen; hoe groter je tabel, hoe trager de code wordt want MoveLast kan een hele trage actie zijn. Ik zou één keer Movelast doen bij het openen van het formulier zodat je de beginwaarde weet, en vervolgens bijhouden hoeveel records er bij komen en dat getal erbij optellen.
Veel beter nog: gebruik een cursortype dat wél zonder Movelast het juiste aantal uitleest.

 

[lunatic95]

Oh ja, daar had ik nog niet aan gedacht! Maar ik kom waarschijnlijk niet boven de 260 records, dus langer dan een halve seconde gaat het laden al niet duren.