Records tellen in MS Access 2000

[Verwijderd]

Hoe kan je in microsoft access door middel van een stukje code het aantal records tellen dat in de tabel of query staat.

[Verwijderd]

HALLOWA IS DAAR IEMAND

[Verwijderd]

Op dinsdag 26 juni 2001 18:13 schreef HT het volgende:
HALLOWA IS DAAR IEMAND

/me wilde een antwoord gaan geven, maar verwijst HT nu toch maar even door naar een SQL handleiding.
Keywords: count

[Phenomenon]

Weet zo snel ff niet een andere manier...is beetje omslachtig deze, maar werkt wel.

Dim dbs as database
dim rst as dao.recordset
dim i as integer

set rst = dbs.openrecordset("SELECT * FROM TABEL)

i=0
rst.movefirst
do while not .eof
i = i + 1
rst.movenext
loop

[Verwijderd]

Mwah mijn oplossing lijkt me handiger.
Dit is wel errug omslachtig!

Is gewoon een SQL-statement die het gewenste resultaat terug geeft.

[Buzzman]

Op dinsdag 26 juni 2001 18:13 schreef HT het volgende:
HALLOWA IS DAAR IEMAND

Denk je nu echt dat je binnen 10 minuten antwoord krijgt?

dit gedrag is zeeer irritant en niet voor herhaling vatbaar...

[Phenomenon]

Op dinsdag 26 juni 2001 18:42 schreef nelske het volgende:
Mwah mijn oplossing lijkt me handiger.
Dit is wel errug omslachtig!

Is gewoon een SQL-statement die het gewenste resultaat terug geeft.

Tsja daarom zij ik al dat het een beetje omslachtig is.....maar heb hier zo snel geen office help.... en ander manier wist ik zo niet uit mijn hoofd...dus daarom....aangezien meneertje nogal wat haast had

[Verwijderd]

Vanavond laat post ik het antwoord wel (dat verbazend simpel is). Okee

/me heeft echt een hekel aan dit soort replies op een eigen topic binnen 10 minuten. Zeker als de Caps dan ook nog eens blijft hangen.

[Verwijderd]

Zoals beloofd :

code:

SELECT COUNT(*) FROM tabelnaam;

Eventueel nog met een conditie erbij:

code:

SELECT COUNT(*) FROM tabelnaam WHERE conditie=true;

[Buzzman]

Op dinsdag 26 juni 2001 23:46 schreef nelske het volgende:
Zoals beloofd :

code:

SELECT COUNT(*) FROM tabelnaam;

Eventueel nog met een conditie erbij:

code:

SELECT COUNT(*) FROM tabelnaam WHERE conditie=true;

Het was ook zoooo simpel

[Witte]

Er is maar een manier:

code:

Public Sub tel_records()
Dim db As Database, rs As Recordset, aantal As Long
Set db = CurrentDb
Set rs = db.OpenRecordset("Brontabel")

  If Not rs.EOF Then rs.MoveLast

  aantal = rs.RecordCount

End Sub

[Verwijderd]

Op dinsdag 26 juni 2001 23:56 schreef Buzzman het volgende:

[..]

Het was ook zoooo simpel

JAH
/me was alleen een beetje pissig, door de reactie.

Op woensdag 27 juni 2001 00:02 schreef Witte het volgende:
Er is maar een manier:

oh

[Witte]

Op dinsdag 26 juni 2001 18:03 schreef HT het volgende:
Hoe kan je in microsoft access door middel van een stukje code het aantal records tellen dat in de tabel of query staat.

Ja, lezen!

[Verwijderd]

Op woensdag 27 juni 2001 00:12 schreef Witte het volgende:

[..]

Ja, lezen!

Okee mijn SQL-statement had nog eventueel in een stukje VBscript kunnen staan o.i.d.
Maar, je denkt toch niet dat ik letterlijk uit ga leggen hoe dat moet he
Dat zijn typisch dingen die je zelf moet verzinnen anders wordt het nooit wat.

Verder denk ik dat jij beter moet lezen, want jouw code geeft dus niet de hoeveelheid records van een query terug

[Witte]

Jawel hoor.

[Verwijderd]

Bedankt allemaal.

[Verwijderd]

He Nelske heb je last van je rooie dagen ofzo? Overigens geen van jullie oplossingen werkt!

Ik vraag dus nog maar een keer om hulp.

[Verwijderd]

Op woensdag 27 juni 2001 08:50 schreef Witte het volgende:
Jawel hoor.

Waarom zie ik dan geen query staan?

Op woensdag 27 juni 2001 10:04 schreef HT het volgende:
He Nelske heb je last van je rooie dagen ofzo? Overigens geen van jullie oplossingen werkt!

Ik vraag dus nog maar een keer om hulp.

Rooie dagen heb ik niet snel Alleen ben ik iemand die nog nooit een vraag op GOT gesteld heeft en altijd mensen (probeert te) helpen mmet hun probjes. Tja dan wil je wel eens een ietsie pietsie pissig worden door zo'n' antwoord
En als je aan de grote hoeveelheid rood in m'n posts refereert dan: /me ja ik zit in m'n rode dagen

Okee nog een stukje VBScript dan (is wel lang geleden dat ik ooit eens met VBscript heb gewerkt, dus ik hoop dat het werkt):

code:

Sub RecordCount()
    Dim dbs As Database, rst As Recordset
    Dim SQLstr As string

    Set dbs = CurrentDb
    SQLstr = "SELECT COUNT(*) FROM tabelnaam"
    Set rst = dbs.OpenRecordset(SQLstr)
    Debug.Print rst
    rst.Close
    Set dbs = Nothing
End Sub

En als het zonder Sub moet, dan haal je dat even weg

[Witte]

Dit werkt zeker, komt bij mij uit een werkende database:

code:

Public Sub tel_records()
Dim db As Database, rs As Recordset, aantal As Long
Set db = CurrentDb
Set rs = db.OpenRecordset("Brontabel")
  If Not rs.EOF Then rs.MoveLast

  aantal = rs.RecordCount

End Sub

Of in een functievorm, heeft toch wel voorkeur, dan kun je dit stukje code meerdere keren gebruiken:

code:

Public Function aantal(brontabel As String) As Long
Dim db As Database, rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset(brontabel)
  If Not rs.EOF Then rs.MoveLast

  aantal = rs.RecordCount

End Function


Public Sub demo()
  Debug.Print aantal("bron_tabel")   'bron_tabel is de naam van de te tellen tabel
  Debug.Print aantal("bron_query")   'bron_query is de naam van de te tellen query
End Sub

Beide bovenstaande stukjes code zijn direct uit een werkende database gesloopt.