Discussion :

[soso78]

Bonjour,

J'ai un petit soucis avec Microsoft Access au sujet des sous-formulaire.

En fait, j'ai un sous-formulaire qui dispose de lignes de factures, et je souhaite mettre à jour le formulaire parent (qui contient le total des lignes de factures).

... sauf que la mise à jour ne s'effectue pas systématiquement.

J'ai tenté l'instruction .requery ou .refresh mais sans résultat !

Quelles instructions me permettent, après la mise à jour d'un champ d'une ligne d'un sous-formulaire, de mettre à jour le formulaire parent ?

Merci par avance.

[Lou Pitchoun]

Salut,
Le requery ou le refresh devrait fonctionner... tout dépend à quel moment tu l'exécute.

[soso78]

En fait, je réalise le calcul sur l'événement AfterUpdate du champ "QTE", "PU", ... tous les champs qui ont un calcul.

Voici le code :

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
Dim txTVA As Single
 
  'Calcul du montant HT
  Me![montant ht EURO] = Me![prix unit EURO] * [qté]
 
  'Récupération du taux de TVA
  txTVA = (Nz(DLookup("[TAUX]", "[TVA]", "[N_TAUX]=" & Nz(Me![code tva]))) / 100)
 
  'Calcul de la TVA
  Me![montant tva EURO] = Me![montant ht EURO] * txTVA
 
  'Montant de la facture
  Me![montant ttc EURO] = Me![montant ht EURO] + Me![montant tva EURO]
 
  'Mise à jour du formulaire parent
  Me.Parent![montant ht EURO] = Me![TOTALHT]
  Me.Parent![tva EURO] = Me![TOTALTVA]
  Me.Parent![TOTAL TTC EURO] = Me![TOTALTTC]
 
  'Mise à jour de l'enregistrement
  Me.Requery

Est-ce correct ? Comment faire sinon ?

[Lou Pitchoun]

Si je ne m'abuse.... ce code est dans le sous formulaire ?? donc Me.requery s'effectue sur le sous formulaire.. et pas sur le formulaire !!

Code :

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

Forms![NomFormulaire].Refresh

[soso78]

Eh ouais !

Mais j'ai ajouté le Me.Parent.Requery qui ne résout pas le problème !!!

[keita]

bonjour
une partie de ton code

Code :

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

1
2
3
Me.Parent![montant ht EURO] = Me![TOTALHT]
  Me.Parent![tva EURO] = Me![TOTALTVA]
  Me.Parent![TOTAL TTC EURO] = Me![TOTALTTC]

Essaie comme ça, à partir du form principal:

Code :

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

1
2
3
Me.Parent![montant ht EURO] = Me![TOTALHT]
  Me![tva EURO] = Me!MonSousForm![TOTALTVA]
  Me![TOTAL TTC EURO] = Me!MonSousForm![TOTALTTC]

J'espere avoir compris
@+