Discussion :

[lololebricoleur]

Bonjour,

J'ai besoin d'une requête d'union en VBA mais elle ne marche pas (erreur de syntaxe).

Code :

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

1
2
3
4
5
6
7
8
9
 
    SQl = "SELECT " & Table_DOC & ".* " & _
    "FROM BOUton LEFT JOIN (IMPression LEFT JOIN " & Table_DOC & " ON IMPression.IMP_Doc = " & Table_DOC & ".DOC_Num_Bis) ON BOUton.BOU_Num = IMPression.IMP_Bou " & _
    "WHERE (BOUton.BOU_Nom = '" & Bimp & "' AND Impression.IMP_Actif = True AND " & Table_DOC & ".DOC_Actif = True) " & _
    "UNION " & _
    "SELECT " & Table_DOC & ".* " & _
    "FROM " & Table_DOC & " " & _
    "WHERE " & Table_DOC & ".DOC_Actif=True AND " & Table_DOC & ".DOC_Var Is Not Null AND TestVarVal(" & Table_DOC & ".DOC_Var)=True) " & _
    "ORDER BY " & Table_DOC & ".DOC_Lib;"

Je ne vois pas où est mon erreur.
Je me demande si ce n'est pas l'appel de la fonction TestVarVal dans le dernier Where qui pose problème ?

Merci de votre aide

[tee_grandbois]

bonjour,
il y a doublon dans ta demande:https://www.developpez.net/forums/d2...e-d-union-vba/
il va falloir choisir ton camp

[lololebricoleur]

Exact Tee mais dans quel forum cette demande a le plus sa place stp ?

[tee_grandbois]

je dirais que, même si cela concerne une erreur de syntaxe SQL, cela reste de la construction d'une variable dans VBA

[elgordopresto]

Bonjour,

Peux-tu essayer cela :

Code :

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

1
2
3
4
5
6
7
8
9
 
    SQl = "SELECT " & Table_DOC & ".* " & _
    "FROM BOUton LEFT JOIN (IMPression LEFT JOIN " & Table_DOC & " ON IMPression.IMP_Doc = " & Table_DOC & ".DOC_Num_Bis) ON BOUton.BOU_Num = IMPression.IMP_Bou " & _
    "WHERE (BOUton.BOU_Nom = '" & Bimp & "' AND Impression.IMP_Actif = True AND " & Table_DOC & ".DOC_Actif = True) " & _
    "UNION " & _
    "SELECT " & Table_DOC & ".* " & _
    "FROM " & Table_DOC & " " & _
    "WHERE (" & Table_DOC & ".DOC_Actif=True AND " & Table_DOC & ".DOC_Var Is Not Null AND TestVarVal(" & Table_DOC & ".DOC_Var)=True) " & _
    "ORDER BY " & Table_DOC & ".DOC_Lib;"

J'ai ajouté une parenthèse ouvrante ("(") avant la deuxième clause WHERE qui semble manquer...

Cela étant dit, je pense que tu peux supprimer les parenthèses encadrant tes clauses WHERE.

El