Discussion :

[boby4444]

Bonjour a tous
J'ai un probleme sur access. J'ai créé une requete grave a l'editeur et j'ai ensuite inserer le code SQL dans mon code VBA. Le probleme est que quand je lance la requete via access tout marche correctement mais quand j'execute mon code VBA il plante sur cette requete et me dit "erreur de syntaxe" ou "nombre de parentheses trop grand" (selon les modif de parentheses que je fait.
Je ne comprend pas pourquoi d'un coté cette requete marche tres bien mais des que je veux la lancer en VBA elle plante... Si vous avez une idée/explication/solution miracle je suis preneur ! Pour info voici la requete dans le bout de code vba (le probleme est dans les IIF comme on peut s'en douter)

Code :

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

1
2
3
4
5
6
7
8
RR05 = "SELECT T_r09.clef, T_r09.semaine, T_r09.agregat, T_r09.[tot agregat], T_r09.[code fam pdt], T_r09.[lib fam pdt], T_r09.[annee-sem], T_r09.prev_s, T_r09.cde_s, T_r09.prev_s1, T_r09.cde_s1, T_r09.liv_s1, T_r09.[lib ref], T_r09.lib_grc4, T_r09.ecart, IIf([annee_debut]>[annee],"",IIf([sem_db]<=[semaine],IIf([sem_fin]>=[semaine],[code_op].[code op],IIf([annee_fin]>[annee],[code_op].[code op],"")),IIf([annee]>[annee_debut],IIf([sem_fin]>=[semaine],IIf([annee_fin]>=[annee],[code_op].[code op],""),IIf([annee_fin]>[annee],[code_op].[code op],"")),""))) AS [Code OP], Left([T_r09].[clef],6) AS [Code ref], code_op.sem_db, code_op.sem_fin INTO T_cd_op " & _
"FROM code_op RIGHT JOIN T_r09 ON code_op.clef = T_r09.clef " & _
"GROUP BY T_r09.clef, T_r09.semaine, T_r09.agregat, T_r09.[tot agregat], T_r09.[code fam pdt], T_r09.[lib fam pdt], T_r09.[annee-sem], T_r09.prev_s, T_r09.cde_s, T_r09.prev_s1, T_r09.cde_s1, T_r09.liv_s1, T_r09.[lib ref], T_r09.lib_grc4, T_r09.ecart, IIf([annee_debut]>[annee],"",IIf([sem_db]<=[semaine],IIf([sem_fin]>=[semaine],[code_op].[code op],IIf([annee_fin]>[annee],[code_op].[code op],"")),IIf([annee]>[annee_debut],IIf([sem_fin]>=[semaine],IIf([annee_fin]>=[annee],[code_op].[code op],""),IIf([annee_fin]>[annee],[code_op].[code op],"")),""))), Left([T_r09].[clef],6), code_op.sem_db, code_op.sem_fin;"
 
 
Dim RS As DAO.Recordset
strSQL = RR05
Set RS = CurrentDb.OpenRecordset(strSQL)

Merci d'avance

[loufab]

Bonjour,

Remplace tes "" par des ''.

Consulte également le tuto sur le débogage de requête en VBA.

Cordialement,

[boby4444]

c'etait ca merci beaucoup !