[VBA] Selection d'un bouton selon les données d'un table

**Yanmeunier** · 25/04/2006, 10h33

Bonjour,
Mon problème est le suivant: J'ai une table avec une données booléennes selon la valeur de cette donnée je dois changer la couleur d'un bouton dont le nom est similaire à une donnée de ma table.
Donc j'aimerais savoir comment faire pour tester le nom de mon bouton à partir des données que j'ai récupéré.
Merci

**zEndymion** · 25/04/2006, 13h24

Tu peux essayer avec ceci

Code :

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

1
2
3
4
5
 
Dim Rs as dao.recordset
Set rs  = CurrentDb.OpenRecorset("MaTable")
me(Rs!NomDuChamps).ForeColor = iif(Rs!ValeurBol, 255, 3216547)
rs.close : set rs = nothing

A metre sur ouverture de ton formualire

**Yanmeunier** · 25/04/2006, 14h06

Peux-tu m'expliquer le déroulement du code que tu m'a poster stp
Merci

**Yanmeunier** · 25/04/2006, 14h11

Il m'indique une erreur pour cet ligne

Code :

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

1
2
 
Me(Rs.Fields(Arretee))

Il me dit Elément non trouvé dans cette collection

**Yanmeunier** · 25/04/2006, 16h10

Alors j'ai essayé quelque chose mais cela ne fonctionne pas.
J'ai voulu utilisé la controls de l'objet form puis j'ai essayé avec autre chose qui est la propiété commandbutton. Seulement quand j'utilise la propriété Controls VB m'indique d'une part que ce que je rentre comme étant mon formulaire n'est pas un nom de champs.

Code :

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

 Forms("Form1").Controls("Textbox1").

et quand j'utilise la syntaxe suivante il ne reconnait rien

Code :

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

Me.CommandButton

Alors si vous aviez une petite idée.
Merci

**Yanmeunier** · 25/04/2006, 17h19

Alors j'ai changé de logique je vais juste changer la couleur de police mais le nom de mon bouton il faut que je le récupère dans une table comment puis-je faire?
Merci