Discussion :

[OtObOx]

Bonjour,

je poste dans ce forum, je pense que c'est plus un problème VBA que Access.

Je cherche à désactiver une série de listbox et je pensais utiliser la fonction for... each, mais je n'arrive à rien.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim lstBoite As ListBox

For Each lstBoite In listboxes 'C'est ici que ça bloque !!
    
        With lstBoite
            If cmbAffaires <> "" Then
                .Enabled = True
                .Requery
            Else
                .Enabled = False
            End If
        End With
    
Next lstBoite

J'ai vu que souvent, on faisait une boucle sur tous les controles et si le controle était une listebox alors exécution du code.
Il n'y a pas moyen de boucler seulement sur les listbox ?

Merci,

Jean-Marc

[jmfmarques]

listboxes est-elle une collection sous VBA ?
Non n'est-ce-pas ? alors... pourquoi l'as-tu écrit ?

[sovo]

teste un peut ceci, il devrais marche

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
 
dim lstbox as control
 
for each lstbox in me.controls
    if typeof lstbox is listbox then
              With lstBoite
            If cmbAffaires <> "" Then
                .Enabled = True
                .Requery
            Else
                .Enabled = False
            End If
        End With
   end if
next lstbox

PS: ce dode fonctionne est de VB6 a toi de le traduire

[OtObOx]

OK, merci, ca revient à peut près au code que je connais... donc, apparamment, ce n'est pas possible ne boucler que sur des listbox

listboxes est-elle une collection sous VBA ?
Non n'est-ce-pas ? alors... pourquoi l'as-tu écrit ?

PASSSSSSKEUHHH !
En fait, c'était pour faire une analogie, un exemple avec le truc qu'on retrouve partout et que je voulais adapter qu'aux listbox :

Code :

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

1
2
3
4
5
dim ctl as control
 
for each ctl in me.controls
...
next ctl

kenavo,

Jean-Marc, de poser des questions débiles et de chopper des tags "très mauvais"