OVH Cloud OVH Cloud

CreateControl

2 réponses
Avatar
Valérie
Re bonjour,
j'utilise la méthode createcontrol dans une fonction. S'agissant des entetes
et des champs de détail cela fonctionne. Cependant dans le pied de
formulaire je veux créer des controles de totalisation et apparait à chaque
fois sur le formulaire ?Nom alors qu'il est bien indiqué dans la source du
controle =Somme([nomduchampasommer]). D'ailleurs si j'ouvre le formulaire et
que je réécris dans la source du controle [nomduchampasommer] cela
fonctionne et je précise que j'ai réécrit exactement le meme nom (puisqu'il
était deja bon au départ).
J'utilise les méthodes suivantes, que manque t'il ?
Set controle(i) = CreateControl("monformulaire", acTextBox, acFooter)
controle(i).Name = "texte" & rst.Fields(i).Name
controle(i).ControlSource = "=Somme([" & rst.Fields(i).Name & "])"
Merci.

2 réponses

Avatar
Raymond [mvp]
Bonjour.

remplace cette ligne :
controle(i).ControlSource = "=Somme([" & rst.Fields(i).Name & "])"
par
controle(i).ControlSource = "=Sum([" & rst.Fields(i).Name & "])"
est-ce que ça marche ?
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Valérie" a écrit dans le message de news:
422dace6$0$3101$
Re bonjour,
j'utilise la méthode createcontrol dans une fonction. S'agissant des
entetes et des champs de détail cela fonctionne. Cependant dans le pied de
formulaire je veux créer des controles de totalisation et apparait à
chaque fois sur le formulaire ?Nom alors qu'il est bien indiqué dans la
source du controle =Somme([nomduchampasommer]). D'ailleurs si j'ouvre le
formulaire et que je réécris dans la source du controle
[nomduchampasommer] cela fonctionne et je précise que j'ai réécrit
exactement le meme nom (puisqu'il était deja bon au départ).
J'utilise les méthodes suivantes, que manque t'il ?
Set controle(i) = CreateControl("monformulaire", acTextBox, acFooter)
controle(i).Name = "texte" & rst.Fields(i).Name
controle(i).ControlSource = "=Somme([" & rst.Fields(i).Name & "])"
Merci.




Avatar
Valérie
Désolée pour ce retard mais je ne bosse pas le mercredi ! Effectivement cela
fonctionne ! Merci pour cette subtilité que je ne connaissais pas !