Slt, pouvez-vous me dire ce qui cloche dans cette partie de ma requete?
Merci.
Dim stab() As String
ReDim stab(resultat)
Dim sql_glob_rs As String
Dim i as integer
Dim resultat as integer

    resultat = 9
    If resultat >8 Then
......
 sql_glob_rs = sql_glob_rs & "Ressources_OP.Consommé, Ressources_OP.Reste "
        Do Until Rs.EOF
              stab(i) = Rs![Budget.N" & i & "]
              sql_glob_rs = sql_glob_rs & ", Budget.N" & i & "as [AN " & AnnéeCour + i & "]"
              Rs.MoveNext
              i = i + 1
        Loop
        sql_glob_rs = sql_glob_rs & "(, Ressources_OP.CFP - Ressources_OP.[Consommé anterieur]-Ressources_OP.[Consommé]-Ressources_OP.Reste)-"
        Do Until Rs.EOF
              stab(i) = Rs![Budget.N" & i & "]
              sql_glob_rs = sql_glob_rs & "(Budget.N" & i & ") as [Solde]"
              Rs.MoveNext
              i = i + 1
        Loop
......
end if

Salut
Ce qui serait plus intéressant, ce serait d'avoir un exemple de la requète que tu as ainsi fabriqué.
C'est là qu'on verra les anomalies.
Une anomalie que je vois tout de suite est dans la dernière boucle :
Tu fais une boucle, donc plusieurs ajouts possibles avec le même alias [Solde]
A mon avis, le moteur n'en voudra pas.
De plus, tu as oublié d'ajouter un espace et/ou une virgule pour séparer ces champs.

Copie/colle nous une requète exemple, ça sautera aux yeux de suite.
Pense à la présenter proprement, qu'on ne soit pas obligé de refaire la mise en forme pour la lire (avec des sauts à la ligne entre chaque paramètre ... lisible quoi

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

---

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

Ok, no probléme. Mais finalement j'ai utilisé 1 " for  next" et ça a marché. Merci.

Bon.
On ne saura pas quel était ton problème, mais bon, pas grave.

Au fait j'avais oublié une virgule.
En plus j'ai opté pour un "for" car c'est plus adapté à mon cas.