Discussion :

[Barbaboulle]

Bonjour @ tous

Je continu sur l'impression d'un etat style Calendrier qui va me servir comme agenda.
Ce planning est basé sur une analyse croisee avec en ligne: les equipes intervenante et en colonne: les date de présence.
Hors Lorsque je fait dérouler le code pas à pas tous fonctionne bien!
Mais lorsque je vois le resultat de l'impression toute les lignes de chaque enregistrement ont les mêmes valeurs que le dernier enregistrement. Je ne voit pas ce qu'il me manque dans le code pour que l'impression soit telle que je le désire.

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Option Compare Database
Option Explicit
Dim rsImpression As DAO.Recordset
Dim ctlEtiquette As Control
Dim DateDebut As Date
'=========================================================
Private Sub Report_Open(Cancel As Integer)
        Set rsImpression = CurrentDb.OpenRecordset("R_PrintPresence") 'Analyse croisée pour savoir les present de chaque jour
End Sub
'=========================================================
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
Dim Ecart As Integer
Dim CompteChamp As Integer, Compteur As Integer
Dim DateEnCours As Date
    ' Intitialisation au debut des enreristrements
 
    With rsImpression
 
        If rsImpression.EOF = True Then ' Si on se trouve a la fin des Enrg On sort de la procedure
            Exit Sub
        End If
 
    DateDebut = Format(Left(rsImpression.Fields(5).Name, 10), "dd mmm yy")
    CompteChamp = rsImpression.Fields.Count
 
        For Compteur = 5 To CompteChamp - 1 'Due au fait que l'on commence la numerotation à 0
            DateEnCours = Format(Left(rsImpression.Fields(Compteur).Name, 10), "dd mmm yy")
            Ecart = DateDiff("d", DateDebut, DateEnCours) 'Determination de l'ecarte entre le debut et la date en cours pour se reperer dans les cases a cocher
            If rsImpression.Fields(Compteur) <> "" Then 'si le resultat de l'analyse Croisee est vide c'est qu'il n'y a personne sur cette date
                        If Right((rsImpression.Fields(Compteur).Name), 2) = "Jo" Or Right((rsImpression.Fields(Compteur).Name), 2) = "Ma" Then
                            Set ctlEtiquette = Me.Controls("LblPresence" & (1 + 2 * Ecart)) 'Permet d'incrementer sur les etiquettes uniquement
                             ctlEtiquette.BackColor = Nz(RGB(0, 0, rsImpression.Fields(Compteur)), RGB(255, 255, 255))
                        End If
 
                        If Right((rsImpression.Fields(Compteur).Name), 2) = "Jo" Or Right((rsImpression.Fields(Compteur).Name), 2) = "Ap" Then
                            Set ctlEtiquette = Me.Controls("LblPresence" & (2 + 2 * Ecart)) 'Permet d'incrementer sur les etiquettes uniquement
                             ctlEtiquette.BackColor = RGB(0, 0, 0)
                        End If
            End If
        Next Compteur
    .MoveNext
    End With
 
End Sub

Si quelqu'un peut me filer un tuyau ce serait sympa

Merci d'avance

[Barbaboulle]

Voilà pour plus de précision à mon probléme voici le résultat graphique:

-->Lorsque je demande l'apercu du sous-Etat Celui-ci me donne les bons résutat.

-->Lorsque je demande L'aperçu de l'état la dernière ligne est imprimé sur tous les enregistrements.

Si quelqu'un pouvait se pencher sur mon bug

Merci d'avance

[Jeannot45]

Si tu reprends le principe de l'impression de la gestion de planning, tu verras que les étiquettes des dates sont imprimées dans l'entête de l'état.
Or je ne vois pas dans tes procédures celle concernant le formatage des entêtes.

De la vient peut-être ton problème

En tout merci d'avoir pris exemple sur un des tutos proposés dans notre grande collection

Bonne continuation

[Barbaboulle]

Salut Jeannot et Merci

Mon problème ne viens pas de l'entête d'état mais de l'insertion du Sous-Etat dans l'état. Le résultats d'impression n'est pas le même.

