Discussion :

[efilippi]

Bonjour,

je suis novice dans l'utilisation d'accès et ma question va peut-être paraître bête ... mais je cherche depuis un moment sur ce site sans trouver.

Je cherche à afficher une somme dans un formulaire continu.
La version formulaire simple fonctionne parfaitement. J'effectue le calcul en VBA avec une requête SQL puis j'affecte le résultat à un contrôle indépendant.

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
22
  Dim oDb As DAO.Database
    Dim oRst As DAO.Recordset
    Dim ma_var As String
    Dim mon_sql As String
 
    Set oDb = CurrentDb
    Set oRst = Nothing
 
    ' récupération de la somme des paiements
    ' construction de la requête
    mon_sql = "SELECT Sum(Paiement.Montant) FROM Paiement" & " WHERE (([Paiement]![N° abonnement]=" & Me.N°.Value & "));"
    ' excéution de la requête
    Set oRst = oDb.OpenRecordset(mon_sql, dbOpenSnapshot)
    ' affectation des résultats
    ma_var = oRst.Fields(0)
    Me.Texte30.ControlSource = "=" & ma_var
 
    'Nous fermons les connexions
    oRst.Close
    oDb.Close
    Set oDb = Nothing
    Set oRst = Nothing

Lorsque je passe en fomulaire continu, évidemment, il me met à jour tous mes contrôles "Texte30" car ils ne sont pas liés à un enregistrement ... je ne sais pas comment accéder à l'instance x de ce contrôle; je ne sais même pas si c'est possible.

Si c'est possible : il doit y avoir une syntaxe qui m'échappe
Si c'est impossible : doit-on passer directement par un champ calculé dans la table source ?

Merci de votre aide

Eric.

[Arkham46]

bjr,

pour un formulaire continu il faut rendre la textbox dépendante en utilisant une fonction dans la source du contrôle (avec un champ en paramètre)
c'est le retour de cette fonction qui donne la valeur du contrôle

fonction dans le code du formulaire :

Code :

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

1
2
3
public function CalculSomme(pId as long) as long
   CalculSomme = xxxxxx
end function

source du contrôle :

Code :

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

=CalculSomme([N°])

ou alors mettre directement un calcul dans la source du contrôle avec une fonction intégrée si l'une d'entre elles convient (bouton droit dans Source contrôle=> créer => fonctions intégrées => regroupement de domaine)

source du contrôle (à peu près, pas testé) :

Code :

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

=SomDom("Montant";"Paiement";"N° abonnement=" & [N°])

[User]

Bonjour,

Je comprends mieux, quand tu parles d'instances de contrôles c'est en fait, une instance par ligne (ou par enregistrement) dans 1 formulaire continu ?

Edit: J'ai supprimé mon ancien message qui n'avait pas trop de rapport

[efilippi]

Bonjour,
Je comprends mieux, quand tu parles d'instances de contrôles c'est en fait, une instance par ligne (ou par enregistrement) dans 1 formulaire continu ?

Bonjour,

Merci pour vos réponses.

oui c'est bien ça, il s'agit d'afficher une instance du calcul par ligne (ou par enrgegistrement).
Je viens de tester en mettant à jour un champ appartenant à la table source avec le résultat de mon calcul, et ça a l'air de fonctionner : chaque ligne du formulaire continu affiche bien le résultat du calcul pour l'enregistrement correspondant.

Mais je ne trouve pas ça très pratique car ça oblige à créer un champ de plus dans la table pour chaque calcul alors que je n'ai pas besoin d'en stocker le résultat.

Pour l'instant cette solution me convient, mais je pense qu'il doit y avoir une solution plus "propre" qui m'échappe encore.

[ClaudeLELOUP]

Bonjour,

Mais je ne trouve pas ça très pratique car ça oblige à créer un champ de plus dans la table pour chaque calcul alors que je n'ai pas besoin d'en stocker le résultat.

Pour l'instant cette solution me convient, mais je pense qu'il doit y avoir une solution plus "propre" qui m'échappe encore.

Ne comprends-tu pas ce que Arkham46 t'explique ?
C'est "la" solution bien propre.

[efilippi]

Bonjour ClaudeLELOUP,

oui effectivement, j'avais mal interprété la réponse de "User".

La solution de Arkham46 marche parfaitement. MERCI ! C'est exactement ce qu'il me fallait.