Discussion :

[4rn0_o]

Bonjour,
Je travaille actuellement sur une base de donnée de facturation de location de matériel. Pour faire les factures, je dois regrouper les locations par client. J'ai donc mis la "présentation" de la facture en tête du groupe client et un saut de page en pied de groupe. Cependant, j'aimerais qu'en haut de chaque page apparaissent les titres (Matériel, Prix, ...) SAUF sur la première page de chaque facture, où je voudrais que ça apparaisse sous la présentation. Je ne peux donc pas le mettre en tête de page. Y a-t-il une solution ?

[mout1234]

Bonjour,

Pas sur que cela soit la meilleure solution mais tu peux résoudre cela en mettant tes champs dans l'entête de page et en annulant l'impression de cet entete si on est sur la 1ère page.

Code :

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

1
2
3
4
 
Private Sub ZoneEntêtePage_Format(Cancel As Integer, FormatCount As Integer)
    Cancel = (Me.Page = 1)
End Sub

[4rn0_o]

le souci, c'est que je n'ai pas un état par facture, mais toutes mes factures dans un seul état.
supposons que j'ai 2 clients :
pour le 1er, la facture fait 3 pages. la facture du 2eme client commencera donc page4. mais la longueur des factures varie d'un mois à l'autre, ce qui empêche de définir les n° de pages où on supprime l'en-tête.

[mout1234]

Hummm.... dans ce cas il te faut repérer le début de chaque facture.

Quelque chose de ce genre:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim blnNewGroupe As Boolean
 
Private Sub EntêteÉtat_Format(Cancel As Integer, FormatCount As Integer)
    blnNewGroupe = True
End Sub
 
Private Sub PiedGroupe1_Format(Cancel As Integer, FormatCount As Integer)
    blnNewGroupe = True
 
End Sub
 
Private Sub ZoneEntêtePage_Format(Cancel As Integer, FormatCount As Integer)
    Cancel = blnNewGroupe
    blnNewGroupe = False
End Sub

[4rn0_o]

étant relativement novice en access (quelques cours sur les bases seulement), je comprends pas trop : où faut-il mettre ce code ?
j'ai créé mon état en utilisant une requête elle même tirée d'une table, pas en écrivant du code...

[DMboup]

