Problème création de requête avec VBA
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 :
Code:
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 |
Merci d'avance pour votre aide !
