aantal records

[LucSleeckx]

Ik heb een eigen schakelbord gemaakt in een formulier met de nodige knoppen, daarop zou moeten verschijnen van een bepaalde tabel aan hoeveel records deze tabel zit.

vb: Aantal panden: 229

"229" zou dan automatisch moeten aanpassen naar 230 als er een record word toegevoegd in de tabel panden. Is dit mogelijk via een query?

 

[ReneDirks]

makkelijkst is wellicht om via een timer functie het schakelbord formulier (of in ieder geval het aantal veld) iedere minuut te refreshen

 

[LucSleeckx]

owkeej,

Doch nu weet ik niet welk veld ik moet (expressie) aanmaken om alle records op te tellen
Sorry dat ik misschien moeilijk doe maar ik weet het niet anders uit te leggen

 

[ReneDirks]

Module maken waar je de volgende code in zet:

Public Function CountRecords(strSQL As String) As Long
    Dim rst As DAO.Recordset
    Set rst = CurrentDb.OpenRecordset(strSQL)
    If Not rst.EOF Then rst.MoveLast
    CountRecords = rst.RecordCount()
    rst.Close
    Set rst = Nothing
End Function

je kunt nu bv met CountRecords("Tabel1") het aantal records uit tabel1 opvragen. En dit kun je dus toekennen aan een control mbv

=CountRecords("Tabel1")

Je kunt ook een query gebruiken:

CountRecords("SELECT ID FROM Tabel1 WHERE Voornaam='Jos'")

 

[LucSleeckx]

punthoofd

Krijg er een punthoofd van

toch bedankt voor de moeite
mvg Luc