Discussion :

[mooh91]

Bonjour,

J'aimerais savoir s'il était possible de reexecuter tous les codes affecter à des champs d'un sous formulaire en modifiant un champs dans le formulaire principal
Exemple :

Formulaire principale :
--> Coefficient = 3

Sous formulaire en mode formulaire continu :
TAILLE______________Nouvelle Taille
600___________________1800
800___________________2400
100___________________300


Sur le champs Coefficient sur l'évènement Sortie je met ce code:
Me.Sousformulaire_tailles.Form![nouvelletaille]=me.coefficient*Me.Sousformulaire_tailles.Form![taille]

Celà fonctionne mais que sur la première ligne de mon sous formulaire continu.
J'ai mis un me.recalc sur sortie du champs Coeeficient mais celà ne fonctionne pas.
Il faudrait un code qui reexecuterai tous les codes de tous mes champs dans le sous-formulaire

Merci de votre aide.

Cordialement,

[mooh91]

Personne n'aurait donc une solution possible?

J'avais penser à utiliser une requête au lieu d'une table pour mon sous formulaire et ainsi ne pas mettre de code vba dans mes champs mais plutôt des formules
dans ma requête

Puis faire un me.monsouformulaire.requery pour rafraichir ma requête source. Cependant les champs que je veux mettre à jour sont des champs qui se trouve dans ma table. Je risque donc de creer un réplicat de sortie :s

si quelqu'un peut m'aiguiller..

Cordialement

[FRED.G]

L'idée de la requête est très bonne si tes champs ne sont pas des champs de saisie.

Si tu dois conserver tes champs en lecture/écriture, alors il faut que tu gères toi-même leur mise à jour quand le coef change dans le form parent.

L'événement approprié pour détecter la mise à jour du coef n'est pas Exit, mais AfterUpdate.

Pour ce qui est des calculs de tes champs [nouvelletaille], je ne vois pas de solutions plus simple que de parcourir le Recordset du sous form pour mettre à jour les champs individuellement. Par exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub UpdateTaille(coef As Double, ByRef rst As DAO.Recordset)
 
    With rst.Clone
        While Not .EOF
            .Edit
                ![nouvelletaille] = ![Taille] * coef
            .Update
        .MoveNext
        .Close
    End With
    rst.Requery
End Sub

[mooh91]

Bonjour Fred,

Merci pour ton aide. J'ai finalement créé une requête mise à jour qui va mettre à jour tous les enregistrements répondant à certains critères.
J'ai donc pour chaque champs de mon formulaire principale mis le code suivant

Code :

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

1
2
3
4
DoCmd.SetWarnings False
DoCmd.OpenQuery "R maj"
DoCmd.SetWarnings True
Me.Recalc

L'avantage est de creer une seule fois la requête avec toute les formule de calcul possible et non plus de mettre les formules de calcul en VBA pour chaque champs.

Et d'après ce que tu me dis j'ai finalment mis Sur MAJ et non sur sortie même si c'est la même chose puisque de toute façon à un moment ou un autre on sort du champs ?

Cordialement,

[FRED.G]

Et d'après ce que tu me dis j'ai finalment mis Sur MAJ et non sur sortie même si c'est la même chose puisque de toute façon à un moment ou un autre on sort du champs ?

Ce n'est pas la même chose car l'événement afterUpdate est plus précis. Il peut survenir même si le contrôle ne perd pas le focus (lors d'un Refresh du form par exemple).

[mooh91]

Alors sa c'est bon à savoir. Pour moi le AfterMAJ était actif qu'à partir du moment où l'on passe d'un recordset à l'autre mais maintenant c'est clear
Merci pour cette info !!

Cordialement,