Compter le nombre de lignes d'un résultat de requête

[Résolu/Fermé]
Signaler
-
 DALAF -
Bonjour,

J'essaie de coder en VBA sous access 2007 une macro qui me permettrait de compter le nombre de lignes d'un résultat de requête.

Je possède un tableau ou j'extrais les informations voulues grâce à une requête et je l'affiche.
Ce que je n'arrive pas c'est de créer un MsgBox qui m'affiche le nombre de lignes.


RecapChantierEffectue : c'est le nom de ma requête me permettant d'afficher les informations voulues

Voici mon code qui s'éxécute suite à un click:

Private Sub Commande0_Click()


Dim cpt As Integer


'Execution de la requête
'DoCmd.OpenQuery "Queryname" ,acReadOnly pour autoriser l'utilisateur à visionner uniquement
DoCmd.OpenQuery "RecapChantierEffectue", acReadOnly

DCount (RecapChantierEffectue)
cpt = DCount

MsgBox ("vous avez effectué au total " &cpt "chantiers")


End Sub


Le Dcount ne fonctionne pas!Please help me!



A voir également:

2 réponses

Messages postés
15831
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
12 juillet 2021
1 512
Bonjour,

ceci devrait aller:

cpt=DCount ("*","RecapChantierEffectue")

Bonne suite
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci


Bonsoir,

Merci pour votre réponse, cela m'a aidé!
Je poste donc la solution complète si ça peut aider certain:

Private Sub Commande0_Click()

Dim cpt As Integer
'Execution de la requête
'DoCmd.OpenQuery "Queryname" ,acReadOnly pour autoriser l'utilisateur à visionner uniquement
DoCmd.OpenQuery "RecapChantierEffectue", acReadOnly

'On va compter les lignes de résultat d'une requête
cpt = DCount("*", "RecapChantierEffectue")


MsgBox ("vous avez effectué au total " & cpt)


End Sub