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 45 46 47
| '
' Les compteurs partiront de la valeur 0.
Private compt_Cmde As Long ' VariaCmdee de comptage des Commandes
Private compt_Prd As Long ' VariaCmdee de comptage des produits pour un commande
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
On Error GoTo sortie_erreur
IDE_num_Prd = compt_Prd
compt_Prd = compt_Prd + 1
sortie:
Exit Sub
sortie_erreur:
MsgBox "Detail_Format : " & Err.Description
Resume sortie
End Sub
Private Sub EntêteGroupe0_Format(Cancel As Integer, FormatCount As Integer)
On Error GoTo sortie_erreur
compt_Cmde = 0
compt_Prd = 0
sortie:
Exit Sub
sortie_erreur:
MsgBox "EntêteGroupe0_Format : " & Err.Description
Resume sortie
End Sub
Private Sub EntêteGroupe1_Format(Cancel As Integer, FormatCount As Integer)
On Error GoTo sortie_erreur
IDE_numCmde = compt_Cmd
compt_Cmde = compt_Cmde + 1
compt_Prd = 0
sortie:
Exit Sub
sortie_erreur:
MsgBox "EntêteGroupe1_Format : " & Err.Description
Resume sortie
End Sub |
Partager