Discussion :

[guen]

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

[random]

ton if ne traite que le controle masque et il n'y a pas de else

[guen]

avec le if je veux juste exclure mon contrôle appelé masque du formulaire de cette boucle, je n'ai pas besoin de else.
en clair :
si le contrôle ne s'appelle par "masque" alors je regarde s'il est inclu dans mon recordset, si oui, je l'affiche, si non, je le masque...
sachant que j'ai mis ce contrôle masque exclu de la boucle car je ne peux pas masquer le contrôle actif je setfocus donc sur un contrôle hors de la boucle...
je ne comprend donc pas ta réponse...

[DMboup]

For Each ctrl In Forms![F-Plan de cave].ssform.Controls

Tu boucle apparamment dans un sous formulaire. A part la syntaxe qui parait correcte, je ne trouves pas d'erreur.

Par contre

Code :

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

1
2
 
cuve = Mid(ctrl.Name, InStrRev(ctrl.Name, "_") + 1)

Le recordset contient des données. Je penses que au lieu de ctrl.Name est ce que ce ne serais pas ctrl.Value?

[guen]

Non, c'est bien sur le nom du contrôle car ils sont du type cuve_25 où 25 est le numéro de la cuve et correspond à un numéro index du recordset...
il s'agit effectivement d'un sous-formualire.
bizarre !

[DMboup]

Essai de remplacer

Forms![F-Plan de cave].ssform.Controls

par

Code :

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

1
2
 
Forms![F-Plan de cave].Form!ssform.Controls

PS je supposes que ssform et le véritable nom du sous formulaire. Sinon remplace le par le nom correct.

D'autre part moi j'aurais procéder à l'inverse (sous reserve de ne pas très bien comprendre)
J'aurais d'abord bouclé sur le recordset et seulement ensuite parcourir le sous formulaire pour rendre visible ou non mes controls.

[guen]

J'ai essayé la modif mais pas mieux..
En ce qui concerne la boucle inverse, j'ai essayé mais j'ai un problème ensuite pour masquer mes contrôles...
ça donne :
pour chaque numéro de cuve de mon recordset

[guen]

pardon, j en'ai pas pu finir.;
je peux peut être essayé :
je mets tous les contrôles masqués puis
pour chaque numéro de cuve de mon recordset
je fais une boucle pour le trouver et je rends visible
je passe au recordset suivant

mais ça risque d'être lourd (un recordset peut contenir 100 ou 150 enregistrement et le formualaire environ 400...ce qui fait un nombre de boucle énorme !)
il faut peut être que je trouveune autre solution...