Discussion :

[Gesphy]

Bonjour,
J'ai un Recordset rq contenant les champs: P1, P2, P3, P4, Nb1, Nb2, Nb3, Nb4
J'aimerais récupérer les valeurs de ces champs dans 2 tableaux mp(4) et mnb(4)

Cette variante "en dur" fonctionne pour P1. Bien sûr je pourrais répéter cela 4 fois, jusqu'à P4.
Mais cela serait plus élégant d'avoir une boucle, seulement je ne trouve pas la bonne syntaxe.

Code :

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

1
2
3
4
5
6
        If rq!p1 <> "" Then
          If TraitAReprendre(rq!p1) Then
             mp(1) = rq!p1
             mnb(1) = rq!nb1
          End If
        End If

Voici mon essai qui ne fonctionne évidemment pas !

Code :

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

1
2
3
4
5
6
7
8
       For i = 1 To 4 
        If "rq!p" & i <> "" Then
          If TraitAReprendre("rq!p" & i) Then
             mp(i) = "rq!p" & i
             mnb(i) = "rq!nb" & i
          End If
        End If
       Next i

Merci d'avance si vous avez une solution pour moi !

[nico84]

Bonjour,

Essaie avec cette syntaxe :

Code :

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

mp(i) = rq.Fields("p" & i)

[Gesphy]

Merci beaucoup Nico, cela fonctionne !