Discussion :

[Mors_Ubyte]

Bonsoir,
Je souhaiterais rendre visible un contrôle dans un état, mais le nom de ce controle varie suivant la ligne en cours
J'ai 56 contrôles dont le premier s'appelle texte74 et le dernier texte129.
(je ne me suis pas foulé pour les noms )

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
Dim Num_Ligne As Long
Dim ligne As Long
Dim Name_Control As String
 
 
ligne = Reports![Fiche de maintenance]!Ligne_Detail
 
Num_Ligne = 73
Do
Num_Ligne = Num_Ligne + 1
 
Reports![Fiche de maintenance]![Name_Control.value].Visible = True
Loop While Num_Ligne = ligne + 73
 
End Sub

Merci d'avance

[mcdotta]

Oui....

C'est bien....

Et après ?????

Qu'est ce qui ne marche pas ?

A vu de nez, il faudrait


- enlever le value dans la ligne

Code :

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

1
2
 
Reports![Fiche de maintenance]![Name_Control.value].Visible = True

car là tu travailles sur l'objet controle et non sa valeur

- Ensuite, si tu travailles sur ton rapport, tu peux remplacer Reports![Fiche de maintenance]! par Me.

- Puis, il faut que tu testes au niveau du nom du control pour le rendre visible ou non

Code :

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

1
2
3
4
5
6
 
Dim strName as string
......
strName = "texte" & Num_ligne
Me(strName).Visible = true
....

- A un moment, il faut remettre la propriété Visible des autres contrôles à Oui car ils gardent pour les lignes suivantes les propriétés précédemment attribuées : si sur la ligne x, tu as passé ton contrôle visible non, sur la ligne x+1 tu dois le remettre oui.

- Enfin sitôt que tu veux manipuler des objets via du code, il faut les RENOMMER de façon claire et intelligible...

@+

[Mors_Ubyte]

Je te remercie pour ces conseils, je vais les mettre en application.

Je m'en vais modifier le code... 23h17 ...
heu en fait çà attendra demain.
A+

[Mors_Ubyte]

Salut
Après tous ce temps j'apporte une solution même si avec le recul je me dis que j'étais pas très clair .

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
            Dim texte As Control
            Dim Num_Colonne As Long
 
        For Each texte In Me
 
            If texte.Name Like "Texte*" Then
                Num_Colonne = Num_Colonne + 1
                texte.Visible = True
                If Num_Colonne = Ligne_en_cours - 1 Then Exit For
            End If
        Next

A+