Boucle for/nex desactivation de contrôle dans un formulaire

Version imprimable

30/05/2008, 15h20
moilou2

Boucle for/nex desactivation de contrôle dans un formulaire
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:

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

Bonsoir,

Une petite correction et cela devrait marcher

Code:

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é ;)

Essaye

Code:

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+

30/05/2008, 17h15
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.

Bonjour

Essaie plutôt

Code:

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+ ;)

30/05/2008, 21h57
marot_r
Bizare ça devrait marché.

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

Code:

me.txtChamp1.vsisible = false

ensuite essaye
Code:

1 2 3 4 dim c as control set c=me.txtChamp1 c.visible=false
A+
31/05/2008, 04h22
Invité

Bonjour

Citation:

Envoyé par 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.

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

Starec
31/05/2008, 15h56
moilou2

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

C'est pas sa???
31/05/2008, 16h07
Invité

Re

Citation:

Envoyé par moilou2

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

C'est pas sa???

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

Starec
31/05/2008, 16h10
FreeAccess

Bonjour.....

Citation:

...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....)

Citation:

...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.......;)

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:

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:

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:

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.

02/06/2008, 15h15
moilou2

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

Merci
02/06/2008, 18h01
marot_r

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

A+
02/06/2008, 19h01
FreeAccess
Bonjour...

Citation:

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:

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:

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
03/06/2008, 09h59
moilou2

Merci beaucoup c'est nikel :king: