j'ai un formulaire frm_Marcel dans lequel j'ai des zones textes et des
étiquettes
texte001 etiquette001 texte002 etiquette002 etc..
Je balai l'ensemble des éléments du formulaire grâce à une fonction
avec un test simple
je teste la valeur de chaque zone texte et change la couleur avec la syntaxe
ctl.backcolor
if left(ctl.name,4) = "text" then ctl.backcolor = 255 , je met du rouge
mon problème est le suivant
ctl est l'élément actif par defaut, je voudrais également mettre l'étiquette
en rouge
je sais que dans mon formulaire l'étiquette et le texte ont le même numéro
toujours formaté de 3 chiffres
j'essai de faire un
Dim MonEtiquette as string
MonEtiquette = "Etiquette" &right(ctl.name,3) , (attention Etiquette est
écrit étiquette é en majuscule)
frm_marcel.monetiquette.backcolor=255
Access rouspette à juste titre car monetiquette n'est pas une valeur du
formulaire mais ma variable
comment puis je faire pour que je puisse récupérer ma variable et de la
faire voir comme un élément du formulaire
les commandes SET devraient théoriquement m'y aider mais je sèche...
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
Gloubi
Bonjour,
Adapte le code suivant pour colorer des étiquettes Etiquette001, Etiquette002....Etiquette010 .
Private Sub Commande4_Click() Dim i As Integer For i = 1 To 10 Me("Etiquette" & Format(i, "000")).BackStyle = 1 Me("Etiquette" & Format(i, "000")).BackColor = 255 Next i End Sub
à+ Gloubi
"marcel" a écrit dans le message de news: 41d3d0c7$0$17977$ | Bonjour | | j'ai un formulaire frm_Marcel dans lequel j'ai des zones textes et des | étiquettes | texte001 etiquette001 texte002 etiquette002 etc.. | | Je balai l'ensemble des éléments du formulaire grâce à une fonction | avec un test simple | je teste la valeur de chaque zone texte et change la couleur avec la syntaxe | ctl.backcolor | | if left(ctl.name,4) = "text" then ctl.backcolor = 255 , je met du rouge | | mon problème est le suivant | ctl est l'élément actif par defaut, je voudrais également mettre l'étiquette | en rouge | | je sais que dans mon formulaire l'étiquette et le texte ont le même numéro | toujours formaté de 3 chiffres | | j'essai de faire un | | Dim MonEtiquette as string | MonEtiquette = "Etiquette" &right(ctl.name,3) , (attention Etiquette est | écrit étiquette é en majuscule) | frm_marcel.monetiquette.backcolor%5 | | Access rouspette à juste titre car monetiquette n'est pas une valeur du | formulaire mais ma variable | | comment puis je faire pour que je puisse récupérer ma variable et de la | faire voir comme un élément du formulaire | les commandes SET devraient théoriquement m'y aider mais je sèche... | | | Merci à vous | | | | mon problème est dans ce cas pour l'étiquette | | |
Bonjour,
Adapte le code suivant pour colorer des étiquettes Etiquette001, Etiquette002....Etiquette010 .
Private Sub Commande4_Click()
Dim i As Integer
For i = 1 To 10
Me("Etiquette" & Format(i, "000")).BackStyle = 1
Me("Etiquette" & Format(i, "000")).BackColor = 255
Next i
End Sub
à+
Gloubi
"marcel" <titi@toto.fr> a écrit dans le message de news:
41d3d0c7$0$17977$8fcfb975@news.wanadoo.fr...
| Bonjour
|
| j'ai un formulaire frm_Marcel dans lequel j'ai des zones textes et des
| étiquettes
| texte001 etiquette001 texte002 etiquette002 etc..
|
| Je balai l'ensemble des éléments du formulaire grâce à une fonction
| avec un test simple
| je teste la valeur de chaque zone texte et change la couleur avec la syntaxe
| ctl.backcolor
|
| if left(ctl.name,4) = "text" then ctl.backcolor = 255 , je met du rouge
|
| mon problème est le suivant
| ctl est l'élément actif par defaut, je voudrais également mettre l'étiquette
| en rouge
|
| je sais que dans mon formulaire l'étiquette et le texte ont le même numéro
| toujours formaté de 3 chiffres
|
| j'essai de faire un
|
| Dim MonEtiquette as string
| MonEtiquette = "Etiquette" &right(ctl.name,3) , (attention Etiquette est
| écrit étiquette é en majuscule)
| frm_marcel.monetiquette.backcolor%5
|
| Access rouspette à juste titre car monetiquette n'est pas une valeur du
| formulaire mais ma variable
|
| comment puis je faire pour que je puisse récupérer ma variable et de la
| faire voir comme un élément du formulaire
| les commandes SET devraient théoriquement m'y aider mais je sèche...
|
|
| Merci à vous
|
|
|
| mon problème est dans ce cas pour l'étiquette
|
|
|
Adapte le code suivant pour colorer des étiquettes Etiquette001, Etiquette002....Etiquette010 .
Private Sub Commande4_Click() Dim i As Integer For i = 1 To 10 Me("Etiquette" & Format(i, "000")).BackStyle = 1 Me("Etiquette" & Format(i, "000")).BackColor = 255 Next i End Sub
à+ Gloubi
"marcel" a écrit dans le message de news: 41d3d0c7$0$17977$ | Bonjour | | j'ai un formulaire frm_Marcel dans lequel j'ai des zones textes et des | étiquettes | texte001 etiquette001 texte002 etiquette002 etc.. | | Je balai l'ensemble des éléments du formulaire grâce à une fonction | avec un test simple | je teste la valeur de chaque zone texte et change la couleur avec la syntaxe | ctl.backcolor | | if left(ctl.name,4) = "text" then ctl.backcolor = 255 , je met du rouge | | mon problème est le suivant | ctl est l'élément actif par defaut, je voudrais également mettre l'étiquette | en rouge | | je sais que dans mon formulaire l'étiquette et le texte ont le même numéro | toujours formaté de 3 chiffres | | j'essai de faire un | | Dim MonEtiquette as string | MonEtiquette = "Etiquette" &right(ctl.name,3) , (attention Etiquette est | écrit étiquette é en majuscule) | frm_marcel.monetiquette.backcolor%5 | | Access rouspette à juste titre car monetiquette n'est pas une valeur du | formulaire mais ma variable | | comment puis je faire pour que je puisse récupérer ma variable et de la | faire voir comme un élément du formulaire | les commandes SET devraient théoriquement m'y aider mais je sèche... | | | Merci à vous | | | | mon problème est dans ce cas pour l'étiquette | | |
Pierre CFI [mvp]
bonjour
Me(MonEtiquette)
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr "marcel" a écrit dans le message de news:41d3d0c7$0$17977$
Bonjour
j'ai un formulaire frm_Marcel dans lequel j'ai des zones textes et des étiquettes texte001 etiquette001 texte002 etiquette002 etc..
Je balai l'ensemble des éléments du formulaire grâce à une fonction avec un test simple je teste la valeur de chaque zone texte et change la couleur avec la syntaxe ctl.backcolor
if left(ctl.name,4) = "text" then ctl.backcolor = 255 , je met du rouge
mon problème est le suivant ctl est l'élément actif par defaut, je voudrais également mettre l'étiquette en rouge
je sais que dans mon formulaire l'étiquette et le texte ont le même numéro toujours formaté de 3 chiffres
j'essai de faire un
Dim MonEtiquette as string MonEtiquette = "Etiquette" &right(ctl.name,3) , (attention Etiquette est écrit étiquette é en majuscule) frm_marcel.monetiquette.backcolor%5
Access rouspette à juste titre car monetiquette n'est pas une valeur du formulaire mais ma variable
comment puis je faire pour que je puisse récupérer ma variable et de la faire voir comme un élément du formulaire les commandes SET devraient théoriquement m'y aider mais je sèche...
Merci à vous
mon problème est dans ce cas pour l'étiquette
bonjour
Me(MonEtiquette)
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"marcel" <titi@toto.fr> a écrit dans le message de news:41d3d0c7$0$17977$8fcfb975@news.wanadoo.fr...
Bonjour
j'ai un formulaire frm_Marcel dans lequel j'ai des zones textes et des
étiquettes
texte001 etiquette001 texte002 etiquette002 etc..
Je balai l'ensemble des éléments du formulaire grâce à une fonction
avec un test simple
je teste la valeur de chaque zone texte et change la couleur avec la syntaxe
ctl.backcolor
if left(ctl.name,4) = "text" then ctl.backcolor = 255 , je met du rouge
mon problème est le suivant
ctl est l'élément actif par defaut, je voudrais également mettre l'étiquette
en rouge
je sais que dans mon formulaire l'étiquette et le texte ont le même numéro
toujours formaté de 3 chiffres
j'essai de faire un
Dim MonEtiquette as string
MonEtiquette = "Etiquette" &right(ctl.name,3) , (attention Etiquette est
écrit étiquette é en majuscule)
frm_marcel.monetiquette.backcolor%5
Access rouspette à juste titre car monetiquette n'est pas une valeur du
formulaire mais ma variable
comment puis je faire pour que je puisse récupérer ma variable et de la
faire voir comme un élément du formulaire
les commandes SET devraient théoriquement m'y aider mais je sèche...
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr "marcel" a écrit dans le message de news:41d3d0c7$0$17977$
Bonjour
j'ai un formulaire frm_Marcel dans lequel j'ai des zones textes et des étiquettes texte001 etiquette001 texte002 etiquette002 etc..
Je balai l'ensemble des éléments du formulaire grâce à une fonction avec un test simple je teste la valeur de chaque zone texte et change la couleur avec la syntaxe ctl.backcolor
if left(ctl.name,4) = "text" then ctl.backcolor = 255 , je met du rouge
mon problème est le suivant ctl est l'élément actif par defaut, je voudrais également mettre l'étiquette en rouge
je sais que dans mon formulaire l'étiquette et le texte ont le même numéro toujours formaté de 3 chiffres
j'essai de faire un
Dim MonEtiquette as string MonEtiquette = "Etiquette" &right(ctl.name,3) , (attention Etiquette est écrit étiquette é en majuscule) frm_marcel.monetiquette.backcolor%5
Access rouspette à juste titre car monetiquette n'est pas une valeur du formulaire mais ma variable
comment puis je faire pour que je puisse récupérer ma variable et de la faire voir comme un élément du formulaire les commandes SET devraient théoriquement m'y aider mais je sèche...
