Bonsoir
Quelqu'un peut il m'aider pour une action =E0 actualiser sur chaque
changement d'enregistrement dans un =E9tat =E0 imprimer ?
J'ai mis ce code sur activate :
Private Sub Report_Activate()
If Not IsNull(Me.Controls("ADRESSE").Value) Then
Me.Controls("ADRESSE").Visible =3D True
Me.Controls("=C9tiquette108").Visible =3D False
Else:
Me.Controls("ADRESSE").Visible =3D False
Me.Controls("=C9tiquette108").Visible =3D False
End If
If Not IsNull(Me.Controls("ADRESSE MERE").Value) Then
Me.Controls("ADRESSE MERE").Visible =3D True
Me.Controls("=C9tiquette103").Visible =3D True
Else:
Me.Controls("ADRESSE MERE").Visible =3D False
Me.Controls("=C9tiquette103").Visible =3D False
End If
If Not IsNull(Me.Controls("ADRESSE PERE").Value) Then
Me.Controls("ADRESSE PERE").Visible =3D True
Me.Controls("=C9tiquette109").Visible =3D True
Else:
Me.Controls("ADRESSE PERE").Visible =3D False
Me.Controls("=C9tiquette109").Visible =3D False
End If
End Sub
Il fonctionne sur le groupe d'enregistrements li=E9s mais ne se modifie
pas pour chaque enregistrement or la proc=E9dure est diff=E9rente pour
chacun d'entre eux et doit varier suivant que l'enregistrement
corresponde =E0 une ou plusieurs de ces conditions.
Comment puis je faire pour forcer la ou les condition(s) =E0 se
r=E9initialiser chaque fois ?
Merci de m'aider.
Cordialement,
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
Salut,
Place ton code dans l'événement "Au formatage" de la section détail.
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
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
On 30 déc, 03:09, "3stone" wrote:
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
On 30 déc, 03:09, "3stone" <sw...@home.be> wrote:
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
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