[AC-2007] Modification de Dcount dans MsgBox [Résolu]

[Bernard67]

Bonjour le forum,
Meilleurs voeux à toutes et tous pour 2012.

J'ai ce message Box qui me compte le nombre de lignes dans le champ "valeur"

Code :

MsgBox "Le nombre de lignes chargées dans T FINALE est de : " & DCount("VALEUR", "R_03_VALEUR")

Dans le champ valeur, j'ai 3 types de criteres : DEVIS FACTURE RELANCE.

Comment modifier la formule pour avoir le nombre de lignes par criteres ?

Merci pour l'aide.

Bonne journée

[lelensois16]

Bonjour,

Il faudrait utiliser un champ supplémentaire :

Code :

DCount(expr, domaine [, critères] )

On suppose que le champ Valeur
On suppose qu'il existe une variable qui explicite le critère ( c'est un exemple , je ne connais pas votre base ) ; CRITERE

Code :

1
2
 
MsgBox "Le nombre de lignes chargées dans T FINALE est de : " & DCount("VALEUR", amodifier,"CRITERE='DEVIS'")

il faudrait faire la même ligne de code 3 fois en changeant le critère

[Bernard67]

Merci lelensois16,

Je cherche a avoir 1 seule ligne si c'est possible. Et c'est ici que le problème se complique.

Merci encore

[lelensois16]

Bonjour,

Pourquoi ne pas concatener les 3 chaines de caractères (via l'ampersand &) et utiliser la constante VbCrlf ( passage à la ligne ) ?

Code :

1
2
3
4
5
6
Nom = Romain
Chaine1 = "Bonjour" & Nom 
Nom = Bernard
Chaine2 = "Bonjour" & Bernard 
 
Msgbox Chaine1 & VbCrlf  & Chaine 2

le résultat s'affichera sur une seule ligne

[Bernard67]

Pourrais tu etre plus explicite car là je ne suis plus.
Merci

[lelensois16]

Code :

1
2
3
4
5
6
7
8
9
10
Dim CompteDevis As String 
Dim Comptefacture As String 
Dim CompteRelance As String 
 
 
CompteDevis = "Nbre Devis :" & DCount("VALEUR", amodifier,"CRITERE='DEVIS'") 
CompteFacture = "Nbre facture :" & DCount("VALEUR", amodifier,"CRITERE='FACTURE'") 
CompteRelance = "Nbre relance :" & DCount("VALEUR", amodifier,"CRITERE='RELANCE'") 
 
MSgbox  "Le nombre de lignes chargées dans T FINALE est de : " & VbCrlf & CompteDevis & VbCrlf & CompteFacture & VbCrlf & CompteRelance

Le résultat sera de la forme

Le nombre de lignes chargées dans T FINALE est de :
Nbre Devis : 50
Nbre Facture : 10
Nbre Relance : 20

en une seul fenêtre

J'espère avoir été clair

[Bernard67]

Je te remercie lelensois16, c'est parfait.
Bonne journée.
Cordialement