Discussion :

[moilou2]

Bonjour, sur un formulaire j'ai une multitude de contrôles commançant par "txt", je voudrais savoir comment les rendre tous invisible avec une boucle for/next, sur un évenement clic du formulaire.

Merci

Je pense que sa va etre quelque chose du style :

Code :

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

1
2
3
4
5
6
7
8
Dim ctl As Control
For Each ctl In Me.Controls
    Select Case Left(ctl.Name, 3)
        Case "txt"
            ctl.Visible = False
 
    End Select
Next ctl

Mais sa ne marche pas

[Jeannot45]

Bonsoir,

Une petite correction et cela devrait marcher

Code :

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

1
2
3
4
5
6
Dim ctl As Control
For Each ctl In Me.Controls
    If Left(ctl.Name, 3)= "txt" then
            ctl.Visible = False                  
    End if
Next

Je n'ai pas vérifié

[marot_r]

Essaye

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim ctl As Control
For Each ctl In Me.Controls
 
    if typeOf ctl is textbox then
 
        if Left(ctl.Name, 3)="txt" then
            ctl.Visible = False
        end if             
 
    End if
 
Next ctl

Sinon dit ce qui ne marche pas ? Est-ce que cela ne rend pas les controles invisibles ou ça plante ?

A+

[moilou2]

Re ni l'une ni l'autre solution fonctionne?!!!

En fait je n'ai pas de message d'erreur, mais rien ne se passe.

[Gabout]

Bonjour

Essaie plutôt

Code :

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

1
2
3
4
Dim ctl As Control
For Each ctl In Controls
    If Left(ctl.Name, 3) = "txt" Then ctl.visible = False
Next

A+

[marot_r]

Bizare ça devrait marché.

Essaye en passant la commande sur une contrôle particulier ex :

Code :

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

me.txtChamp1.vsisible = false

ensuite essaye

Code :

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

1
2
3
4
 
dim c as control
set c=me.txtChamp1
c.visible=false

A+

[Invité]

Bonjour

Re ni l'une ni l'autre solution fonctionne?!!!

En fait je n'ai pas de message d'erreur, mais rien ne se passe.

Les codes qui t'ont été fourni sont cohérents, où as-tu mis celui-ci ? Sur quel évènement ?

Starec

[moilou2]

Re, j'ai mis ce code sur l'évenement clic de mon formulaire

C'est pas sa???

[Invité]

Re

Re, j'ai mis ce code sur l'évenement clic de mon formulaire

C'est pas sa???

cela dépend ce que tu veux, si c'est à l'ouverture de ton formulaire, il faut le faire sur le Load.

Starec

[FreeAccess]

Bonjour.....

...sur l'évenement clic de mon formulaire

...en fait tu mets ton code sur l'événement sur lequel tu souhaite faire exécuter le code......(Sur Clic........Sur Ouverture....)

...je n'ai pas de message d'erreur, mais rien ne se passe.

Si tu n'as pas de message d'erreur et que rien ne se passe...alors c'est que tu n'as aucuns contrôles commençant par "txt".....
Vérifie encore une fois l'ensemble du nom des contrôles.......

[moilou2]

Ba pourtant mes contrôles se nomes bien "txt_......". Pour le moment, j'ai 3 évenements sur mon formulaire, c'est peut être sa qui peut bloquer:

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Form_Current()
Dim ctl As Control
For Each ctl In Me.Controls
    Select Case Left(ctl.Name, 3)
        Case "txt"
            ctl.Visible = False
    End Select
Next ctl
 
End Sub

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
17
18
19
20
Private Sub Form_Load()
DoCmd.Maximize
Me.cmdRetourAccueil.BackColor = RGB(253, 233, 217)
 
With Me.cmdRetourAccueil
        .MousePointer = 99
        .MouseIcon = LoadPicture(Application.CurrentProject.Path & "\Data\Harrow.cur")
End With
 
With Me.CmdeDossierMachine
        .MousePointer = 99
        .MouseIcon = LoadPicture(Application.CurrentProject.Path & "\Data\Harrow.cur")
End With
 
With Me.CmdeDossierMachine
        .Picture = LoadPicture(Application.CurrentProject.Path & "\Data\dossier.gif")
        .Caption = "Le Texte"
End With
 
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Form_Click()
 
Dim ctl As Control
For Each ctl In Me.Controls
    If Left(ctl.Name, 3) = "txt" Then
            ctl.Visible = False
    End If
Next
 
End Sub

Voila, quand j'ouvre mon Form, tous les contrôles "txt_..." sont bien cachés, si je clique sur une des images de mon form, les contrôles "txt_..." liés à cette image s'ouvre bien, je voudrais donc que si je reclic n'importe ou sur mon form ils se referment, mais sa ne marche pas.

[moilou2]

Personne n'a une petite idée d'où peut venir le problème?

Merci

[marot_r]

As-tu fais les tests que je t'ai suggérés ?

A+

[FreeAccess]

Bonjour...

je voudrais donc que si je reclic n'importe ou sur mon form ils se referment, mais sa ne marche pas.

....sauf erreur de ma part, cela est normal.....
Avec ton code suivant......

Code :

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

1
2
3
4
5
6
7
8
Private Sub Form_Click()
 Dim ctl As Control
For Each ctl In Me.Controls
    If Left(ctl.Name, 3) = "txt" Then
            ctl.Visible = False
    End If
Next
End Sub

....tu pense faire "référence" à l'ensemble du Formulaire, ce qui est en partie vraie...........mais seulement si tu clic sur un "objet" commun à l'ensemble de celui-ci (par exemple = la zone "Sélecteur" si tu as mis sa propriété sur Oui...)
Donc comme je pense que l'ensemble de tes contrôles se trouve dans la partie "Détail" du formulaire, il te suffit de changer le code comme ci-dessous...:

Code :

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

1
2
3
4
5
6
7
8
Private Sub Détail_Click()
Dim ctl As Control
For Each ctl In Me.Controls
    If Left(ctl.Name, 3) = "txt" Then
            ctl.Visible = False
    End If
Next
End Sub

[moilou2]

Merci beaucoup c'est nikel