Une fois inséré dans l'état, j'ai l'impression que seul le dernier résultat de mon code est imprimé dans l'état sur tous les enregistrements, alors que lancé depuis le sous état le code fonctionne bien.(Voilà pourquoi les 2 images jointe)

Dit moi si je peux me permettre de t'envoyer ma base si tu n'as pas d'idée sur le problème et merci pour ce trés bon tuto.

Etant debutant sous access je le savoure comme un trés bon Wisky: petit à petit!!
@+

[Jeannot45]

Pas de problème, tu peux joindre ta base afin de voir le problème plus concrètement

Bonne journée

[Barbaboulle]

Salut Jeannot
Je te fait suivre mon fichier comme convenu.
Merci @+

[Jeannot45]

Je ne comprends pas l'organisation de ton état. D'autre part, j'ai un bug au lancement de l'état

[Barbaboulle]

Mon état est basé sur une requette croisé:
de cette requette je retire la date de debut de mon tableau et la durée qui me donne les colonnes d'entetes pour mon état Principal.
Jusque là ça marche.
Ensuite j'ai réalisé un sous état avec la meme requete source pour obtenir les moments de presence pour chaque équipe.

Le code remplit les demi-journées d'un "X" en fonction de leur présence Pour chaque équipe.

Le sous état fonctionne lorsque je le lance

Le fichier que je t'ai fait passer contient une erreur sur l'evennement imprimer, c'est un essai non concluant je te fait passer la modif.

Là ou ça bloque c'est lorsque j'essaye d'imprimer ou de visualiser en mode aperçu avant impression l'entête sort bien mais les croix ans le sous état ne sont imprimé qu'en fonction du dernier resultat de code et non en fonction de chaque enregistrement.

Merci encore

@+

[Jeannot45]

Pour que ton process fonctionne, j'ai désactivé la procédure correspondante au formatage de la zone détail afin de ne garder que la procédure Détail_Print.

Bonne continuation

[Barbaboulle]

Re salut
Pour moi lorsque sous excel 2000 je désactive la procédure correspondante au formatage de la zone détail je n'ai pas de code attaqué;
En ayant un point d"arret dans la partie "Détail_Print" jamais j'atteinds ce code alors que je pense que je le devrait! n'est-ce-pas?

merci @+

[Barbaboulle]

Re salut Jeannot et merci
C'est vrai que en desactivant la zone Format de l'etat ca marche maintenant. C'est surement due a l'enchainement des évènnement et au fait que j'ai mis deux fois le meme code.

Si j'ai bien compris le fonctionnement cela ce passe comme ceci
Pour chaque enregistrement (Boucle)
Le code de la zone Format
puis
Le code de la zone Print
(Boucle)


Mais j'aimerai savoir POURQUOI?
-Si je ne met que le code dans la zone format cela ne marche pas dans l'etat principal?

quel est l'ordre des procedures Format et Print et pourqoi cette interferance.

Je te remercie ennormement

@+

[Jeannot45]

Re salut
Pour moi lorsque sous excel 2000 je désactive la procédure correspondante au formatage de la zone détail je n'ai pas de code attaqué;
En ayant un point d"arret dans la partie "Détail_Print" jamais j'atteinds ce code alors que je pense que je le devrait! n'est-ce-pas?

Je pense que tu parles d'Access.

C'est vrai que en desactivant la zone Format de l'etat ca marche maintenant. C'est surement due a l'enchainement des évènements et au fait que j'ai mis deux fois le meme code.

Si j'ai bien compris le fonctionnement cela ce passe comme ceci
Pour chaque enregistrement (Boucle)
Le code de la zone Format
puis
Le code de la zone Print
(Boucle)


Mais j'aimerai savoir POURQUOI?
-Si je ne met que le code dans la zone format cela ne marche pas dans l'etat principal?

quel est l'ordre des procedures Format et Print et pourqoi cette interferance.

Tu trouveras l'ordre des évènements dans l'aide d'access (VBA)

[Barbaboulle]

Ok
Merci Jeannot pour ton aide.
@+