Discussion :

[nimenio]

Bonjour,

Je n'arrive pas à récupérer automatiquement le nom des champs (15) d'un état pour la mise en place sous forme de boucle d'une mise en forme conditionnelle

Le code que je veux mettre en place pourrait ressembler à :

Code :

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

1
2
3
4
5
for i =1 to 15
    if Me.champ(i) < DateAdd("m",-1,date) then
         Me.champ(i).BackColor= RGB(255,0,0)
    end if
Next i

Le problème c'est que les champs de mon état ne s'appelle bien entendu pas champ(1), ...

[rjamin]

Bonjour,

En VBA les champs s'appellent Fields et leur index commence à 0 donc le premier champ = Fields(0)

[rjamin]

Bonsoir,

Un détail important que j'ai oublié de préciser la méthode Fields ne fonctionne qu'avec un Recorset appelé par exemple rs.
Donc il faut créer un RecordSet avec la requête qui alimente l'Etat
Après on peux utiliser rs.Fields(i) =... pour y entrer les données.
Voyer dans la FAQ la manipulation des données avec ADO

Edit : l'adresse
http://warin.developpez.com/access/dao/