Utilisation problématique d'EVAL et de SET

Bonjour,

j'ai un souci (Access 2003).

Dans un formulaire, j'ai 10 controls dont le nom est attribut1, attribut2,...,attribut10.

En fonction d'un évènement, je désire rendre ces 10 controls invisibles avec le code suivant:

Code:

---

1 2 3 4 5 6 7 8

Private Sub RendreInvisible() Dim i As Integer, Ctl As Control For i = 1 To 10 Set Ctl = Eval("forms!" & Me.Name & "!attribut" & i) Ctl.Visible = False Next   End Sub

---

Le code renvoie une erreur (n°424) lorsque "Set Ctl = ..." est exécuté. Selon l'aide relative à l'erreur n°424 un objet est requis.
Mais désolé, je n'y comprends rien à cet aspect de programmation.


Merci pour votre aide si vous avez une solution pour réaliser ce que je veux faire ;)

Eval("forms!" & Me.Name & "!attribut" & i)
me("la tribu" & i).visible=dfalse

sont ce les dix tribus ??

Excuse moi je ne comprends pas ton code

Inutile de passer par Eval()

Code:

---

1 2 3 4

Dim i as Integer For i = 1 To 10    Me.Controls("Attribut" & i).Visible = False Next i

---

Bien vu!
Merci à vous