[Toutes versions] Itération Contrôle Forms

[gillou21]

Bonsoir,

Est-il possible de construire une chaine par itération de la forme:

Code :

 Forms!Nom!S(n)

avec n variable et que cette chaine soit vue comme un contrôle?

exemple attendu:

Code :

1
2
3
For n = 1 to ...
    Forms!Nom!S(n)= -1        ' (Contrôle Oui/Non)
next n

Merci d'avance

[tarnx]

Tu peux parcourir tous les éléments de ton formulaire de cette façon

Code :

1
2
3
4
5
6
7
Dim cCont As Control

For Each cCont In Application.Forms("TonFormulaire").Controls
    If TypeName(cCont) = "CheckBox" Then
        cCont.Value = -1
    End If
Next CCont

[gillou21]

Bonjour tarnx

Tout d'abord merci pour la réponse qui fonctionne très bien.
J'aimerais savoir s'il est possible d'identifier un membre d'une collection par un 'string' ?


ex:

Code :

1
2
3
    Set collect = CurrentDb.OpenRecordset("Table")
 
    collect!"string".value=-1

le 'string' représentant le nom d'un champ de la table en "checkbox"


Merci d'avance

[loufab]

Bonjour,

Comme ceci :

Code :

collect.fields(variable)

Cordialement,