Access2007: pb sur les ETAT ligne disparaisse

Résolu/Fermé
GGuyle Messages postés 72 Date d'inscription vendredi 4 décembre 2009 Statut Membre Dernière intervention 22 juillet 2011 - 17 août 2010 à 13:17
GGuyle Messages postés 72 Date d'inscription vendredi 4 décembre 2009 Statut Membre Dernière intervention 22 juillet 2011 - 17 août 2010 à 14:30
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

1 réponse

GGuyle Messages postés 72 Date d'inscription vendredi 4 décembre 2009 Statut Membre Dernière intervention 22 juillet 2011 3
17 août 2010 à 14:30
0