OVH Cloud OVH Cloud

Pb de syntax dans VBA

2 réponses
Avatar
Jean-Pierre LAGUERRE
Bonjour à vous

Je pressens qu'une astuce pourrait m'aider, mais je dois être à une virgule
ou un guillemet près, et je sèche lamentablement. Voilà :

Dans un formulaire, j'ai des contrôles nommés : controle_1, controle_2,
controle_3...

Comment faire pour, dans une boucle For... Next, modifier (couleur,
focus...) le controle_1, quand le compteur est à 1, le controle_2 quand le
compteur est à deux...

J'ai essayé de concaténer la chaîne "controle_" avec la valeur du compteur,
mais je dois pateauger avec la syntaxe... et je n'y arrive pas !

Merci à vous, et, en tout cas, bravo pour l'excellente tenue de ce forum !!!

jean-pierre.laguerre@club-internet.fr

2 réponses

Avatar
J-Pierre
Bonsoir,

essaie comme ça

dim champ as string

for ix = 1 to x
champ = "controle_" & ix
me.Controls(champ) ........
next ix

J-Pierre

"Jean-Pierre LAGUERRE" a écrit dans le message de
news:%
Bonjour à vous

Je pressens qu'une astuce pourrait m'aider, mais je dois être à une virgule
ou un guillemet près, et je sèche lamentablement. Voilà :

Dans un formulaire, j'ai des contrôles nommés : controle_1, controle_2,
controle_3...

Comment faire pour, dans une boucle For... Next, modifier (couleur,
focus...) le controle_1, quand le compteur est à 1, le controle_2 quand le
compteur est à deux...

J'ai essayé de concaténer la chaîne "controle_" avec la valeur du compteur,
mais je dois pateauger avec la syntaxe... et je n'y arrive pas !

Merci à vous, et, en tout cas, bravo pour l'excellente tenue de ce forum !!!






Avatar
3stone
Salut,

"Jean-Pierre LAGUERRE"
Dans un formulaire, j'ai des contrôles nommés : controle_1, controle_2,
controle_3...

Comment faire pour, dans une boucle For... Next, modifier (couleur,
focus...) le controle_1, quand le compteur est à 1, le controle_2 quand le
compteur est à deux...




Me("Controle_" & compteur ).SetFocus



--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/charte.htm
--------------------------------------