Discussion :

[krhyme]

Bonjour, j'ai un souci avec l'enregistrement de champs calculés,

J'ai un form "commandes" dans lequel figure un subform "commande_details",
le champ Montant_ttc (se situant sur le form "commandes") correspondant au montant total des écritures saisies dans mon subform.

Mon problème est le suivant:

J'ai plusieurs champ du même type que "Montant_TTC",

Lorsque que je ferme mon form, je lance une macro servant à copier les valeurs de ces champs calculés dans ma table "commandes".

Etant donné que mon form comprend de nombreux champs, certaines valeurs sont copiées avant que le form soit entièrement recaclulé, les données copiées ne sont donc pas correctes.


Y a-t-il un moyen pour ne copier les valeurs seulement après que le form soit entièrement recalculé ?

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
 
 
Sub Close_button_click
 
 
Me.recalc
 
    Montant_HT.Value = Form_Document_details_produits_subform.Order_Total_HT.Value
    Montant_TTC.Value = Form_Document_details_produits_subform.Order_Total_TTC.Value
    Montant_TVA.Value = Montant_TTC.Value - Montant_HT.Value
    Nb_heures_contrat.Value = Form_Document_details_produits_subform.Nb_heures_total.Value
    Restant_du.Value = Restant_du_tempo.Value
    Total_paye.Value = Total_paye_tempo.Value
 
End sub

[loufab]

Bonjour,

Merci de ne pas utiliser le langage SMS même partiellement.

Mets un Do Events avant l'enregistrement.

Cordialement,

[krhyme]

Désolé mais cela ne fonctionne pas,

Mes valeurs sont toujours sauvegardées avant que le form soit entièrement recalculé.

La seule solution que j'ai trouvée pour l'instant est de mettre un timer (afin de laisser le temps au form de reclacluer les champs), mais cette solution tient vraiment du bidoullage (supposons que l'appli tourne sur une machine plus lente, le timer serai alors inutile).

Merci

[micniv]

Essaie un

Code :

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

Me.refresh

après la mise à jour des champs.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Close_button_click
 
 
Me.recalc
 
    Montant_HT.Value = Form_Document_details_produits_subform.Order_Total_HT.Value
    Montant_TTC.Value = Form_Document_details_produits_subform.Order_Total_TTC.Value
    Montant_TVA.Value = Montant_TTC.Value - Montant_HT.Value
    Nb_heures_contrat.Value = Form_Document_details_produits_subform.Nb_heures_total.Value
    Restant_du.Value = Restant_du_tempo.Value
    Total_paye.Value = Total_paye_tempo.Value
 Me.refresh
End sub

[krhyme]

Désolé mais cela ne toujours fonctionne pas,

Mes valeurs sont toujours sauvegardées avant que le form soit entièrement recalculé!!!

[loufab]

Le do events tu l'as mis après le me.recalc ?

[krhyme]

Oui, mais malheureusement les valeurs sont sauvegardées avant qu'elles ait eu le temps d'être mises à jour.

Voici mon code complet, c'est un peu compliqué (j'utilise des champs temporaires afin de pouvoir annuler les modifications) :

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
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119

Sub MAJ_CHAMPS_TABLE()



'MAJ CHAMPS TEMPO --> CHAMPS


If Not IsNull(Code_affaire_tempo.Value) Then
    Code_Affaire.Value = Code_affaire_tempo.Value
    Else
    Code_Affaire.Value = ""
End If

If Not IsNull(Code_commercial_tempo.Value) Then
    Code_commercial.Value = Code_commercial_tempo.Value
    Else
    Code_commercial.Value = ""
End If




If Not IsNull(Nom_stagiaires_tempo.Value) Then
    Nom_stagiaires.Value = Nom_stagiaires_tempo.Value
    Else
    Nom_stagiaires.Value = ""
End If

If Not IsNull(Mode_reglement_tempo.Value) Then
    Mode_reglement.Value = Mode_reglement_tempo.Value
    Else
    Mode_reglement.Value = ""
End If

            



If Not IsNull(ref_document_tempo.Value) Then
Ref_document.Value = ref_document_tempo.Value
Else
Ref_document.Value = Left(Code_Affaire.Value, 2) & Format(Date, "mmyy-") & N_piece.Value
End If


'TYPE DE DOC

If Not IsNull(Type_doc_tempo.Value) Then Type_doc.Value = Type_doc_tempo.Value

If Type_doc_tempo.Value = "Devis" Then
    If IsNull(Date_devis.Value) Then
    Date_devis.Value = Format(Date, "dd-mmmm-yy")
    End If
End If

If Type_doc_tempo.Value = "Commande" Then
    If IsNull(Date_commande.Value) Then
    Date_commande.Value = Format(Date, "dd-mmmm-yy")
    End If
End If


If Type_doc_tempo.Value = "Facture" Then
    
    'SI FACTURE N'EXISTE PAS ENCORE
    If IsNull(N_facture.Value) Then
    
    
    'DATE FACT
        If Not IsNull(Date_facture_tempo.Value) Then
        Date_facture.Value = Date_facture_tempo.Value
        Else
        Date_facture.Value = Format(Date, "dd-mmmm-yy")
        End If
        
    
    'création du N FACT
     
        If Not IsNull(N_facture_tempo) Then
        N_facture.Value = N_facture_tempo.Value
        Else
        Form_Facture_subform.Date_facture.Value = Format(Date, "dd-mmmm-yy")
        Form_Facture_subform.Code_client.Value = Code_client.Value
        N_facture.Value = Form_Facture_subform.N_facture.Value
        End If
    
    End If
               
End If


If Type_doc_tempo.Value = "Avoir" Then


    If IsNull(Date_Avoir.Value) Then
    Date_Avoir.Value = Format(Date, "dd-mmmm-yy")
    End If
    
    
    
End If

Me.Recalc

DoEvents


Total_paye.Value = Form_Document_details_reglement_verse_subform.Total_paye.Value
    
    Montant_HT.Value = Form_Document_details_produits_subform.Order_Total_HT.Value
    Montant_TTC.Value = Form_Document_details_produits_subform.Order_Total_TTC.Value
    Montant_TVA.Value = Montant_TTC.Value - Montant_HT.Value
    Nb_heures_contrat.Value = Form_Document_details_produits_subform.Nb_heures_total.Value



End Sub

[loufab]

Si tu veux faire une procédure l'annulation, tu peux utiliser directement un undo (Me.undo) sur le formulaire.

Regarde le propriété me.dirty, me.newrec, me.undo ce sont trois propriétés et méthodes qui permettent de savoir si le record est modifié, si c'est un nouveau et l'annuler le cas échéant.

Tu peux également passer par une table temporaire qui est plus souple d'utilisation (une saisie, une copie via requete Ajout lors de la validation)

La méthode que tu utilise me semble un peu capilotractée.