Discussion :

[mcharmat]

Bonsoir,

J'ai réaliser un état ou il est mentionnée les résultats d'examen, dans la ligne détail j'ai :
[N°], [Matricule], [Nom et Prénom], [sexe], [Note pratique], [Note théorique], [moyenne], [PasseOuPas], [Statut]

Je voulez que mon état me montre en gras et rouge tous c'est champs si l’élève

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 [PasseOuPas] = "Ajourné"

j'ai trouver ce code que je voulais tester avec le champ [Matricule] et qui ne marche pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer) 
    If Me![PasseOuPas] = "Ajourné"  Then 
        Me![Matricule].FontBold = true
	Me![Matricule].ForeColor = 16777215
    Else 
        Me![Matricule].FontBold = False
	Me![Matricule].ForeColor = 0
    End If 
End Sub

J'ai essayer aussi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
 
    If Me.NoteOrale < 0 Then
        Me.Matricule.FontBold = True
       Else
        Me.Matricule.FontBold = False
        End If
 
End Sub

ça ne donne rien.

J'ai trouver un moyen de mettre en forme le champs [PasseOuPas] en gras et rouge, seulement j'aimerais que tous les autre champs [N°], [Matricule], [Nom et Prénom], [sexe], [Note pratique], [Note théorique], [moyenne], [PasseOuPas], [Statut] soit aussi en rouge et gras.

Mettre en valeur c'est champs, me permettra de localiser ceux qu'ils vont être recaler pour mieux revérifier leurs moyenne, pour peut être sauver quelques uns, des fois par exemple un élève qui à 09.5 de moyenne il est Ajourné, on pourra le mettre au 10 et il pourrais être admis.



Merci.

[RobiPMS]

Bonjour.

Ce genre de code doit être mis "Sur impression" de la section où se trouvent les champs concernés :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Détail_Print(Cancel As Integer, PrintCount As Integer)
    If Me.Controls![PasseOuPas].Value = "Ajourné"  Then 
        Me.Controls![Matricule].FontBold = true
	Me.Controls![Matricule].ForeColor = RGB(255, 0, 0)
    Else 
        Me.Controls![Matricule].FontBold = False
	Me.Controls![Matricule].ForeColor = RGB(0, 0, 0)
End Sub

Cordialement

[mcharmat]

Salut et merci de me répondre

J'ai essayer le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Détail_Print(Cancel As Integer, PrintCount As Integer)
    If Me.Controls![PasseOuPas].Value = "Ajourné"  Then 
        Me.Controls![Matricule].FontBold = true
	Me.Controls![Matricule].ForeColor = RGB(255, 0, 0)
    Else 
        Me.Controls![Matricule].FontBold = False
	Me.Controls![Matricule].ForeColor = RGB(0, 0, 0)
End If
End Sub

ça ne marche pas, désolé ;(

[RobiPMS]

Chez moi, cela fonctionne sans problème. Si tous les noms de champ sont bien orthographiés, je ne sais pas ce qui fait que cela ne fonctionne pas. Si c'est possible pour toi, tu peux zipper ta base et et la poster... On verra ce qui ne va pas.

[mcharmat]

Bonjour,
ça ne fait rien, j'ai trouver comment faire sans VBA

sélectionnant tous les champs de détails et en choisissant (expression) on met [PasseOuPas]="Ajourné", tous les champs devient rouge et gras, merci