Discussion :

[comewithme]

Bonjour

j'ai un soucis avec cette requete SQL

Code :

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

1
2
3
StrSQL = "SELECT sous_requete_Productions.IdPays, sous_requete_Productions.Pays, sous_requete_Productions.Site, sous_requete_Productions.id_groupe_affaire, sous_requete_Productions.groupe_affaire, sous_requete_Productions.Libellegroupeaffaire, sous_requete_Productions.idmois, (-(((Nz(DSum(""[MONTANTLOCAL]"", ""sous_requete_productions"",""[id_groupe_affaire]=" & MonRst.Fields("id_groupe_affaire") & " and [idmois]<=" & Q & """) / 1000 / DLookup(""taux"", ""sous_requete_productions"", ""[idsite] =" & MonRst.Fields("IDSITE") & " and [idmois]=" & Q & """), 0) - Nz(DSum(""[MONTANTLOCAL]"", ""sous_requete_productions"", ""[id_groupe_affaire]=" & MonRst.Fields("id_groupe_affaire") & " and [idmois]<=" & Q & """) / 1000 / DLookup(""taux"", ""sous_requete_productions"", ""[idsite] =" & MonRst.Fields("IDSITE") & " and [idmois]=" & Q & """) / 1000 / DLookup(""taux"", ""sous_requete_productions"", ""[idsite] =" & MonRst.Fields("IDSITE") & " and [idmois]=" & Q & """), 0))) AS Cumul, 'Activités' AS Types " & vbCrLf
StrSQL = StrSQL & "FROM sous_requete_Productions GROUP BY sous_requete_Productions.IdPays, sous_requete_Productions.Pays, sous_requete_Productions.Site, sous_requete_Productions.id_groupe_affaire, sous_requete_Productions.groupe_affaire, sous_requete_Productions.Libellegroupeaffaire, sous_requete_Productions.idmois, " & vbCrLf
StrSQL = StrSQL & ";"

Merci pour votre aide

Comewhithme

[Invité]

Bonjour

j'ai un soucis avec cette requete SQL

Lequel ?
Message d'erreur ? Le résultat n'est pas celui attendu ?

Philippe

[comewithme]

Bonjour,

Le résultat n'est pas attendu.

je devrais avoir un résultat du style (somdom avec regroupement)

en fait il serait judicieux pour moi de vous donner la nouvelle requete intégrées dans une boucle for .

Code :

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

1
2
3
4
5
6
7
8
  For Q = 1 To Mois_cloture
    .MoveNext
        DoCmd.SetWarnings False
        Valeur_Prod = -((Nz(DSum("[MONTANTLOCAL]", "sous_requete_productions", "[idpays]=" & MonRst.Fields("idpays") & " and [id_groupe_affaire]=" & MonRst.Fields("id_groupe_affaire") & " and [idmois]<=" & Q & "") / 1000 / DLookup("taux", "sous_requete_productions", "[idsite] =" & MonRst.Fields("idSite") & " and [idmois]=" & Q & ""), 0) - Nz(DSum("[MONTANTLOCAL]", "sous_requete_productions", "[idpays]=" & MonRst.Fields("idpays") & " and [id_groupe_affaire]=" & MonRst.Fields("id_groupe_affaire") & " and [idmois]<" & Q & "") / 1000 / DLookup("taux", "sous_requete_productions", "[idsite] =" & MonRst.Fields("idSite") & " and [idmois]=" & Q & ""), 0)))
        StrSQL = "insert INTO TEST select distinct idpays,pays,site,id_groupe_affaire,groupe_affaire,libellegroupeaffaire,idmois, (-((Nz(DSum(""[MONTANTLOCAL]"", ""sous_requete_productions"", ""[idpays]=" & MonRst.Fields("idpays") & " and [idsite]=" & MonRst.Fields("idsite") & " and [id_groupe_affaire]=" & MonRst.Fields("id_groupe_affaire") & " and [idmois]<=" & Q & """) / 1000 / DLookup(""taux"", ""sous_requete_productions"", ""[idsite] =" & MonRst.Fields("idSite") & " and [idmois]=" & Q & """), 0) - Nz(DSum(""[MONTANTLOCAL]"", ""sous_requete_productions"", ""[idpays]=" & MonRst.Fields("idpays") & " and [idsite]=" & MonRst.Fields("idsite") & " and [id_groupe_affaire]=" & MonRst.Fields("id_groupe_affaire") & " and [idmois]<" & Q & """) / 1000 / DLookup(""taux"", ""sous_requete_productions"", ""[idsite] =" & MonRst.Fields("idSite") & " and [idmois]=" & Q & """), 0)))) as Valeur from sous_requete_productions where idmois=" & Q & ""
        DoCmd.RunSQL StrSQL
        'DoCmd.RunSQL "update test set [valeur]='" & Format(Valeur_Prod, "fixed") & "'"
    Next Q