Discussion :

[kamaxime]

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 :

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

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

[random]

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

sont ce les dix tribus ??

[kamaxime]

Excuse moi je ne comprends pas ton code

[cafeine]

Inutile de passer par Eval()

Code :

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

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

[kamaxime]

Bien vu!
Merci à vous