J'utilise ce code pour avoir des lignes altern=E9es dans mon =E9tat:.
Private Sub D=E9tail_Format(Cancel As Integer, FormatCount As Integer)
On Error Resume Next
If (Me.txtNumero Mod 2) =3D 0 Then
Me.Section(acDetail).BackColor =3D 15522517
Me.FontBold =3D false
Else
Me.Section(acDetail).BackColor =3D 16777215
Me.FontBold =3D True ' gras
End If
j'ai rajout=E9 cette ligne de code:
"Me.FontBold =3D True ' gras"
pour avoir les caract=E8res en gras une ligne sur deux, mais cela ne
fonctionne pas.
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
superzinzin
je peux te répondre en couleur alternées ce que m'a donné 3stone en 2001...hé oui
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer) ' Alterne les lignes grises et blanches If Me.Détail.BackColor = 16777215 Then ' blanc Me.Détail.BackColor = 15329769 ' gris clair Else Me.Détail.BackColor = 16777215 End If End Sub
Et si tu est exigent et que chaque page doit commencer par la même couleur... Ce qui peut arriver lorsque les records ne sont pas en nombre pairs sur une page.
Private Sub EntêtePage_Format(Cancel As Integer, FormatCount As Integer) Me.Détail.BackColor = 16777215 End Sub Pour le gras je n'ai pas testé mais je ne pense pas que ce soit très joli.
a écrit dans le message de news:
Bonjour,
J'utilise ce code pour avoir des lignes alternées dans mon état:.
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer) On Error Resume Next If (Me.txtNumero Mod 2) = 0 Then Me.Section(acDetail).BackColor = 15522517 Me.FontBold = false Else Me.Section(acDetail).BackColor = 16777215 Me.FontBold = True ' gras End If
j'ai rajouté cette ligne de code: "Me.FontBold = True ' gras" pour avoir les caractères en gras une ligne sur deux, mais cela ne fonctionne pas.
Merci pour votre aide.
Salutations
je peux te répondre en couleur alternées ce que m'a donné 3stone en
2001...hé oui
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
' Alterne les lignes grises et blanches
If Me.Détail.BackColor = 16777215 Then ' blanc
Me.Détail.BackColor = 15329769 ' gris clair
Else
Me.Détail.BackColor = 16777215
End If
End Sub
Et si tu est exigent et que chaque page
doit commencer par la même couleur...
Ce qui peut arriver lorsque les records
ne sont pas en nombre pairs sur une page.
Private Sub EntêtePage_Format(Cancel As Integer, FormatCount As Integer)
Me.Détail.BackColor = 16777215
End Sub
Pour le gras je n'ai pas testé mais je ne pense pas que ce soit très joli.
<HosseinAdibi@gmail.com> a écrit dans le message de news:
1155477997.859481.108420@74g2000cwt.googlegroups.com...
Bonjour,
J'utilise ce code pour avoir des lignes alternées dans mon état:.
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
On Error Resume Next
If (Me.txtNumero Mod 2) = 0 Then
Me.Section(acDetail).BackColor = 15522517
Me.FontBold = false
Else
Me.Section(acDetail).BackColor = 16777215
Me.FontBold = True ' gras
End If
j'ai rajouté cette ligne de code:
"Me.FontBold = True ' gras"
pour avoir les caractères en gras une ligne sur deux, mais cela ne
fonctionne pas.
je peux te répondre en couleur alternées ce que m'a donné 3stone en 2001...hé oui
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer) ' Alterne les lignes grises et blanches If Me.Détail.BackColor = 16777215 Then ' blanc Me.Détail.BackColor = 15329769 ' gris clair Else Me.Détail.BackColor = 16777215 End If End Sub
Et si tu est exigent et que chaque page doit commencer par la même couleur... Ce qui peut arriver lorsque les records ne sont pas en nombre pairs sur une page.
Private Sub EntêtePage_Format(Cancel As Integer, FormatCount As Integer) Me.Détail.BackColor = 16777215 End Sub Pour le gras je n'ai pas testé mais je ne pense pas que ce soit très joli.
a écrit dans le message de news:
Bonjour,
J'utilise ce code pour avoir des lignes alternées dans mon état:.
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer) On Error Resume Next If (Me.txtNumero Mod 2) = 0 Then Me.Section(acDetail).BackColor = 15522517 Me.FontBold = false Else Me.Section(acDetail).BackColor = 16777215 Me.FontBold = True ' gras End If
j'ai rajouté cette ligne de code: "Me.FontBold = True ' gras" pour avoir les caractères en gras une ligne sur deux, mais cela ne fonctionne pas.
Merci pour votre aide.
Salutations
pgz
Bonjour,
C'est la propriété FontWeight de chaque zone de texte de la section détail qu'il faut passer à une valeur de l'ordre de 700 ( normal ~400) pour écrire en gras.
Bon courage, -- pgz _____________________________
Bonjour,
J'utilise ce code pour avoir des lignes alternées dans mon état:.
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer) On Error Resume Next If (Me.txtNumero Mod 2) = 0 Then Me.Section(acDetail).BackColor = 15522517 Me.FontBold = false Else Me.Section(acDetail).BackColor = 16777215 Me.FontBold = True ' gras End If
j'ai rajouté cette ligne de code: "Me.FontBold = True ' gras" pour avoir les caractères en gras une ligne sur deux, mais cela ne fonctionne pas.
Merci pour votre aide.
Salutations
Bonjour,
C'est la propriété FontWeight de chaque zone de texte de la section détail
qu'il faut passer à une valeur de l'ordre de 700 ( normal ~400) pour écrire
en gras.
J'utilise ce code pour avoir des lignes alternées dans mon état:.
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
On Error Resume Next
If (Me.txtNumero Mod 2) = 0 Then
Me.Section(acDetail).BackColor = 15522517
Me.FontBold = false
Else
Me.Section(acDetail).BackColor = 16777215
Me.FontBold = True ' gras
End If
j'ai rajouté cette ligne de code:
"Me.FontBold = True ' gras"
pour avoir les caractères en gras une ligne sur deux, mais cela ne
fonctionne pas.
C'est la propriété FontWeight de chaque zone de texte de la section détail qu'il faut passer à une valeur de l'ordre de 700 ( normal ~400) pour écrire en gras.
Bon courage, -- pgz _____________________________
Bonjour,
J'utilise ce code pour avoir des lignes alternées dans mon état:.
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer) On Error Resume Next If (Me.txtNumero Mod 2) = 0 Then Me.Section(acDetail).BackColor = 15522517 Me.FontBold = false Else Me.Section(acDetail).BackColor = 16777215 Me.FontBold = True ' gras End If
j'ai rajouté cette ligne de code: "Me.FontBold = True ' gras" pour avoir les caractères en gras une ligne sur deux, mais cela ne fonctionne pas.