Bonjour

J'essaye de faire une boucle imbriquée pour balayer tous les contrôles d'un formulaire (un plan de cave...) afin de vérifier si le contrôle (cuve..) doit être visible ou pas (en fonction de son nom et de sa présence ou pas dans un recordset)...

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
    For Each ctrl In Forms![F-Plan de cave].ssform.Controls
        If ctrl.Name <> "masque" Then
            'récupère le num de cuve du controle
            cuve = Mid(ctrl.Name, InStrRev(ctrl.Name, "_") + 1)
            'fait une boucle sur recordset pour voir si présent
            While Not rst.EOF
                Debug.Print "controle " & cuve & " - recordset " & rst("N° de cuve")
                If (rst("N° de cuve") = cuve) Then
                    ctrl.visible = True
                Else
                    ctrl.visible = False
                End If
                rst.MoveNext
            Wend
        End If
    Next ctrl
J'obtiens bien la boucle sur le recordset mais cela ne boucle pas sur les contrôles du formulaire, je reste scotcher au premier...
Où il y a t'il une autre solution plus simple...
merci de vos idées.

Guen