Discussion :

[Lincoln911]

Bonjour le forum,
j'ai besoin de votre aide SVP pour une histoire de "Collection".
Je souhaite créer une collection dans laquelle j'ajoute des "Contrôles": txtBox, comboBox... afin de réaliser un traitement donné sur tous les éléments de cette collection (ici par exemple, les verrouiller et les désactiver)

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
21
 
    Dim ctl As Control
    Dim frm As Form
    Dim listeCtrl As Collection  ' Une collection pour contenir tous les ctrls à verrouiller
 
    ' Ajouter les contrôles à la collection
    listeCtrl.Add Me.ctrl1
    listeCtrl.Add Me.ctrl2
    listeCtrl.Add Me.ctrl3
    listeCtrl.Add Me.ctrl4
 
    Set frm = Forms("frmMonForm")
 
    'Pour chaque contrôle du formulaire
        For Each ctl In listeCtrl
        ' On verifie que le contrôle soit bien une zone de texte
            If TypeOf ctl Is TextBox Then
                ctl.Locked = True
                ctl.Enabled = False
            End If
        Next ctl

mais j'obtiens une erreur de compilation: "Variable objet ou variable de bloc With non définie".

Est ce que vous pouvez me conseiller sur une meilleure démarche?

Merci d'avance

[Tofalu]

La collection n'est pas instanciée comme l'indique le message Access

Code :

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

Dim listeCtrl As Collection

devient

Code :

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

1
2
Dim listeCtrl As Collection
Set listeCtrl=New Collection

[Lincoln911]

oups !
Petites lacunes de débutant
Parfait ! merci infiniment Christophe