Actualisation d'un sous-formulaire d'après une modif d'un autre S/Form..

**Sylv26** · 27/03/2009, 10h14

Bonjour à tous.

Aprés de nombreux essais je commence vraiment à perdre patience avec ce problème... (NB: je ne connais pas VBA)

Je travaille sur une petite appli pour gérer dans achats en négoce.
J'aimerais que lorsque je modifie une valeur dans mon sous-formulaire "ReglementBA sous-formulaire" mon autre sous-formulaire qui calcule le total rentré dans ce dernier se mettre à jour au fur et à mesure des montants que je rentres.

Ca ne doit pas étre compliqué mais je ne trouve pas comment faire.....

Merci pour votre aide!

**pier.antoine** · 27/03/2009, 11h54

Bonjour.

Je ne maîtrise pas encore parfaitement les syntaxes d'appel aux contrôles des formulaires et sous formulaire.

ce doit être quelque chose comme

Code :

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

Formulaire.SousFormulaire.Controle.

Je vous conseille le tutoriel Appel formulaire, je pense qu'il vous donnera des pistes.

Ensuite, il faut sans doute faire

Code :

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

sousFormulaire.Refresh, ou sousFormulaire.Requery

je n'ai pas encore trop saisi la différence.

Pierre

**Sylv26** · 27/03/2009, 14h15

Ce 1er code (Formulaire.SousFormulaire.Controle.) je le place dans quel contrôle?

**pier.antoine** · 27/03/2009, 15h49

Je le mettrais sur l'évènement "Après mise à jour" du contrôle qui est modifié.

Pierre

**Gabout** · 28/03/2009, 06h41

Bonjour,

A tester, depuis ton premier sous-formulaire

Code :

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

1
2
3
Private Sub Form_AfterUpdate()
  Me.Parent.NomSecondSousFormulaire.Form.Requery
End Sub

A+

**Sylv26** · 30/03/2009, 14h28

Bonjour et merci pour vos réponses!

Je viens d'essayer la méthode de Gabout et çà ne fonctionne pas. Je ne connais pas le VBA mais en gros il y a juste à aller dans l'événement du contrôle, mettre procédure événementielle puis:

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
Option Compare Database
 
Private Sub Montant_AfterUpdate()
Me.Parent.SommeDeReglementSF.Form.Requery
End Sub
 
Private Sub Montant_Dirty(Cancel As Integer)
 
End Sub
 
Private Sub Montant_GotFocus()
 
End Sub
 
Private Sub Montant_LostFocus()
 
End Sub