Discussion :

[ramine123]

Salut
dans un Etat, j'aimerais avoir la taille 12 si le contenu de la zone de texte est ...., sinon avoir la taille 10
comment faire?
j'attends vos aides
Merci

[marot_r]

Bonjour.
Essaye quelque chose comme :

Code :

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

1
2
Option Compare Database
Option Explicit

Code :

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

1
2
3
4
5
6
7
8
Private Sub ChangerTailleTexte()
    If Me.ToNTexte = "...." Then
            Me.TonTexte.FontSize = 12
        Else
            Me.TonTexte.FontSize = 10
    End If
 
End Sub

Code :

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

1
2
3
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
    Call ChangerTailleTexte
End Sub

Code :

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

1
2
3
Private Sub Détail_Print(Cancel As Integer, PrintCount As Integer)
    Call ChangerTailleTexte
End Sub

A+

[ramine123]

Mais où je peux taper ce code ?

[ramine123]

J'attends vous aides, je suis débutant en Ms Access, Où je dois taper ce code là
Merci

[marot_r]

Bonjour.

Tu vas dans ton rapport en mode conception.
Tu appuis sur "voir le code".

Tu copies

Code :

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

1
2
3
4
5
6
7
8
Private Sub ChangerTailleTexte()
    If Me.ToNTexte = "...." Then
            Me.TonTexte.FontSize = 12
        Else
            Me.TonTexte.FontSize = 10
    End If
 
End Sub

en remplaçant TonTexte par le nom de ton contrôle.

Après tu reviens dans le rapport.

Tu sélectionnes la zone Détail.
Tu fais afficher ses proprités.
Dans les événements, tu choisis "Au formatage"
Tu choisi "Procédure événementielle" et tu cliques sur [...].
Cela t'amène à nouveau dans le code.
Tu y copies le code correspondant.

Même chose avec "À l'impression".

A+

[ramine123]

oh la la
je sens heureux d’acquérir aujourd'hui comment entrer le code sous Rapport
Merci beaucoup mon ami
c'est resolu