Somdom vba dans etat

Version imprimable

Bonjour ,

J'ai un petit soucis ... depuis deux jour je suis bloqué sur un truc assez simple d'apparence mais mon petit cerveau butte dessus.

je veux faire une somdom en vba pour afficher les donner.

sauf que je recois un message d'erreur comme quoi erreur 3075.

je ne sais pas ce que cela veut dire.

ci dessous mon code:

Code:

1
2
3
4
5
6
7
8
9
10
Private Sub Report_Load()
Dim i As Integer
 
For i = 1 To 12
 
Controls("comm" & i) = DSum("t_a_c.Cumul", "t_a_c", "t_a_c.site=" & (Me!ac_site) & " and t_a_c.groupe_affaire=" & (Me!ac_groupe_affaire) & " and t_a_c.libellegroupeaffaire=" & (Me!ac_libellegroupeaffaire) & " and t_a_c.pays=" & (Me!ac_pays) & " and t_a_c.idmois=" & i & " and t_a_c.idtypes=1")
Controls("PROD" & i) = DSum("t_a_c.Cumul", "t_a_c", "t_a_c.site=" & (Me!ac_site) & " and t_a_c.groupe_affaire=" & (Me!ac_groupe_affaire) & " and t_a_c.libellegroupeaffaire=" & (Me!ac_libellegroupeaffaire) & " and t_a_c.pays=" & (Me!ac_pays) & " and t_a_c.idmois=" & i & " and t_a_c.idtypes=2")
next i
 
end sub

20/07/2012, 21h54
marot_r

Je ne suis pas sur que les données soient disponibles au moment du load mais j'essayerai :

Code:

Controls("comm" & i).ControlSource= "=DSum(""t_a_c.Cumul"", ""t_a_c"", ""t_a_c.site=""" & (Me!ac_site) & """ and t_a_c.groupe_affaire=""" & (Me!ac_groupe_affaire) & """ and t_a_c.libellegroupeaffaire=""" & (Me!ac_libellegroupeaffaire) & """ and t_a_c.pays=""" & (Me!ac_pays) & """ and t_a_c.idmois=""" & i & """ and t_a_c.idtypes=1"")"

A+
20/07/2012, 22h16
comewithme

Merci pour ta reponse...

j'ai essayer ta solution mais j'ai maintenant l'erreur 2424
lol

Comewithme
23/07/2012, 13h34
marot_r

C'est quoi l'erreur 2424 ?

Comme je te l'ai dit il se peut que cela ne soit pas possible au load. Dans ce cas généralement On transfert le calcul soit directement dans la source du contrôle, soit dans la source de données du rapport.

A+