[AC-2003] Nbre d'articles sélectionnés [Résolu]

[papyxy]

Bonjour
Au moyen d'une requête qui sélectionne sur un critère; je voudrai récupérer le nombre dans une variable VBA.

AD

[nico84]

Bonjour,
Il y a la variable .recordcount pour cela (qui selon les requêtes peut parfois nécessiter d'abord un .movelast), ou aussi

Code :

dcount("*","matable","mescritères")

qui est équivalent à

Code :

select count(*) from matable where mescritères

[papyxy]

merci Nico
mais je n'arrive pas à mettre en oeuvre la commande ds VBA.

[nico84]

2 exemples :

Code :

1
2
Set rsa = CurrentDb.OpenRecordset("SELECT distinct cd_adrs FROM blc_lg inner join cdeVT on blc_lg.cd_cde=cdeVT.cd_cde WHERE cd_adrs>0 and cd_blc=" & cd, dbOpenSnapshot)
i = rsa.RecordCount

Code :

i = dcount("*","blc","cd_blc=" & cd)

[papyxy]

voila le code que j'ai fait à partir du tien :

Code :

1
2
Dim sql$: sql$ = "SELECT count(*) FROM films where norep=9;"
Set rs = dbsCurrent.OpenRecordset(sql$)

Je récupère 1 dans "rs.RecordCount"; alors que je devrais tourner autour de 100.

[nico84]

Comme indiqué plus haut :

selon les requêtes peut parfois nécessiter d'abord un .movelast

Oups j'ai répondu un peu vite

Pour utiliser recordcount il faut faire :

Code :

select * ...

Par contre ce code renvoie toujours un seul enregistrement qui contient le nombre compté dans x :

Code :

select count(*) as x...

[papyxy]

OK
merci Nico

[papyxy]

J'ai bien trouvé une solution, mais elle me parait fastidieuse; en passant par un query temporaire. Voila le code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Function nombre(nr%) As Integer
    Const nom_query = "query_temp"
    Dim qdf As querydef, dbs as database, rs as recordset
    Dim sql$: sql$ = "SELECT count(*) FROM films where norep=" & nr%
    Set dbs = CurrentDb
    Set qdf = dbs.CreateQueryDef(nom_query, sql$)
    DoCmd.OpenQuery nom_query
    Set rs = dbs.QueryDefs(nom_query).OpenRecordset
    nombre = rs.Fields(0).Value
    DoCmd.Close acQuery, nom_query
    DoCmd.DeleteObject acQuery, nom_query    'supprime la requête
End Function

[nico84]

Effectivement pour avoir juste le nombre d'enregistrements il est possible de faire plus simple :

Code :

1
2
3
Function nombre(nr%) As Integer
    nombre = dcount("*", "films", "norep=" & nr%)
End Function

[papyxy]

là je suis scotché!
Je ne connaissais pas la fonction "DCount".
C'était si simple.

encore merci