Discussion :

[femtoserv]

Bonjour,

Je suis novice en développement VBA/Access,
Voilà mon problème:
J'ai un formulaire principal dans lequel j'ai un sous-formulaire, chaque enregistrement du formulaire principal est lié à 1 ou plusieurs enregistrements,
du sous-formulaire.

J'aimerais sommer des valeurs entre les enregistrements du sous-formulaire et récupérer la valeur de cette somme dans le formulaire principal laquelle est liée à une table.

Merci pour votre aide
Femtoserv

[bigone]

bonjour
tu dois créer une zone de texte au pied de page du sous formulaire, ce contrôle contiendra la somme des valeurs du champ volu,et tu reprend sa valeur vers le controle du formulaire principal

[femtoserv]

Ok merci

[Mahefasoa]

Salut,
Pour plus de précisions, voici comment procéder. Supposons qu'on a ce qui suit:
Formulaire ppl: FRM_ppl
Sous formulaire: FRM_sec
Dans ce sous-formulaire, le champ Montant est à totaliser à l'aide de l'expression:

Code :

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

1
2
 
=sum(nz(Montant;0))

à placer dans la propriété source contrôle d'une zone de texte (nommée ZT) placée dans le pied du formualire que l'on a rendu invisible au préalable.
Dans le formulaire principal, tu crées une zone de texte et tu places l'expression suivante dans la propriété Source contrôle de la dite zone de texte

Code :

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

1
2
 
=[Formulaires]![FRM_ppl]![FRM_sec].[Formulaire]![ZT]

Et c'est tout!

Bon courage et @+

[femtoserv]

ça marche
merci beaucoup

[femtoserv]

Bonjour,

Citation:
femtoserv a écrit :
Bonjour,

Merci pour ta réponse
J'ai essayé ton code, mais j'ai une erreur sur la fonction
<sum>, j'ai donc essayé DSUM j'arrive à sommer toutes les valeurs du sous-formulaire, mais pas à sommer seulement les valeurs pour chaque enregistrement du formulaire principale.
Dois je mettre une clause where?

bonne journée
Femtoserv


Est-ce que tu as-essayé Somme? Et en enlèvant la fonction nz?

Et peux-tu exposer tout cela sur le forum, dans ton post, car les questions techniques n'ont pas le droit d'être exposées ici (en MP).
Tout le monde (y compris moi) sera ravi de t'aider.

Bon courage et @+

Bonjour,
Ton code fonctionne bien
Je me suis juste planter en le tapant en syntaxe VBA
EN tout cas Merci
Femtoserv