Discussion :

[patate5555]

Bonjour!

Je suis relativement débutant avec access et je n'arrive pas à faire passer une variable pour mettre une étiquette visible. J'ai 20 différentes étiquettes (UN1 , UN2 , UN3 ...)et je dois les mettre visible et invisible à certain endroit dans mon code. Est ce que quelqu'un peut m'aider?

Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub NB1_AfterUpdate()
    Dim i As Integer
    Dim y As String
    For i = 1 To 20
        y = "UN" & i & ".Visible = True"
        y.Visible = True
    Next i

End Sub

[Kihmé Xs]

pour i = 1 vous obtenez :

UN1.Visible = True.Visible = True

enlèvez : ".Visible = True"

[patate5555]

J'ai enlevé le ".Visible = True" et il me dit que le qualificateur est incorect. Je crois qu'il ne voit pas que le y égale à UN1.

Code :

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

1
2
3
4
5
6
7
Dim i As Integer
    Dim y As String
    For i = 1 To 20
        y = "UN" & i
        y.Visible = True
    Next i
End Sub

[Kihmé Xs]

éssayez :

Code :

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

1
2
3
4
5
6
 
Dim i As Integer
    For i = 1 To 20
        "Un" & i &.Visible = True
    Next i
End Sub

ou quelques chose dans le genre car je suis jamais sur de ce que je fais avec les &

[patate5555]

J'ai tout essayer les combinaison imaginable. Je crois que je n'ai pas la bonne synthaxe.

[AlainTech]

Ceci devrait fonctionner:

Code :

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

1
2
3
4
  Dim i As Integer
  For i = 1 To 20
    Me.Controls("UN" & CStr(i)).Visible = True
  Next i

[Kihmé Xs]

je suis curieux pourquoi avoir rajouter le Me.controls?

[AlainTech]

Dans la liste des Controls du formulaire courant Me, nous allons assigner la valeur True à la propriété Visible du contrôle dont l'index nommé est la concaténation de la chaîne "UN" et du transtypage en String de l'Integer i.

T'as tout suivi?

[patate5555]

Merci AlainTech!!!

Ca fonctionne!!!