action sur changement d'enregistrement

Bonsoir
Quelqu'un peut il m'aider pour une action à actualiser sur chaque
changement d'enregistrement dans un état à imprimer ?
J'ai mis ce code sur activate :
Private Sub Report_Activate()
If Not IsNull(Me.Controls("ADRESSE").Value) Then
Me.Controls("ADRESSE").Visible = True
Me.Controls("Étiquette108").Visible = False
Else:
Me.Controls("ADRESSE").Visible = False
Me.Controls("Étiquette108").Visible = False
End If
If Not IsNull(Me.Controls("ADRESSE MERE").Value) Then
Me.Controls("ADRESSE MERE").Visible = True
Me.Controls("Étiquette103").Visible = True
Else:
Me.Controls("ADRESSE MERE").Visible = False
Me.Controls("Étiquette103").Visible = False
End If
If Not IsNull(Me.Controls("ADRESSE PERE").Value) Then
Me.Controls("ADRESSE PERE").Visible = True
Me.Controls("Étiquette109").Visible = True
Else:
Me.Controls("ADRESSE PERE").Visible = False
Me.Controls("Étiquette109").Visible = False
End If
End Sub
Il fonctionne sur le groupe d'enregistrements liés mais ne se modifie
pas pour chaque enregistrement or la procédure est différente pour
chacun d'entre eux et doit varier suivant que l'enregistrement
corresponde à une ou plusieurs de ces conditions.
Comment puis je faire pour forcer la ou les condition(s) à se
réinitialiser chaque fois ?
Merci de m'aider.
Cordialement,
Togo

Salut,

Place ton code dans l' v nement "Au formatage" de la section d tail.

--
A+
Pierre (3stone) Access MVP
Perso:http://www.3stone.be/
MPFA:http://www.mpfa.info/ (infos g n rales)





togo wrote:
> Bonsoir
> Quelqu'un peut il m'aider pour une action actualiser sur chaque
> changement d'enregistrement dans un tat imprimer ?
> J'ai mis ce code sur activate :
> Private Sub Report_Activate()
> If Not IsNull(Me.Controls("ADRESSE").Value) Then
>     Me.Controls("ADRESSE").Visible = True
>     Me.Controls(" tiquette108").Visible = False
>     Else:
>     Me.Controls("ADRESSE").Visible = False
>     Me.Controls(" tiquette108").Visible = False
> End If
> If Not IsNull(Me.Controls("ADRESSE MERE").Value) Then
>     Me.Controls("ADRESSE MERE").Visible = True
>     Me.Controls(" tiquette103").Visible = True
>     Else:
>     Me.Controls("ADRESSE MERE").Visible = False
>     Me.Controls(" tiquette103").Visible = False
> End If
> If Not IsNull(Me.Controls("ADRESSE PERE").Value) Then
>     Me.Controls("ADRESSE PERE").Visible = True
>     Me.Controls(" tiquette109").Visible = True
>     Else:
>     Me.Controls("ADRESSE PERE").Visible = False
>     Me.Controls(" tiquette109").Visible = False
> End If
> End Sub
> Il fonctionne sur le groupe d'enregistrements li s mais ne se modifie
> pas pour chaque enregistrement or la proc dure est diff rente pour
> chacun d'entre eux et doit varier suivant que l'enregistrement
> corresponde une ou plusieurs de ces conditions.
> Comment puis je faire pour forcer la ou les condition(s) se
> r initialiser chaque fois ?
> Merci de m'aider.
> Cordialement,
> Togo