Discussion :

[likinter]

bonjour,
"petit" problème, je pars d'une requete croisée ou se trouve des affectations (1,2,3,4) et je crée des requetes regroupement qui me donne le total des affaires pour les affectations ex de requete regroupement 1ere colonne n0affaire et les autres colonnes les no des affectations
problèmes si dans une requete je n'ai pas de valeur access me la créé mais evidemment je ne peux pas l'ouvrir
peux -t on au moment ou après coup, qu' access ai créé la requete somme
verifier si elle est bonne
d'avance merci

Code sql :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
strSQL = "SELECT " + reque + ".no_affaire, "
For t = 1 To aq: strSQL = strSQL + reque + ".[" + Right(Str(code(t)), Len(Str(code(t))) - 1) + "], ": Next t
strSQL = strSQL + "Sum(nz([" + Right(Str(code(1)), Len(Str(code(1))) - 1) + "],0)"
For t = 2 To aq: strSQL = strSQL + "+nz([" + Right(Str(code(t)), Len(Str(code(t))) - 1) + "],0)": Next t
strSQL = strSQL + ") AS tot" & affect + " FROM " + reque + " "
strSQL = strSQL + "GROUP BY " + reque + ".no_affaire, "
For t = 1 To aq - 1: strSQL = strSQL + reque + ".[" + Right(Str(code(t)), Len(Str(code(t))) - 1) + "], ": Next t
strSQL = strSQL + reque + ".[" + Right(Str(code(aq)), Len(Str(code(aq))) - 1) + "];"
db.CreateQueryDef (req), strSQL
db.QueryDefs(req).Close
If IsError(db.OpenRecordset(req)) Then Stop
a3 = rs2.RecordCount
If rs2.RecordCount > 0 Then GoTo fini

[Jean-Philippe André]

salut,
un petit

Code :

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

debug.print strSQL

serait plus que raisonnable après les boucles for... (qui me font mal aux yeux )