Discussion :

[snoopy69]

Bonjour,

J'ai créer un formulaire en mode Ajout qui contient un sous-formulaire en mode : "Formulaires continus"

Dans ce sous-formulaire j'ai créer un champ indépendant nommé : total_masse
Ce champ se situe dans la partie : "Pied de formulaire" de mon sous-formulaire.

Ce champ (total_masse) sert à faire la somme de mon champ "masse_provenance_destination" comme ceci :

Code :

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

=Somme([masse_provenance_destination])

Le champ "masse_provenance_destination" se trouve dans la partie "Détail" de mon sous-formulaire.

Jusque là, pas de soucis ... ma somme se fait correctement et sans problème lorsque je quitte le sous-formulaire pour revenir dans mon formulaire ...

Ce que j'aimerais faire c'est :

Lorsque je quitte le champ : "champ_provenance_destination" de mon sous-formulaire (qui se situe dans la partie : Détail du sous-formulaire) que le champ où la somme est calculé (total_masse)se mette à jour sans que je doive aller cliquer dans le formulaire principal pour faire la mise à jour.

Pour faire cela voici le code que j'ai mis sur l'évènement : "sur perte focus" du champ "masse_provenance_destination" :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub masse_provenance_destination_LostFocus()
 
Dim str_NomFormulaire As String
Dim str_NomSousFormulaire As String
 
str_NomFormulaire = Me.Parent.Name
str_NomSousFormuaire = "SOUS_FRM_controle_des_poids_entree_matiere_AJOUT"
 
Forms(str_NomFormulaire).Form(str_NomSousFormulaire)![total_masse].Requery
 
End Sub

Mon erreur est la suivante :

Erreur d'exécution '2465':

Impossible de trouver le champ " auquel il est fait référence dans votre expression.

Si vous avez une idée ... ... elle sera la bienvenue ...

Merci de votre aide ... et à tout bientôt ...

[pgz]

Bonjour,

Et pourquoi pas

Code :

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

Me.TotalMasse.Requery?

tout simplement?

pgz

[snoopy69]

Bonjour pgz ... et merci de ta réponse ...

Crois moi bien que j'ai déjà essayé et cela ne fonctionne malheureusement pas ... je n'ai pas d'erreur mais par contre la mise à jour ne se fait pas ...

Je tiens à préciser encore quelque chose, mon sous-formulaire se présente comme suit :

En-tête de formulaire :
Destination | Masse | Pièces | Quittancer | <-- Tous ces noms sont des étiquettes (que du texte)

Détail :
pk_fk_departement_destination | masse_provenance_destination | nb_piece_provenance_destination <-- Tous ces noms sont des noms de champs

Pied de formulaire :
Totaux : <-- Etiquette | total_masse | total_piece | <-- Ces 2 champs sont des champs indépendants dans lesquels je calcul une somme que je l'ai précisé.


Donc, mon formulaire se présente comme suite (en mode ajout)

Destination | Masse | Piece | Quittancer ________________________<-- Etiquette
______________________________________________________ <-- Ligne de séparation des sections En-tête de formulaire / Détails
Affinage___| 12.02_| __2___|___OUI______________________________<-- Ligne 1 du ss-form
Etampage__|34.1__|__3____|___NON______________________________<-- Ligne 2 du ss-form
______________________________________________________ <-- Ligne de séparation des sections Détails / Pied de formulaire
Totaux : ____46.12_|___5________________________________________<-- Totaux

Le problème que j'ai c'est que si je suis dans ma ligne 1 et que je passe du champ Masse où il y le nombre "12.02" au champ Piece où il y a le nombre "2" mon total ne se met pas à jour ...

par contre,

lorsque je quitte mon sous-formulaire et que je clique dans n'importe quel champ de mon formulaire le total se met à jour ... ...

[Looping_V60]

Si je peux me permettre, j'essaiera ça :

Private Sub total_masse_AfterUpdate()
Forms!F_Principal.Requery
End Sub

Testé à la maison, Voir fichier joint

Cordialement

[pgz]

Re, Snoopy,

En fait c'est étrange ce qui se passe. Je ne suis pas sûr à tous coups mais je crois que la somme devrait se mettre à jour sur modification du contrôle additionné, sans rien faire.

J'ai dit bizarre?

Et il y a une mise à jour quand tu changes d'enregistrement dans le sfrm?
Si oui, un

Code :

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

Me.Refresh

après mise à jour de la masse devrait suffire.

A+

pgz