Discussion :

[thor18]

voici le code qui fonctionne avec une requete access:

Code :

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

1
2
3
SELECT TableZ.vDebEmCl, *
FROM TableZ INNER JOIN Impression ON (RESU6_Composant.idFab=Impression.NuméroFabrication) AND (RESU6_Composant.idRef=Impression.Référence)
WHERE (((Impression.NuméroFabrication)="NumFab") AND ((Impression.Référence)="RefDuProduit") AND ((Impression.Etat)=1) AND ((Impression.ProtocoleClient)=Yes) AND ((Impression.Demandeur)="A6"));

mais avec vba pour access, j'obtiens une erreur de syntaxe! je ne comprend absolument pas pourquoi! vba ne comprendrait-il pas toutes les requetes SQL?

Code :

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

1
2
3
4
5
6
7
8
9
strSQL = "SELECT TableZ.vDebEmCl, * " & _
        " FROM [" & TableZ & "] INNER JOIN Impression ON " & _
        " (TableZ.idFab=Impression.NuméroFabrication)" & _
        " AND (TableZ.idRef=Impression.Référence)" & _
        " WHERE (((Impression.NuméroFabrication)=[" & NuméroFabrication & "])" & _
        " AND ((Impression.Référence)=[" & Référence & "])" & _
        " AND ((Impression.Etat)='1')" & _
        " AND ((Impression.ProtocoleClient)=[" & Reponse & "])" & _
        " AND ((Impression.Demandeur)=[" & Demandeur & "]));"

[thor18]

bonjour, une petite mise à jour

Code :

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

1
2
3
4
5
6
7
8
sSQL = " SELECT RESU6_Composant.vDebEmcl, * FROM RESU6_Composant INNER JOIN Impression "
sSQL = sSQL + " ON (RESU6_Composant.idRef = Impression.Référence)"
sSQL = sSQL + " AND (RESU6_Composant.idFab = Impression.NuméroFabrication)"
sSQL = sSQL + " WHERE (((Impression.NuméroFabrication)=[""" & NuméroFabrication & """])"
sSQL = sSQL + " AND ((Impression.Référence)=[""" & Référence & """])"
sSQL = sSQL + " AND ((Impression.Etat)=""1"")"
sSQL = sSQL + " AND ((Impression.ProtocoleClient)=""Yes"")"
sSQL = sSQL + " AND ((Impression.Demandeur)=[""" & Demandeur & """]));"

si je mets

Code :

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

=[""" & Demandeur & """]

j'ai un message d'erreur " trop peu de paramètre attendu" si je ne met pas les crochets

Code :

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

=""" & Demandeur & """

j'ai un autre message d'erreur "type de donnée incompatible dans l'expréssion du critère"

Est-ce mon code ou vba qui pose problème? Si oui, peut on le contourner?
Merci

[Gégé65]

pour renvoyer la valeur d'une variable mémoire essaie

Code :

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

((Impression.Demandeur)= ' " & Demandeur & " ' ));"

Pas d'espace entre ' (apostrophe) et " (guillemet) j'ai ajouté l'espace pour mieux voir

Code :

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

((Impression.Etat)=""1"")"

devient

Code :

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

((Impression.Etat)='1')"

Code :

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

((Impression.ProtocoleClient)=""Yes"")"

devient

Code :

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

((Impression.ProtocoleClient)= 'Yes')"