Bonjour,
Sur un Formulaire en continu, j'aimerai faire changer=20
l'=E9paisseur d'=E9criture selon l'option choisie.
J'ai essay=E9 =E7a, mais =E7a ne foctionne que sur le premier=20
enregistrement, apr=E8s sur tous les autres c'est faux:
Private Sub Form_Current()
If (Me.Option) =3D 1 Then
Me.Texte47.FontWeight =3D 700
Else
Me.Texte47.FontWeight =3D 400
End If
If (Me.Option) =3D 2 Then
Me.Texte50.FontWeight =3D 700
Else
Me.Texte50.FontWeight =3D 400
End If
If (Me.Option) =3D 3 Then
Me.Texte56.FontWeight =3D 700
Else
Me.Texte56.FontWeight =3D 400
End If
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
Raymond [mvp]
Bonjour Luis.
étant dans un formulaire en continu, lorsque tu vas passer en gras, tous les contrôles de tous les enregistrements vont passer en gras et quand tu vas passer en normal, ils vont tous passer en normal. but final à revoir. -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Luis" a écrit dans le message de news:1690201c447eb$3fbb4260$ Bonjour, Sur un Formulaire en continu, j'aimerai faire changer l'épaisseur d'écriture selon l'option choisie. J'ai essayé ça, mais ça ne foctionne que sur le premier enregistrement, après sur tous les autres c'est faux:
Private Sub Form_Current()
If (Me.Option) = 1 Then Me.Texte47.FontWeight = 700 Else Me.Texte47.FontWeight = 400 End If
If (Me.Option) = 2 Then Me.Texte50.FontWeight = 700 Else Me.Texte50.FontWeight = 400 End If
If (Me.Option) = 3 Then Me.Texte56.FontWeight = 700 Else Me.Texte56.FontWeight = 400 End If
End Sub
Me.Option est un champ.
Merci pour votre aide. Luis
Bonjour Luis.
étant dans un formulaire en continu, lorsque tu vas passer en gras, tous les
contrôles de tous les enregistrements vont passer en gras et quand tu vas
passer en normal, ils vont tous passer en normal. but final à revoir.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Luis" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:1690201c447eb$3fbb4260$a101280a@phx.gbl...
Bonjour,
Sur un Formulaire en continu, j'aimerai faire changer
l'épaisseur d'écriture selon l'option choisie.
J'ai essayé ça, mais ça ne foctionne que sur le premier
enregistrement, après sur tous les autres c'est faux:
Private Sub Form_Current()
If (Me.Option) = 1 Then
Me.Texte47.FontWeight = 700
Else
Me.Texte47.FontWeight = 400
End If
If (Me.Option) = 2 Then
Me.Texte50.FontWeight = 700
Else
Me.Texte50.FontWeight = 400
End If
If (Me.Option) = 3 Then
Me.Texte56.FontWeight = 700
Else
Me.Texte56.FontWeight = 400
End If
étant dans un formulaire en continu, lorsque tu vas passer en gras, tous les contrôles de tous les enregistrements vont passer en gras et quand tu vas passer en normal, ils vont tous passer en normal. but final à revoir. -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Luis" a écrit dans le message de news:1690201c447eb$3fbb4260$ Bonjour, Sur un Formulaire en continu, j'aimerai faire changer l'épaisseur d'écriture selon l'option choisie. J'ai essayé ça, mais ça ne foctionne que sur le premier enregistrement, après sur tous les autres c'est faux:
Private Sub Form_Current()
If (Me.Option) = 1 Then Me.Texte47.FontWeight = 700 Else Me.Texte47.FontWeight = 400 End If
If (Me.Option) = 2 Then Me.Texte50.FontWeight = 700 Else Me.Texte50.FontWeight = 400 End If
If (Me.Option) = 3 Then Me.Texte56.FontWeight = 700 Else Me.Texte56.FontWeight = 400 End If
End Sub
Me.Option est un champ.
Merci pour votre aide. Luis
Luis
Bonjour Raymond, C'est bien le résultat que j'obtiens maintenant. Alors comment faire, car je suis obligé de travailler sur un formulaire en continu. Luis
-----Message d'origine----- Bonjour Luis.
étant dans un formulaire en continu, lorsque tu vas passer en gras, tous les
contrôles de tous les enregistrements vont passer en gras et quand tu vas
passer en normal, ils vont tous passer en normal. but final à revoir.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Luis" a écrit dans le message de
news:1690201c447eb$3fbb4260$ Bonjour, Sur un Formulaire en continu, j'aimerai faire changer l'épaisseur d'écriture selon l'option choisie. J'ai essayé ça, mais ça ne foctionne que sur le premier enregistrement, après sur tous les autres c'est faux:
Private Sub Form_Current()
If (Me.Option) = 1 Then Me.Texte47.FontWeight = 700 Else Me.Texte47.FontWeight = 400 End If
If (Me.Option) = 2 Then Me.Texte50.FontWeight = 700 Else Me.Texte50.FontWeight = 400 End If
If (Me.Option) = 3 Then Me.Texte56.FontWeight = 700 Else Me.Texte56.FontWeight = 400 End If
End Sub
Me.Option est un champ.
Merci pour votre aide. Luis
.
Bonjour Raymond,
C'est bien le résultat que j'obtiens maintenant.
Alors comment faire, car je suis obligé de travailler sur
un formulaire en continu.
Luis
-----Message d'origine-----
Bonjour Luis.
étant dans un formulaire en continu, lorsque tu vas
passer en gras, tous les
contrôles de tous les enregistrements vont passer en gras
et quand tu vas
passer en normal, ils vont tous passer en normal. but
final à revoir.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Luis" <anonymous@discussions.microsoft.com> a écrit dans
le message de
news:1690201c447eb$3fbb4260$a101280a@phx.gbl...
Bonjour,
Sur un Formulaire en continu, j'aimerai faire changer
l'épaisseur d'écriture selon l'option choisie.
J'ai essayé ça, mais ça ne foctionne que sur le premier
enregistrement, après sur tous les autres c'est faux:
Private Sub Form_Current()
If (Me.Option) = 1 Then
Me.Texte47.FontWeight = 700
Else
Me.Texte47.FontWeight = 400
End If
If (Me.Option) = 2 Then
Me.Texte50.FontWeight = 700
Else
Me.Texte50.FontWeight = 400
End If
If (Me.Option) = 3 Then
Me.Texte56.FontWeight = 700
Else
Me.Texte56.FontWeight = 400
End If
Bonjour Raymond, C'est bien le résultat que j'obtiens maintenant. Alors comment faire, car je suis obligé de travailler sur un formulaire en continu. Luis
-----Message d'origine----- Bonjour Luis.
étant dans un formulaire en continu, lorsque tu vas passer en gras, tous les
contrôles de tous les enregistrements vont passer en gras et quand tu vas
passer en normal, ils vont tous passer en normal. but final à revoir.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Luis" a écrit dans le message de
news:1690201c447eb$3fbb4260$ Bonjour, Sur un Formulaire en continu, j'aimerai faire changer l'épaisseur d'écriture selon l'option choisie. J'ai essayé ça, mais ça ne foctionne que sur le premier enregistrement, après sur tous les autres c'est faux:
Private Sub Form_Current()
If (Me.Option) = 1 Then Me.Texte47.FontWeight = 700 Else Me.Texte47.FontWeight = 400 End If
If (Me.Option) = 2 Then Me.Texte50.FontWeight = 700 Else Me.Texte50.FontWeight = 400 End If
If (Me.Option) = 3 Then Me.Texte56.FontWeight = 700 Else Me.Texte56.FontWeight = 400 End If
End Sub
Me.Option est un champ.
Merci pour votre aide. Luis
.
Raymond [mvp]
La solution: mise en forme conditionnelle pour chaque champ: condition : expression valeur expression : [Option] = 1 mettre en gras ou couleur. -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Luis" a écrit dans le message de news:168f101c447fa$d6ba0d90$ Bonjour Raymond, C'est bien le résultat que j'obtiens maintenant. Alors comment faire, car je suis obligé de travailler sur un formulaire en continu. Luis
La solution: mise en forme conditionnelle pour chaque champ:
condition : expression
valeur expression : [Option] = 1
mettre en gras ou couleur.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Luis" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:168f101c447fa$d6ba0d90$a501280a@phx.gbl...
Bonjour Raymond,
C'est bien le résultat que j'obtiens maintenant.
Alors comment faire, car je suis obligé de travailler sur
un formulaire en continu.
Luis
La solution: mise en forme conditionnelle pour chaque champ: condition : expression valeur expression : [Option] = 1 mettre en gras ou couleur. -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Luis" a écrit dans le message de news:168f101c447fa$d6ba0d90$ Bonjour Raymond, C'est bien le résultat que j'obtiens maintenant. Alors comment faire, car je suis obligé de travailler sur un formulaire en continu. Luis
Luis
Bonjour Raymond, Merci, j'avais essayé la mise en forme conditionnelle et ça ne marchait pas car je ne mettais pas les [] pour encadrer "Option". Encore merci, à bientôt. Luis
-----Message d'origine----- La solution: mise en forme conditionnelle pour chaque champ:
condition : expression valeur expression : [Option] = 1 mettre en gras ou couleur. -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Luis" a écrit dans le message de
news:168f101c447fa$d6ba0d90$ Bonjour Raymond, C'est bien le résultat que j'obtiens maintenant. Alors comment faire, car je suis obligé de travailler sur un formulaire en continu. Luis
.
Bonjour Raymond,
Merci, j'avais essayé la mise en forme conditionnelle et
ça ne marchait pas car je ne mettais pas les [] pour
encadrer "Option".
Encore merci, à bientôt.
Luis
-----Message d'origine-----
La solution: mise en forme conditionnelle pour chaque
champ:
condition : expression
valeur expression : [Option] = 1
mettre en gras ou couleur.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Luis" <anonymous@discussions.microsoft.com> a écrit dans
le message de
news:168f101c447fa$d6ba0d90$a501280a@phx.gbl...
Bonjour Raymond,
C'est bien le résultat que j'obtiens maintenant.
Alors comment faire, car je suis obligé de travailler sur
un formulaire en continu.
Luis
Bonjour Raymond, Merci, j'avais essayé la mise en forme conditionnelle et ça ne marchait pas car je ne mettais pas les [] pour encadrer "Option". Encore merci, à bientôt. Luis
-----Message d'origine----- La solution: mise en forme conditionnelle pour chaque champ:
condition : expression valeur expression : [Option] = 1 mettre en gras ou couleur. -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Luis" a écrit dans le message de
news:168f101c447fa$d6ba0d90$ Bonjour Raymond, C'est bien le résultat que j'obtiens maintenant. Alors comment faire, car je suis obligé de travailler sur un formulaire en continu. Luis
