action sur changement d'enregistrement

Le
togo
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
3stone
Le #22968831
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
togo
Le #22969211
On 30 déc, 03:09, "3stone"
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



Merci, à priori cela fonctionne bien
Cordialement,
Togo
Publicité
Poster une réponse
Anonyme