control source sur état [Résolu]

[Renardo]

bonjour a tous
Je rencontre un petit probleme, dans un formulaire j'ai se code qui fonctionne très bien mais si je le met dans un etat il me marque cette erreur

Impossible de définir la propriete source controle en mode aperçu avant impression ou apres impression

j'ai mis se code sur detail format
si quelqu'un a une solution
merci d'avance

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Me.tt11.ControlSource = Format(DateAdd("m", 0, Me.Texte68), "mmmm")
Me.tt10.ControlSource = Format(DateAdd("m", -1, Me.Texte68), "mmmm")
Me.tt9.ControlSource = Format(DateAdd("m", -2, Me.Texte68), "mmmm")
Me.tt8.ControlSource = Format(DateAdd("m", -3, Me.Texte68), "mmmm")
Me.tt7.ControlSource = Format(DateAdd("m", -4, Me.Texte68), "mmmm")
Me.tt6.ControlSource = Format(DateAdd("m", -5, Me.Texte68), "mmmm")
Me.tt5.ControlSource = Format(DateAdd("m", -6, Me.Texte68), "mmmm")
Me.tt4.ControlSource = Format(DateAdd("m", -7, Me.Texte68), "mmmm")
Me.tt3.ControlSource = Format(DateAdd("m", -8, Me.Texte68), "mmmm")
Me.tt2.ControlSource = Format(DateAdd("m", -9, Me.Texte68), "mmmm")
Me.tt1.ControlSource = Format(DateAdd("m", -10, Me.Texte68), "mmmm")
Me.Texte39.ControlSource = "= Sum([" & Format(DateAdd("m", -10, Me.Texte68), "mmmm") & "])"
Me.Texte51.ControlSource = "= Sum([" & Format(DateAdd("m", -9, Me.Texte68), "mmmm") & "])"
Me.Texte52.ControlSource = "= Sum([" & Format(DateAdd("m", -8, Me.Texte68), "mmmm") & "])"
Me.Texte53.ControlSource = "= Sum([" & Format(DateAdd("m", -7, Me.Texte68), "mmmm") & "])"
Me.Texte54.ControlSource = "= Sum([" & Format(DateAdd("m", -6, Me.Texte68), "mmmm") & "])"
Me.Texte55.ControlSource = "= Sum([" & Format(DateAdd("m", -5, Me.Texte68), "mmmm") & "])"
Me.Texte56.ControlSource = "= Sum([" & Format(DateAdd("m", -4, Me.Texte68), "mmmm") & "])"
Me.Texte57.ControlSource = "= Sum([" & Format(DateAdd("m", -3, Me.Texte68), "mmmm") & "])"
Me.Texte58.ControlSource = "= Sum([" & Format(DateAdd("m", -2, Me.Texte68), "mmmm") & "])"
Me.Texte59.ControlSource = "= Sum([" & Format(DateAdd("m", -1, Me.Texte68), "mmmm") & "])"
Me.Texte60.ControlSource = "= Sum([" & Format(DateAdd("m", 0, Me.Texte68), "mmmm") & "])"

[Simplifi]

Hello
pour attribuer leur source à mes zones de texte, j'utilise l'évènement "sur ouverture"
exemple:

Code :

1
2
3
4
5
6
Private Sub Report_Open(Cancel As Integer)
DoCmd.OpenForm "Tarif_en_tableau", acNormal, , , , acHidden
For I = 1 To 22
Me(I + 50).ControlSource = Forms!Tarif_en_tableau(I + 21).ControlSource
Me(I + 50).Visible = Forms!Tarif_en_tableau(I + 21).Visible
Next

[Renardo]

Merci pour ton intervention Simplifi mais le resultat n'est pas mieu sur ouverture il me dit qu'il ne trouve pas le control alors qu'il existe bien

[Renardo]

bonjour j'ai resolu mon probleme
Texte68 etait renseigné apres l'execution du code se qui provoquait l'echec
Merci a simplifi de m'avoir apporté son aide