Access2007: pb sur les ETAT ligne disparaisse
Résolu
GGuyle
Messages postés
96
Statut
Membre
-
GGuyle Messages postés 96 Statut Membre -
GGuyle Messages postés 96 Statut Membre -
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
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