Bonjour,
J'aimerais créer une requête avec VBA mais soit il me dit qu'il y a une erreur de syntaxe soit qu'il manque un séparateur de liste mais je n'arrive pas à trouver l'erreur :
Merci d'avance pour votre aide !
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 Private Sub CommandButton1_Click() Dim bds As Database, qft As QueryDef Dim re As Recordset Set bds = OpenDatabase(ThisWorkbook.Path & "\projet2.mdb") Set qft = bds.CreateQueryDef("Export", "SELECT Facture.id, Client.nom, Client.prenom, Produit.designation, Produit.tarif, Lignes.quantite, [quantite]*[tarif] AS Prix_TTC, Facture.datedefacture FROM Produit INNER JOIN ((Client INNER JOIN Facture ON Client.id = Facture.client) INNER JOIN Lignes ON Facture.id = Lignes.facture) ON Produit.id = Lignes.produit WHERE (((Facture.id)=DMax("[id]","Facture")));") End Sub
Partager