Discussion :

[Mors_Ubyte]

Bonsoir,

Je comprend pas vraiment l'évenement Détail_Format d'un état.

Pendant l'execution du code VBA la procédure est éxécutée 2 fois (mon état tient sur une seule page)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
Mise_en_forme_detail
 
 
End Sub

J'ai chercher dans les FAQ et je n'ai pas trouver ma réponse .
Pourriez vous m'expliquer?

[ft035580]

Bonsoir,

Je n'ai pas trop saisi ta question........mais pourquoi ne pas essayer l'execution de ton code sur l'évènement "Formatage" de ton Etat ?

[Mors_Ubyte]

En fait, je ne comprends pas comment fonctionne l'impression sous VBA.

[ft035580]

Salut,

Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
Mise_en_forme_detail


End Sub

En regardant ceci,je me suis dis, il fais appel à une fonction mettant en forme sa zone détail.

Actuellement,

je ne comprends pas comment fonctionne l'impression sous VBA

........pardonnes moi,mais là ,je ne me sens pas capable d'avoir la prétention de t'aider.

En attendant,je t'encourage à persévérer dans ton soucis et communiquer plus amples renseignements.

[Mors_Ubyte]

Pardon,

je n'ai pas été clair.

En fait Mise_en_forme_detail est une procédure qui mets en forme le détail de mon état.

Ceci n'est pas important ce que je ne comprend pas c'est pourquoi cet procédure s'éxécute 2 fois.

Je joins le code de cette procédure:

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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
Option Compare Database
Dim champs_Ligne As Long
Dim Derniere_Ligne As Long
Dim Ligne_en_cours As Long
 
Public Sub Mise_en_forme_detail()
 
Dim Num_Ligne As Long
Dim Name_Control As String
Dim texte As Control
Dim Num_Colonne As Long
 
 
 
 
'Si le champs [ligne] comporte la même valeur que lors de l'enregistrement précedent
'On passe à l'enregistrement suivant
 
 
 
'Si la ligne existe déjà pour l'installation sélectionnée il faut effacer la ligne
'pour l'installation 0 (Qui sert uniquement à creer des les cases qui n'existe pas
'pour l'installation sélectionnée.
If Me.Ligne = Derniere_Ligne And Me.Id_Installation = 0 Then
 
    Me.Détail.Visible = False
    Compte = False
    GoTo Fin
 
Else
'Défini la ligne en cours
    Ligne_en_cours = Me.Ligne
End If
 
 
'Masque la ligne si c'est la première
    If Ligne_en_cours = 1 Then
        Me.Détail.Visible = False
 
        GoTo Fin
 
    Else
        'Affiche le détail de l'état puisqu'on l'a effacé à la première ligne
        Me.Détail.Visible = True
 
        'Si c'est la ligne de la terre (57) il faut afficher "T" dans la case Affichage_Num_Ligne sinon
        'on affiche la ligne en cour
        If Ligne_en_cours = 57 Then
            Me.Affichage_Num_Ligne.Caption = "T"
        Else
            Me.Affichage_Num_Ligne.Caption = Ligne_en_cours
        End If
 
        'Dans la ligne détail pour toutes les contrôles commençant par "texte" (ce sont les cases)
        ' on modifie le format suivant la propriété définie en argument de la fonction
        For Each texte In Me
 
            If texte.Name Like "Texte*" Then
                Num_Colonne = Num_Colonne + 1
                texte.Visible = True
                If Num_Colonne = Ligne_en_cours - 1 Then Exit For
            End If
        Next
 
 
    End If
Fin:
Derniere_Ligne = Me.Txt_Ligne
End Sub

Je voudrais savoir pourquoi le code s'éxécute 2 fois pour un même enregistrement.

Merci d'avoir consacré un peu de temps.

[=JBO=]

Bonjour,

Pendant l'execution du code VBA la procédure est éxécutée 2 fois (mon état tient sur une seule page)
[...]
J'ai chercher dans les FAQ et je n'ai pas trouver ma réponse .
Pourriez vous m'expliquer?

J'ai répondu partiellement à la question ici: http://www.developpez.net/forums/sho...77#post1082777

La section Détail peut très bien être déplacée sur la page suivante, d'où un reformatage.
Mais elle peut aussi être reformatée à la suite du redimensionnement d'un contrôle auto-extensible ou auto-réductible.

[Mors_Ubyte]

C'est tout à fait çà j'ai un contrôle qui est autoréductible dans la section Détail.

Merci d'avoir éclairci ce point.