Discussion :

[hyrkanie]

Bonjour
je bloque sur un etat qui doit me calculer le nombre de factures uniques.

j'ai fait une requête multi-table "r_factures" sur laquelle s'appuie mon etat "e_factures" après regroupement, j'obtiens un état de la sorte:

id_facture	LibelleCT	Objet	Montant
1594	alain	moteur	300
1647	olivier	lmg	600
1379	nadine	linge	300
1577	hadrien	boissons	45
1605	michel	essence	300
1575	pierre	essence	100
1636	estelle	resto	400
1636	estelle	pourboire	200

en bas de cet état je souhaite faire figurer le nombre total de factures
quand je fais dans la feuille de propriétés au bas de mon état "e_factures" source contrôle = compte([id_facture]) j'obtiens 8 or je souhaiterai faire apparaître 7 car il y a 7 factures distinctes avec un numéro distinct: la facture 1636 est en double donc je la compte qu'une fois.
il s'agit d'un exemple simplifié à l’extrême.
merci pour votre aide

[tee_grandbois]

bonsoir,
une possibilité de comptage avec cette astuce :
- créer un regrouper / trier sur id_facture, cela va ajouter un entête de groupe sur le contrôle
- dans ce groupe ajouter une zone de texte nommée CompteFactures et mettre =1 comme source contrôle
- mettre l'option "En continu" dans la propriété Cumul de la zone de texte CompteFactures
- rendre invisible l'en-tête de groupe créé sur id_facture (propriété Visible: Non)
- enfin, dans le pied d'état, dans la zone de texte devant contenir le total des factures mettre =[CompteFactures] comme source contrôle

[Jeannot45]

Ci joint petite base de données qui te montre comment utiliser une procédure VBA placée sur l’événement : Sur impression du Pied d'état
Bonne continuation

[tee_grandbois]

bonjour Jeannot45,
merci de donner une autre solution par le code, il est vrai que ta méthode est meilleure car elle ne modifie pas le tri d'origine de l'état.

Une remarque quand même, mais qui n'a rien à voir avec le problème d'hyrkanie: dans la base jointe, l'état est en affichage Mode État par défaut : encore une fausse bonne idée de Microsoft, car le souci est que ce mode n'exécute pas le code VBA.

Du coup ton exemple ne fonctionne pas si on n'effectue pas une des 2 corrections suivantes:
- changer la propriété "Mode d'affichage" en Aperçu avant impression
- ou mettre la propriété "Autoriser le Mode État" à Non

[hyrkanie]

Bonjour
Merci pour vos réponses. Je regarde et je reviens vous dire.

[hyrkanie]

bonsoir,
une possibilité de comptage avec cette astuce :
- créer un regrouper / trier sur id_facture, cela va ajouter un entête de groupe sur le contrôle
- dans ce groupe ajouter une zone de texte nommée CompteFactures et mettre =1 comme source contrôle
- mettre l'option "En continu" dans la propriété Cumul de la zone de texte CompteFactures
- rendre invisible l'en-tête de groupe créé sur id_facture (propriété Visible: Non)
- enfin, dans le pied d'état, dans la zone de texte devant contenir le total des factures mettre =[CompteFactures] comme source contrôle

Bonjour
cette méthode marche impeccablement bien. je teste l'autre méthode de Jeannot45 et je reviens vers vous.

[Jeannot45]

Tu as entièrement raison tee_grandbois, j'aurais du pousser plus loin ma vérification.

Il a cependant encore plus simple : placer la procédure que j'ai écrite dans l'événement "Sur Activation" de l'état plutot que sur l'événement "Sur Impression" du pied d'état.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Report_Activate()
    Dim l_rsFactures As DAO.Recordset
 
    Set l_rsFactures = CurrentDb.OpenRecordset("SELECT DISTINCT NumFacture FROM T_Factures")
 
        l_rsFactures.MoveLast
        Me.txtNbFactures.Value = l_rsFactures.RecordCount
 
    l_rsFactures.Close
    Set l_rsFactures = Nothing
 
End Sub

Bonne journée

[tee_grandbois]

bonjour,
oui, et autant prendre directement le RecordSource de l'état, que ce soit une table, une requête ou un code SQL:

Code :

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

    Set l_rsFactures = CurrentDb.OpenRecordset("SELECT DISTINCT NumFacture FROM (" & Replace(Me.RecordSource, ";", "") & ");")

[hyrkanie]

Bonjour

merci à vous tous bien évidemment la version de Jeannot45 en VBA marche aussi très bien.

Cependant si j'opte pour cette solution dans l'exemple mis en ligne j'ai du mal à l'adapter à un formulaire avec un champ indépendant qui lance l'état "E_Factures" lequel s'appuie sur une requête paramétrée "R_Factures".

En effet je souhaite sélectionner une date [idMois] via une liste déroulante d'un formulaire indépendant sur l’événement Après mise à jour qui lance cet état

le paramètre dans la requête que je lui passe c'est: [Forms]![F_Factures]![ChoixidMois]

L'idée c'est de lui dire sort mois toutes les factures qui sont = 01 (janvier) et comptes moi le nombre de factures pour ce mois

or si je modifie la source pour qu'elle qu'elle s'appuie sur cette requête multitable "R-Factures"

j'ai un code erreur erreur d'exécution 3061 : trop peu de paramètres. 1 attendu
et en jaune est surligné cette ligne

Code :

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

Set l_rsFactures = CurrentDb.OpenRecordset("SELECT DISTINCT NumFacture FROM R_Factures")

merci

l'astuce de tee_grandbois aussi est super c'est pour le moment celle que j'utilise.

[User]

Bonsoir à tous,

Plutôt que de créer une requête paramétrée vous pouvez définir le critère directement dans le SQL en otant le paramètre de la requête R_Factures :

Code :

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

Set l_rsFactures = CurrentDb.OpenRecordset("SELECT DISTINCT NumFacture FROM R_Factures WHERE Month(DateFacture)=" & [Forms]![F_Factures]![ChoixidMois])

Ici je suppose que vous disposez d'un champ DateFacture dans votre table.

Attention car normalement un tel paramètre devrait comporter aussi l'année.

Ensuite pour ouvrir l'état :

Code :

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

DoCmd.OpenReport "E_Factures",acViewPreview,,"Month(DateFacture)=" & [Forms]![F_Factures]![ChoixidMois]

Note : pour les critères vous pouvez aussi utiliser Format(dateFacture,"mm"), si vos indices de mois sont de la forme "01","02",...:

Code :

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

DoCmd.OpenReport "E_Factures",acViewPreview,,"Format(DateFacture,'mm')='" & [Forms]![F_Factures]![ChoixidMois] & "'"

Cdlt,

[tee_grandbois]

en complément de la réponse précédente:
inutile de passer par une requête pour appliquer un filtre, il vaut mieux utiliser le paramètre WhereCondition lors de l'appel de l'ouverture de l'état, d'autant que le RecordSource de l'état n'est pas la requête mais la table.

Code :

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

DoCmd.OpenReport DocName, acViewPreview, , "idMois = " & Me!ChoixidMois

et également, pour le total factures, il faut appliquer le Where du formulaire au RecordSet:

Code :

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

strSQL = "SELECT DISTINCT NumFacture FROM (" & Replace(Me.RecordSource, ";", "") & ") WHERE idMois = " & Forms!F_factures!ChoixidMois & ";"

ci joint la base modifiée: CompterFactures MODIF.rar

[hyrkanie]

Bonjour
merci beaucoup à tous pour votre aide. c'est exactement ce que je voulais. ce fut un plaisir d'échanger.