Discussion :

[Virgile59]

Bonjour à tous, je fais des calculs dans un formulaire comme cela :

Me.Compt_CA_SP_AU = DCount("[code]", "TempAffectationsA", "Activité ='SP' and RSICOD='AU' and PERIODE = '" & Me.Période & "'")
Me.Compt_CA_SP_DU = DCount("[code]", "TempAffectationsA", "Activité ='SP' and RSICOD='DU' and PERIODE = '" & Me.Période & "'")
Me.Compt_CA_SP_NO = DCount("[code]", "TempAffectationsA", "Activité ='SP' and RSICOD='NO' and PERIODE = '" & Me.Période & "'")
Me.Compt_CA_SP_PA = DCount("[code]", "TempAffectationsA", "Activité ='SP' and RSICOD='PA' and PERIODE = '" & Me.Période & "'")

Comme vous pouvez le voir il y a juste les activités qui bouges...
Je sais qu'au lieu de répeter les calculs on peut faire un for each mais je ne l'ai jamais utilisé qqn peut m'aider ? Merci d'avance

[pgz]

Bonjour,

Tu peux essayer un truc du genre

Code :

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

1
2
3
4
5
6
Dim ctl As Control
For each ctl in Me.Controls
If Lelt(ctl.name,12) = "Compt_CA_SP_" Then
ctl = DCount("code", "TempAffectationsA", "Activité ='" & Right(ctl.name,2) & "' and RSICOD='AU' and PERIODE = '" & Me.Période & "'")
    end if
next ctl

C'est juste l'idée. Pas essayé.

pgz