Discussion :

[bertin19]

Bonjour à tous,

j'ai une requete basée sur plusieurs critètes. J'aimerais trouver le code VBA qui me permet, après ouverture de la requete, de compter le nombre d'enregistrements affichés.

Mes critères sont des valeurs saisies fans un formulaire.

Quelqu'un a une idée ?

Merci !

[Pierre Fauconnier]

Bonsoir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox CurrentDb.OpenRecordset("select count(*) as nombre from MaRequete")!nombre

en remplaçant MaRequete par le nom de ta requete

[bertin19]

Merci pour ta réponse,

ton code marche bien mais ne correspond pas tout à fait à ce que je cherche. J'expose mon problème :
J'ai une requete, je voudrais faire un filtre sur celle-ci basé sur deux critères. J'ai procédé comme suit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    NbEnreg = DCount("[Id_prop]", "R_proprietaire_publipostage", "Id_prop like " & Me.choix_proprietaire.Column(j, vnt))
MsgBox NbEnreg

Le code avec un deuxième critère ressemblerait à ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    NbEnreg = DCount("[Id_prop]", "R_proprietaire_publipostage", "Id_prop like " & Me.choix_proprietaire.Column(j, vnt) And code_secteur='" & Me.choix_proprietaire.Column(j, vnt) &"")
MsgBox NbEnreg

code_secteur etant du texte et une colonne de ma requete.

Mais ca ne marche pas

Quelqu'un a une idée ?

[6ril25]

Salut,

juste pour être sûr, tu peux tester:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

NbEnreg = DCount("[Id_prop]", "R_proprietaire_publipostage", "Id_prop like " & Me.choix_proprietaire.Column(j, vnt) & " And code_secteur='" & Me.choix_proprietaire.Column(j, vnt) &"'")

[bertin19]

Merci 6Ril25, ton code marche bien.