teller loopt achter op werkelijke waarde

[Marabunta]

Hallo allemaal,

Een tijd geleden was ik hier ook al met een probleem over een teller om te laten zien hoeveel mensen er bij ons binnen zijn.

Dat is allemaal gelukt.
De teller is aan het werk.

Maar nu moet er nog een, hopelijk, klein dingetje worden aangepast.
Als er meerdere pasjes achter elkaar worden ingescand gaat de teller achter lopen en komt ook niet meer op het goede getal uit.
In het begin gaat het goed.

Als ik kijk in in de tabel zie ik bijvoorbeeld dat er 130 vinkjes zijn aangevinkt.
En onze teller geeft dan iets aan rond de 110 ofzo.
Het maakt voor de rest niet uit of de pasjes snel of langzaam worden ingescand.
Komt nog steeds een verschil tussen te zitten.

Is er een mogelijkheid om de teller aan te passen zodat de aantallen wel altijd kloppen?

Hieronder de code zoals het er nu inzit.
Dankzij OctaFish! :thumb:

Private Sub Fotonummer_AfterUpdate()
DoCmd.SetWarnings False
DoCmd.Requery
Foto.Picture = "c:\Foto disco\" & fotonr
DoCmd.RunSQL "UPDATE Leerlingen SET Januari = True where Id = Fotonummer"
DoCmd.GoToControl "fotonummer"
Fotonummer = ""
DoCmd.SetWarnings True
 strSQL = "SELECT ABS(SUM(September)) AS Totaal FROM Leerlingen WHERE Januari= True"
    With CurrentDb.OpenRecordset(strSQL)
        If .RecordCount > 0 Then
            Me.Totaal = .Fields("Totaal")
        End If
        .Close
    End With
End Sub

 

[OctaFish]

Begrijp ik dat het aantal wel klopt in de tabel, maar niet op het scherm wordt getoond? In dat geval zou je misschien het formulierveld moeten bijwerken. Misschien dat dit werkt:

            Me.Totaal = .Fields("Totaal")
            Me.Totaal.Requery

Of dit:

            Me.Totaal = .Fields("Totaal")
            Me.Totaal.Refresh

Of een combinatie...

 

[Marabunta]

Klopt helemaal wat je zegt.

Ik ga het vanavond of morgen eens proberen.

Alvast bedankt.
Je hoort het wel.

Adios,
Remco.

 

[Marabunta]

Heb het net uitgeprobeerd.
En het werkt!
Dit is de code die ik heb gebruikt:

Me.Totaal = .Fields("Totaal")
            Me.Totaal.Requery

Dank je wel Octafish!:thumb: