Access2007: pb sur les ETAT ligne disparaissRésolu/Fermé

Question

Bonjour,  

J'ai fais un ETAT SOUS ACCESS avec un code en vb. Mais voilà les champs qui doivent disparaitre disparaisse quand il le faut mais aussi sur la première ligne de chaque page alors qu'elle ne devrait pas. 

Voici le code utilisé avec commentaire: 

   Dim N As Integer 
   Dim cpt As Integer 
____________________ 
      
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer) 
    Dim col1 As Long: col1 = RGB(190, 190, 190) 
    Dim col2 As Long: col2 = RGB(220, 220, 220) 
         
    ' Si différent = nouvelle rupture 
    If Me.NIntervention <> N Then 
        cpt = cpt + 1 
        N = Me.NIntervention 
         
        Me.Début.Visible = True 
        Me.Fin.Visible = True 
        Me.TpsPaC.Visible = True 
        Me.Transport.Visible = True 
        Me.Intervenant.Visible = True 
        Me.Noms.Visible = True 
    Else 
        Me.Début.Visible = False 
        Me.Fin.Visible = False 
        Me.TpsPaC.Visible = False 
        Me.Transport.Visible = False 
        Me.Intervenant.Visible = False 
        Me.Noms.Visible = False 
    End If 
      
         
    ' En fonction du numéro de rupture 
    If (cpt Mod 2) = 0 Then 
        Me.Détail.BackColor = col1 
        Me.Détail.AlternateBackColor = col1 
    Else 
        Me.Détail.BackColor = col2 
        Me.Détail.AlternateBackColor = col2 
    End If 
     
End Sub 
__________________ 
Private Sub Report_Load() 
    N = 0 
    cpt = 0 
End Sub

Gaunts · Answer

Bonjour,

Par première ligne, tu veux parler du titre de la collone?

GGuyle · Answer

non je parle d'un résultat de ma requête. En fait sur mon état, je fais une requête sur des intervention dans lequel il y a plusieurs tâches. Je voulais dans le cas des intervention ou il y a plusieurs taches supprimer certain doublons et mettre une couleur de fond pour chaque intervention différente. (cf rupture). Le problème c'est que mes résultat apparaissent sur plusieurs page (ça c'est normal) et pour toutes les première ligne de chaque page à part la première pages les champs :Début, Fin, TpsPaC, Transport, Intervenant, et Noms sont masqué, après pour les lignes suivante il n'y pas de problème. Les couleur de fond part contre change bien a chaque nouvelle intervention même pour une nouvelle page.

GGuyle · Answer

Pour ceux qui n'ont pas compris voilà un liens de ce qu'il se passe.
Regarder la 2éme page.

https://www.fichier-pdf.fr/2010/08/17/2893yn5/

GGuyle · Answer

le num intervention est sur l'état mais je l'ai mis en non visible. en fait il est tout à droite après la colonne remarque

GGuyle · Answer

et je fais comment pour différencier les page car je pense aussi que le problème vient de là. Il faudrait que je dise pour chaque nouvelle page afficher la première ligne si c'est une nouvelle intervention.

Gaunts · Answer

Sous access2007 ouvre l'etat en mode page.
Je ne pense pas que le problême vienne de là, mais bien des valeurs de N et NIntervention, essaye de les vérifier sur chaque ligne

GGuyle · Answer

C'est bon pb résolu le tps de faire le test et je met le code.
En faite il y a changement à faire sur les page. dire qu'on affiche tous les champs de la premiére ligne si c'est une nouvelle intervention et ne pas les afficher si c'est la suite.

GGuyle · Answer

Voilà mon new code: Dim N As Integer Dim cpt As Integer Dim pgn As Integer ____________ Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer) Dim col1 As Long: col1 = RGB(190, 190, 190) Dim col2 As Long: col2 = RGB(220, 220, 220) Dim first As Boolean If Me.Page <> pgn Then pgn = Me.Page first = True Else first = False End If ' Si différent = nouvelle rupture If Me.NIntervention <> N Then cpt = cpt + 1 N = Me.NIntervention Me.Début.Visible = True Me.Fin.Visible = True Me.TpsPaC.Visible = True Me.Transport.Visible = True Me.Intervenant.Visible = True Me.Noms.Visible = True Else If first = False Then Me.Début.Visible = False Me.Fin.Visible = False Me.TpsPaC.Visible = False Me.Transport.Visible = False Me.Intervenant.Visible = False Me.Noms.Visible = False End If End If ' En fonction du numéro de rupture If (cpt Mod 2) = 0 Then Me.Détail.BackColor = col1 Me.Détail.AlternateBackColor = col1 Else Me.Détail.BackColor = col2 Me.Détail.AlternateBackColor = col2 End If End Sub ______________ Private Sub Report_Load() N = 0 pgn = 0 cpt = 0 End Sub

GGuyle · Answer

après vérif mon pb vient de :

If (cpt Mod 2) = 0 Then
        Me.Détail.BackColor = col1
        Me.Détail.AlternateBackColor = col1
    Else
        Me.Détail.BackColor = col2
        Me.Détail.AlternateBackColor = col2
    End If

des que j'active cette partie de code des que je quitte soit l'état ou la base j'ai un message qui me demande si je sauvegarde la modification d structure.
J'ai pas d'idée là...

GGuyle · Answer

Ok problème définitivement résolu.
Pour ne plus avoir un message qui nous demande si on veut enregistrer la structure voici ce qu'il faut ajouter.

Private Sub Report_Page()
DoCmd.Save acReport, Me.Name
End Sub

Access2007: pb sur les ETAT ligne disparaiss

10 réponses

Newsletters