[Access] Récupération du nb d'enregistrements
Bonjour à tous,
J'aimerais savoir comment récupérer le nombre d'enregistrements dans une base Access soit en VBA soit en VB 6.0
D'avance merci
A+
A+
Erwan51
J'aimerais savoir comment récupérer le nombre d'enregistrements dans une base Access soit en VBA soit en VB 6.0
D'avance merci
A+
A+
Erwan51
1 réponse
-
Salut,
Pour retirer le nombre d'enregistrements contenus dans une tables tu dois la parcourir entièrement. Exemple:
Function CountR() as int
Dim mDb As Database
Dim mRs As Recordset
Set mDb=CurrentDb
Set mRs = mDb.OpenRecordset("Nom_de_laTable", dbOpenDynaset, dbSeeChanges, dbPessimistic)
mRs.MoveLast
mRs.MoveFirst
CountR = mRs.RecordCount
End Function
Rien n'est plus dangereux qu'une idée quand on a
qu'une idée :-)-
ContributeurCa marche, merci beaucoup !
seul problème, il me renvoyait un "type incompatible" suite à la ligne suivante :
"
Set mRs = mDb.OpenRecordset("Nom_de_laTable", dbOpenDynaset, dbSeeChanges, dbPessimistic)
"
j'ai donc du remplacer le
"
Dim mRs As Recordset
"
par un
"
Dim mRs As Variant
"
A+
Erwan51
-
