[Access] Récupération du nb d'enregistrements
erwan51
Messages postés
634
Statut
Contributeur
-
erwan51 Messages postés 634 Statut Contributeur -
erwan51 Messages postés 634 Statut Contributeur -
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
A voir également:
- [Access] Récupération du nb d'enregistrements
- Récupération de déchets - Guide
- Nb si en anglais - Guide
- Convertisseur récupération de texte - Guide
- Nb si couleur - Guide
- Erreur lors de l'enregistrement du contact - Forum Xiaomi
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 :-)
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 :-)
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