Discussion :

[sylhel34]

Bonjour,
je travaille actuellement pour mon association sur une base de gestion de projets et de factures.

Pour la partie facturation j'ai deux tables Facturation et Facturation_detail
(un projet pouvant être facturé en plusieurs fois, les tables sont liées par le champ N°Fact en 1 à plusieurs)

J'ai créé un formulaire Facturation_saisie à partir d'une requete basée sur la table Facturation-saisie et un sous-formulaire Facturation_detail directement construit sur la table, champ père et fils = N°Fact


dans mon sous-formulaire j'ai un champ indépendant qui calcule la somme Montant_facturé.
je veux récupérer cette valeur pour l'attribuer ensuite au champ Total_facture de mon formulaire principal.
j'ai fait ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Montant_facturé_Exit(Cancel As Integer)
 
Dim valfacture As Integer
 
Me.Refresh
valfacture = [Texte12].Value
Forms![Facturation-Saisie].[Total_facture].Value = valfacture
MsgBox valfacture, vbCritical
 
End Sub

J'ai deux problèmes sur lesquels je bloque :
1 -
le problème c'est que la valeur valfacture retournée correspond à la valeur avant recalcul du champ [Texte12] ; alors que la valeur de texte12 est correcte.
j'ai essayé aussi avec l'évènement Form_AfterUpdate()
le Msgbox se fait avant le refresh et le calcul du champ Texte12

2-
comment donner au champ [Total_facture] du formulaire principale la valeur valfacture récupérée ?
j'ai cette erreur """Erreur d'exécution '7878' - Les données ont été modifiées""" pour la ligne de code Forms![Facturation-Saisie].[Total_facture].Value = valfacture


voilà des idées ? peut être que je me trompe aussi complètement de méthode ?

Merci. Sylvie

[sylhel34]

j'ai changé ma stratégie et ne passe plus par une variable mais j'ai toujours un probleme .

voilà ce que j'ai écrit

Code :

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

1
2
3
4
5
6
Private Sub Montant_facturé_Exit(Cancel As Integer)
 
Me.Refresh
Forms![Facturation-Saisie].[Total_facture].Value = Me.[Texte12].Value
Forms![Facturation-Saisie].[Reste_a_payer] = Forms![Facturation-Saisie].[Texte85]
End Sub

le soucis est que je suis obligée de sortir 2 fois du champs Montant_facturé pour que les champs du formulaire principal se mettent à jour,
et si je passe directement du champ au formulaire j'ai un message d'alerte que les données ont été modifiées par un autre utilisateur.

ce sont des problèmes pour lesquels je n'ai aucune idée des causes donc sur lesquels je ne peux agir

[Tofalu]

Utilisez un autre événement tel que beforeupdate.

Une autre piste consiste à mettre la formule de calcul directement dans la source du contrôle d'affichage puisque, s'agissant d'une donnée calculée, celle-ci n'a pas vocation à être stockée dans la table et donc la zone de texte est logiquement indépendante.

[sylhel34]

En fait je stocke la valeur Reste_a_payer dans la table de facturation O_o

je pensais que c'était plus facile pour avoir cette donnée dans les états.

je vais changer ça et essayer de l'afficher directement.


Merci pour votre réponse.