Vouloir tout imprimer d'un seul coup avec la présentation que tu souhaites, ca risque d'être compliqué (ce que j'arrives pas à faire du reste).

Par contre tu peux très bien les imprimer par clients.

Tu mets en entête d'état le client, en entête de page tes désignations et à chaque fois tu choisi le client que tu veux imprimer avant d'ouvrir l'état.

Voila comment je ferais moi.

[mout1234]

étant relativement novice en access (quelques cours sur les bases seulement), je comprends pas trop : où faut-il mettre ce code ?
j'ai créé mon état en utilisant une requête elle même tirée d'une table, pas en écrivant du code...

Il y a plusieurs éléments... regarde le nom des procédures... elles correspondent aux évènements auxquels tu dois répondre...

[4rn0_o]

Vouloir tout imprimer d'un seul coup avec la présentation que tu souhaites, ca risque d'être compliqué (ce que j'arrives pas à faire du reste).

Par contre tu peux très bien les imprimer par clients.

Tu mets en entête d'état le client, en entête de page tes désignations et à chaque fois tu choisi le client que tu veux imprimer avant d'ouvrir l'état.

Voila comment je ferais moi.

l'entreprise me demande d'imprimer à la fin de chaque mois toutes les factures ppour les envoyer aux clients. c'est pour ça que j'essayais de tout mettre dans un même état...
en faisant comme tu le propose, ça demanderait un temp fou : il y des dizaines de clients... à moins qu'il existe un moyen d'automatiser (lui dire d'imprimer en changeant à chaque fois de client), mais je n'ai aucune idée de comment faire ça

Il y a plusieurs éléments... reagrdes le nom des procédures... elles correspondents aux évènements auxquels tu dois répondre...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim blnNewGroupe As Boolean
 
Private Sub EntêteÉtat_Format(Cancel As Integer, FormatCount As Integer)
    blnNewGroupe = True
End Sub
 
Private Sub PiedGroupe1_Format(Cancel As Integer, FormatCount As Integer)
    blnNewGroupe = True
 
End Sub
 
Private Sub ZoneEntêtePage_Format(Cancel As Integer, FormatCount As Integer)
    Cancel = blnNewGroupe
    blnNewGroupe = False
End Sub

je ne comprends vraiment pas le code.... les 3 procédures agissent sur la valeur de blnNewGroupe, mais qu'est ce que cette variable ? de plus, que sont Cancel et FormatCount ?

[mout1234]

je ne comprends vraiment pas le code.... les 3 procédures agissent sur la valeur de blnNewGroupe, mais qu'est ce que cette variable ? de plus, que sont Cancel et FormatCount ?

Ok ok ... détaillons:


blnNewGroupe est une variable que j'ai créée qui nous sert de repère pour savoir s'il faut ou non afficher l'entete de page.

Code :

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

1
2
 
Dim blnNewGroupe As Boolean

Il faut la déclarer au niveau du module de l'état (i.e. au début du module).

Code :

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

1
2
3
Private Sub EntêteÉtat_Format(Cancel As Integer, FormatCount As Integer)
    blnNewGroupe = True
End Sub

Il s'agit - comme son nom l'indique - de la procédure exécutée lorsque l'évènement Format se produit pour l'entête d'état.
Pour écrire cet élément:

• tu cliques sur l'entête d'état,
• tu vas dans la fenêtre de propriétés
• tu recherches l'évènement AU Formatage
• tu sélectionnes [Procédure Evènementielle]
• tu cliques sur le bouton ...

Tu est alors dans ladite procédure.
Au formatage de l'entête d'état (donc sur la toute première page du document) il faut mettre l'indicateur à vrai. Donc tu tapes

Code :

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

blnNewGroupe = True

Pour le reste ... je te laisse étudier le reste pour en comprendre la logique et consulter l'aide pour comprendre le rôle Cancel et FormatCount (dont je n'ai pas tenu compte ici).


Bon courage

[4rn0_o]

merci pour le code et les explications. le code a l'air cohérent, mais pour autant ça ne marche pas.

j'ai cherché à trouver ce qui ne va pas, en mettant des balises stop dans le code. voilà ce que ca me donne :
access passe dans la sub "pied de groupe" à chaque page, et non pas à chaque fin de groupe (très logique... ) cependant il n'affiche pas le pied de groupe à chaque fois (alors que la variable Cancel du pied de groupe reste à 0 tout le temps : de plus en plus logique )
Bref, il en résulte que sur chaque nouvelle page l'en tête n'est pas affiché.
merci Access

[mout1234]

Désolé, je n'ai plus trop le temps de creuser le sujet... mais j'ai fait un test à cela marchait me semble-t-il...

PS: Cancel n'a pas de valeur à l'arrivée dans la procédure! le but est de lui donner une valeur pour indiquer à Acces si l'on veut ou non annuler l'évènement d'origine.



PS2: prends garde aux exécutions Pas à pas dans un état pas toujours facile à interpréter car on ne voit l'état se dessiner au fur et à mesure... notes que la construction d'une section enclenche un voire plusieurs évènement de Formatage puis un voire plusieurs évènement d'Impression....

Bon courage

[DMboup]

l'entreprise me demande d'imprimer à la fin de chaque mois toutes les factures ppour les envoyer aux clients. c'est pour ça que j'essayais de tout mettre dans un même état...
en faisant comme tu le propose, ça demanderait un temp fou : il y des dizaines de clients... à moins qu'il existe un moyen d'automatiser (lui dire d'imprimer en changeant à chaque fois de client), mais je n'ai aucune idée de comment faire ça

Je ne sais pas si la solution de mout1234 fonctionne et je vais peut être dire une bétis...
Peut être une manière d'automatiser l'impression par client.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim MaBD as Database, MesClient As RecordSet
Set MaBd = currentdb()
Set MesClient = MaBd.OpenRecordset("Select.....")
 
'Boucle sur les clients
 
Do Until MesClient.EOF
      Docmd.OpenReport "TonEtat",,,"N°Client="& MesClient("N°Client")      
      DoCmd.Close AcReport, "TonEtat"
 
     MesClient.MoveNext
Loop

Pour avoir l'aperçu avant impression, c'est autre chose

[4rn0_o]

les deux méthodes marchent et sont aussi rapides l'une que l'autre. merci à tous