Bonjour
Comment dans un =E9tat peut-on griser ou changer de couleur=20
de police une ligne d'enregistrement sur deux pour avoir=20
une meilleure lisibilit=E9 sur plusieurs feuilles=20
r=E9capitulatives.
Merci d'avance
Yves
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Pierre CFI [mvp]
bonjour un exemple a copier dans le code de l'état
Option Explicit Dim fGray As Boolean
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) AlternateGray End Sub
Private Sub AlternateGray()
Const adhcColorGray = &HC0C0C0 Const adhcColorWhite = &HFFFFFF ' Si la section courante est imprimée en gris, alors ' définit la propriété BackColor de la section. Ceci ' marche car tous les contrôles sont transparents. Me.Section(0).BackColor = IIf(fGray, adhcColorGray, adhcColorWhite)
' Pour la fois suivante, prendre la couleur opposée. fGray = Not fGray End Sub
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer http://users.skynet.be/mpfa/ Site perso http://access.cfi.free.fr "YVES" a écrit dans le message de news: 046201c3c24c$f8bec220$ Bonjour Comment dans un état peut-on griser ou changer de couleur de police une ligne d'enregistrement sur deux pour avoir une meilleure lisibilité sur plusieurs feuilles récapitulatives. Merci d'avance Yves
bonjour
un exemple a copier dans le code de l'état
Option Explicit
Dim fGray As Boolean
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
AlternateGray
End Sub
Private Sub AlternateGray()
Const adhcColorGray = &HC0C0C0
Const adhcColorWhite = &HFFFFFF
' Si la section courante est imprimée en gris, alors
' définit la propriété BackColor de la section. Ceci
' marche car tous les contrôles sont transparents.
Me.Section(0).BackColor = IIf(fGray, adhcColorGray, adhcColorWhite)
' Pour la fois suivante, prendre la couleur opposée.
fGray = Not fGray
End Sub
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"YVES" <anonymous@discussions.microsoft.com> a écrit dans le message de news: 046201c3c24c$f8bec220$a401280a@phx.gbl...
Bonjour
Comment dans un état peut-on griser ou changer de couleur
de police une ligne d'enregistrement sur deux pour avoir
une meilleure lisibilité sur plusieurs feuilles
récapitulatives.
Merci d'avance
Yves
bonjour un exemple a copier dans le code de l'état
Option Explicit Dim fGray As Boolean
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) AlternateGray End Sub
Private Sub AlternateGray()
Const adhcColorGray = &HC0C0C0 Const adhcColorWhite = &HFFFFFF ' Si la section courante est imprimée en gris, alors ' définit la propriété BackColor de la section. Ceci ' marche car tous les contrôles sont transparents. Me.Section(0).BackColor = IIf(fGray, adhcColorGray, adhcColorWhite)
' Pour la fois suivante, prendre la couleur opposée. fGray = Not fGray End Sub
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer http://users.skynet.be/mpfa/ Site perso http://access.cfi.free.fr "YVES" a écrit dans le message de news: 046201c3c24c$f8bec220$ Bonjour Comment dans un état peut-on griser ou changer de couleur de police une ligne d'enregistrement sur deux pour avoir une meilleure lisibilité sur plusieurs feuilles récapitulatives. Merci d'avance Yves
Yves
Merci pour cette réponse rapide, mais vois-tu je m'arrive pas à la mettre en pratique les textes ne change pas de couleur, peux-tu me donner plus d'explication Merci d'avance Yves
-----Message d'origine----- bonjour un exemple a copier dans le code de l'état
Option Explicit Dim fGray As Boolean
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
AlternateGray End Sub
Private Sub AlternateGray()
Const adhcColorGray = &HC0C0C0 Const adhcColorWhite = &HFFFFFF ' Si la section courante est imprimée en gris, alors ' définit la propriété BackColor de la section. Ceci ' marche car tous les contrôles sont transparents. Me.Section(0).BackColor = IIf(fGray, adhcColorGray, adhcColorWhite)
' Pour la fois suivante, prendre la couleur opposée. fGray = Not fGray End Sub
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer http://users.skynet.be/mpfa/ Site perso http://access.cfi.free.fr "YVES" a écrit dans le message de news: 046201c3c24c$f8bec220
$
Bonjour Comment dans un état peut-on griser ou changer de couleur de police une ligne d'enregistrement sur deux pour avoir une meilleure lisibilité sur plusieurs feuilles récapitulatives. Merci d'avance Yves
.
Merci pour cette réponse rapide, mais vois-tu je m'arrive
pas à la mettre en pratique les textes ne change pas de
couleur, peux-tu me donner plus d'explication
Merci d'avance
Yves
-----Message d'origine-----
bonjour
un exemple a copier dans le code de l'état
Option Explicit
Dim fGray As Boolean
Private Sub Detail_Format(Cancel As Integer, FormatCount
As Integer)
AlternateGray
End Sub
Private Sub AlternateGray()
Const adhcColorGray = &HC0C0C0
Const adhcColorWhite = &HFFFFFF
' Si la section courante est imprimée en gris, alors
' définit la propriété BackColor de la section. Ceci
' marche car tous les contrôles sont transparents.
Me.Section(0).BackColor = IIf(fGray, adhcColorGray,
adhcColorWhite)
' Pour la fois suivante, prendre la couleur opposée.
fGray = Not fGray
End Sub
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"YVES" <anonymous@discussions.microsoft.com> a écrit dans
le message de news: 046201c3c24c$f8bec220
$a401280a@phx.gbl...
Bonjour
Comment dans un état peut-on griser ou changer de couleur
de police une ligne d'enregistrement sur deux pour avoir
une meilleure lisibilité sur plusieurs feuilles
récapitulatives.
Merci d'avance
Yves
Merci pour cette réponse rapide, mais vois-tu je m'arrive pas à la mettre en pratique les textes ne change pas de couleur, peux-tu me donner plus d'explication Merci d'avance Yves
-----Message d'origine----- bonjour un exemple a copier dans le code de l'état
Option Explicit Dim fGray As Boolean
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
AlternateGray End Sub
Private Sub AlternateGray()
Const adhcColorGray = &HC0C0C0 Const adhcColorWhite = &HFFFFFF ' Si la section courante est imprimée en gris, alors ' définit la propriété BackColor de la section. Ceci ' marche car tous les contrôles sont transparents. Me.Section(0).BackColor = IIf(fGray, adhcColorGray, adhcColorWhite)
' Pour la fois suivante, prendre la couleur opposée. fGray = Not fGray End Sub
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer http://users.skynet.be/mpfa/ Site perso http://access.cfi.free.fr "YVES" a écrit dans le message de news: 046201c3c24c$f8bec220
$
Bonjour Comment dans un état peut-on griser ou changer de couleur de police une ligne d'enregistrement sur deux pour avoir une meilleure lisibilité sur plusieurs feuilles récapitulatives. Merci d'avance Yves
.
J-Pierre
Bonjour Pierre
Et si tous les contrôles ne sont pas transparents, il se passe quoi ?
J-Pierre
"Yves" a écrit dans le message de news:055c01c3c253$c6af09a0$ Merci pour cette réponse rapide, mais vois-tu je m'arrive pas à la mettre en pratique les textes ne change pas de couleur, peux-tu me donner plus d'explication Merci d'avance Yves
-----Message d'origine----- bonjour un exemple a copier dans le code de l'état
Option Explicit Dim fGray As Boolean
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
AlternateGray End Sub
Private Sub AlternateGray()
Const adhcColorGray = &HC0C0C0 Const adhcColorWhite = &HFFFFFF ' Si la section courante est imprimée en gris, alors ' définit la propriété BackColor de la section. Ceci ' marche car tous les contrôles sont transparents. Me.Section(0).BackColor = IIf(fGray, adhcColorGray, adhcColorWhite)
' Pour la fois suivante, prendre la couleur opposée. fGray = Not fGray End Sub
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer http://users.skynet.be/mpfa/ Site perso http://access.cfi.free.fr "YVES" a écrit dans le message de news: 046201c3c24c$f8bec220
$
Bonjour Comment dans un état peut-on griser ou changer de couleur de police une ligne d'enregistrement sur deux pour avoir une meilleure lisibilité sur plusieurs feuilles récapitulatives. Merci d'avance Yves
.
Bonjour Pierre
Et si tous les contrôles ne sont pas transparents, il se passe quoi ?
J-Pierre
"Yves" <anonymous@discussions.microsoft.com> a écrit dans le message de news:055c01c3c253$c6af09a0$a301280a@phx.gbl...
Merci pour cette réponse rapide, mais vois-tu je m'arrive
pas à la mettre en pratique les textes ne change pas de
couleur, peux-tu me donner plus d'explication
Merci d'avance
Yves
-----Message d'origine-----
bonjour
un exemple a copier dans le code de l'état
Option Explicit
Dim fGray As Boolean
Private Sub Detail_Format(Cancel As Integer, FormatCount
As Integer)
AlternateGray
End Sub
Private Sub AlternateGray()
Const adhcColorGray = &HC0C0C0
Const adhcColorWhite = &HFFFFFF
' Si la section courante est imprimée en gris, alors
' définit la propriété BackColor de la section. Ceci
' marche car tous les contrôles sont transparents.
Me.Section(0).BackColor = IIf(fGray, adhcColorGray,
adhcColorWhite)
' Pour la fois suivante, prendre la couleur opposée.
fGray = Not fGray
End Sub
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"YVES" <anonymous@discussions.microsoft.com> a écrit dans
le message de news: 046201c3c24c$f8bec220
$a401280a@phx.gbl...
Bonjour
Comment dans un état peut-on griser ou changer de couleur
de police une ligne d'enregistrement sur deux pour avoir
une meilleure lisibilité sur plusieurs feuilles
récapitulatives.
Merci d'avance
Yves
Et si tous les contrôles ne sont pas transparents, il se passe quoi ?
J-Pierre
"Yves" a écrit dans le message de news:055c01c3c253$c6af09a0$ Merci pour cette réponse rapide, mais vois-tu je m'arrive pas à la mettre en pratique les textes ne change pas de couleur, peux-tu me donner plus d'explication Merci d'avance Yves
-----Message d'origine----- bonjour un exemple a copier dans le code de l'état
Option Explicit Dim fGray As Boolean
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
AlternateGray End Sub
Private Sub AlternateGray()
Const adhcColorGray = &HC0C0C0 Const adhcColorWhite = &HFFFFFF ' Si la section courante est imprimée en gris, alors ' définit la propriété BackColor de la section. Ceci ' marche car tous les contrôles sont transparents. Me.Section(0).BackColor = IIf(fGray, adhcColorGray, adhcColorWhite)
' Pour la fois suivante, prendre la couleur opposée. fGray = Not fGray End Sub
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer http://users.skynet.be/mpfa/ Site perso http://access.cfi.free.fr "YVES" a écrit dans le message de news: 046201c3c24c$f8bec220
$
Bonjour Comment dans un état peut-on griser ou changer de couleur de police une ligne d'enregistrement sur deux pour avoir une meilleure lisibilité sur plusieurs feuilles récapitulatives. Merci d'avance Yves
.
Raymond [mvp]
Bonsoir.
voir la page: http://access.seneque.free.fr/lignes_grisees.htm -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"J-Pierre" a écrit dans le message de news:%
Bonjour Pierre
Et si tous les contrôles ne sont pas transparents, il se passe quoi ?
J-Pierre
Bonsoir.
voir la page:
http://access.seneque.free.fr/lignes_grisees.htm
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"J-Pierre" <pas.de.pub.jpberchtold@hotmail.com> a écrit dans le message de
news:%230ZuixlwDHA.2092@TK2MSFTNGP09.phx.gbl...
Bonjour Pierre
Et si tous les contrôles ne sont pas transparents, il se passe quoi ?
voir la page: http://access.seneque.free.fr/lignes_grisees.htm -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"J-Pierre" a écrit dans le message de news:%
Bonjour Pierre
Et si tous les contrôles ne sont pas transparents, il se passe quoi ?
J-Pierre
yves
Salut Raymond Merci de ton aide mais après avoir bataillé avec une procedure difficile à mettre en oeuvre je me suis rendu sur le site que tu m'indiques et bien sur tout fonctionne maintenant parfaitement; la base de données de compétition de natation synchronisée est maintenant finie et je remercie tout ceux qui mon aidé en particulier toi et 3stone. Je vais maintenant m'attaquer à une grosse competition regionale pour le mois d'avril, et cette première base etait une mise en bouche mais elle m'a permis de voir quelques difficultés, et maintenant je suis certain que tout va bien se passer. A+ Yves
-----Message d'origine----- Bonsoir.
voir la page: http://access.seneque.free.fr/lignes_grisees.htm -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"J-Pierre" a écrit dans le message de
news:%
Bonjour Pierre
Et si tous les contrôles ne sont pas transparents, il se passe quoi ?
J-Pierre
.
Salut Raymond
Merci de ton aide mais après avoir bataillé avec une
procedure difficile à mettre en oeuvre je me suis rendu
sur le site que tu m'indiques et bien sur tout fonctionne
maintenant parfaitement; la base de données de compétition
de natation synchronisée est maintenant finie et je
remercie tout ceux qui mon aidé en particulier toi et
3stone. Je vais maintenant m'attaquer à une grosse
competition regionale pour le mois d'avril, et cette
première base etait une mise en bouche mais elle m'a
permis de voir quelques difficultés, et maintenant je suis
certain que tout va bien se passer.
A+
Yves
-----Message d'origine-----
Bonsoir.
voir la page:
http://access.seneque.free.fr/lignes_grisees.htm
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"J-Pierre" <pas.de.pub.jpberchtold@hotmail.com> a écrit
dans le message de
news:%230ZuixlwDHA.2092@TK2MSFTNGP09.phx.gbl...
Bonjour Pierre
Et si tous les contrôles ne sont pas transparents, il
se passe quoi ?
Salut Raymond Merci de ton aide mais après avoir bataillé avec une procedure difficile à mettre en oeuvre je me suis rendu sur le site que tu m'indiques et bien sur tout fonctionne maintenant parfaitement; la base de données de compétition de natation synchronisée est maintenant finie et je remercie tout ceux qui mon aidé en particulier toi et 3stone. Je vais maintenant m'attaquer à une grosse competition regionale pour le mois d'avril, et cette première base etait une mise en bouche mais elle m'a permis de voir quelques difficultés, et maintenant je suis certain que tout va bien se passer. A+ Yves
-----Message d'origine----- Bonsoir.
voir la page: http://access.seneque.free.fr/lignes_grisees.htm -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"J-Pierre" a écrit dans le message de
news:%
Bonjour Pierre
Et si tous les contrôles ne sont pas transparents, il se passe quoi ?
