informer

Bonjour à tous,

Pour illustrer ce sujet, nous allons nous baser sur un rapport de facture qui est composé

1. d'un entête affiché sur toutes les pages qui affiche les informations sur la facture (Date de facture, Nr de facture, info client)
2. Du détail des items composant la facture (produit, quantité, prix unitaire)
3. D'un pied de page qui affcihe
   
   1. En dernière page les total du Prix HT , de la TVA en montant (TVA ici unique de 20%), Prix TTC, Acompte, Net à Payer
   2. Pour toutes les pages antérieures juste le cumul du Prix HT, Tva en montant pour les items affichés depuis la 1ère page jusqu'à la page courante mais inférieure à la dernière page

Mon objectif n'étant pas d'expliquer la modélisation de la base de données, on prend pour acquis que la requête sur laquelle se base le rapport renvoie autant de lignes qu'il y a d'item dans la facture et pour chaque ligne

1. idFacture
2. DateFacture
3. InfoClient
4. Libellé Produit
5. quantité commandé
6. prix unitaire
7. acompte

Soit pour les enregistrement suivant
1;01/01/201X; Mon client qui paye, rue de la fortune, 1000 HaieUneNuits;produit1,5,1,12
1;01/01/201X; Mon client qui paye, rue de la fortune, 1000 HaieUneNuits;produit2,7,10,12

Dans mon rapport, j'affiche l'entête de page et laisse l'entête de rapport désactivé


Dans l'entête je place les champs qui vont afficher les infos

1. idFacture
2. DateFacture
3. InfoClient

Dans le détail

1. Libellé Produit
2. quantité commandée
3. prix unitaire
4. prix HT = quantité x prix Unitaire
5. Tva montant = (quantité x prix Unitaire) x 0.2

Dans le pied de page et c'est ma le petit plus

1. S'il existe une seule page ou en dernière page s'il en existe plusieurs
   
   1. Total Prix HT
   2. Total TVA en montant
   3. Acompte
   4. Prix net à Payer
   
   
2. Dans le cas de plusieurs pages, dans toutes les pages sauf la dernière
   
   1. Total Prix HT cumulé i.e. égale à la somme du prix HT des produits constitutifs de toutes les pages jusqu'au dernier de la page courante
   2. Total TVA montant en cumulé (cf. ci-dessus)

Pré-requis obligatoire -Ajoutez le champ Page x sur Y et placez le dans l'entête de page

Pour ce faire, ajoutez dans le détail 2 champs avec propriété Cumul = continu

1. txtCumulHT avec Source = prixHT
2. txtCumulTVA avec source = Tva montant

Dans le pied de page
txtTotalHT = txtCumulHT
txtTotalTVA = txtCumulTVA
txtAcompte = Acompte
txtNetPayer = txtTotalHT + txtTotalTVA - txtAcompte

Dans l'évenement print de ZonePiedPage

Code VB :

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

1
2
3
4
5
6
7
8
9
10
private sub ZonePiedPage_print() ajouter 
 
if Me.page<Me.pages then 
     Me.txtAcompte.visible = false
     Me.txtNetPayer.visible = false
 
else
     Me.txtAcompte.visible = true
     Me.txtNetPayer.visible = true
end if

Pour télécharger une base de données Access avec un exemple, vous pouvez aller sur mon poste How To Display Intermediate Cumulative Sum By Page Footer And Total Sum On Report Footer ici
Et voilà