Discussion :

[comewithme]

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 :

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

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

[marot_r]

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

Code :

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

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+

[comewithme]

Merci pour ta reponse...

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

Comewithme

[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+