Discussion :

[jad22t]

* Bonjour , *
je rencontre ce bug depuis hier et j'ai pas pu trouver l'erreur vous pouvez m'aider svp. voila le code

..... connexion a la base déja fixé

Code :

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

1
2
3
sql = "SELECT Sum([DL_Qte]*round([AR_PrixVen]*0.8,3)) AS MTHT, dbo_LIGNE.REF,dbo_LIGNE.do_souche, dbo_LIGNE.TVA  FROM dbo_LIGNE GROUP BY DO_Provenance, dbo_LIGNE.REF, dbo_LIGNE.TVA,dbo_LIGNE.do_souche,     dbo_LIGNE.DO_Date HAVING (((dbo_LIGNE.DO_Date) Between #" & d1 & "# And #" & d2 & "#)) AND DO_Provenance = 0 AND do_souche=10 AND DE_No=139;"
 
                 Set rs1 = DBS.OpenRecordset(sql, dbOpenDynaset, dbSeeChanges)

il m'indique l'erreur dans le dernier ligne
Merci

[ClaudeLELOUP]

Bonjour,

Procède comme ceci :

- après l'instruction que tu montres en 1., place celle-ci

Code :

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

debug.print sql

- exécute le code pour récupérer le texte du sql généré dans la fenêtre d’exécution ;
- copie/colle ce sql dans une nouvelle requête : tu pourras ainsi en voir la représentation graphique dans le QBE (l’interface de création de requêtes).