Discussion :

[Goupo]

Bonjour,

Je tente de créer une requête depuis un Script VBA.

Voici mon code, il est coloré en rouge dans l'editeur et lorsque j'execute, j'ai une erreur de syntaxe.

Quelqu'un voit pourquoi?

Code :

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

1
2
Set db = CurrentDb
db.CreateQueryDef("RequeteTemporaire", requete)

Merci d'avance!

[supersnail]

Bonjour,

essaie d'enlever les parenthèses

[Goupo]

Je suis trop... moche...

Pardon, je dois être fatigué.

Merci!

[toumack]

Créer une requête, c'est pas si difficile, cependant, il faut également ajouter ce que tu veux voir dans cette requête, l'exemple ci-dessous va créer une requête nommée "RequeteTemporaire", dans cette requête, tu verras quelques champs de la table Produits, donc, remplace la table et les champs par ta table et les champs que tu désires dans ta requête.

Bonne chance
Claude

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim dbs As Database
Dim strSQL As String
Dim strQueryName As String
Dim qryDef As QueryDef
 
Set dbs = CurrentDb
strQueryName = "RequeteTemporaire"
 
 
strSQL = "SELECT Produits.ID, Produits.Barcode, Produits.PrixVente, Produits.VentesGL, Produits.CaisseGL, Produits.StockageGL, Produits.AchatsGL, Produits.TPSGL, Produits.TVQGL, Produits.ChargéGL, Produits.VisaGL, Produits.MastercardGL, Produits.DiscoverGL, Produits.CarteDébitGL, Produits.CarteCréditAutreGL, Produits.ChèquesGL, Produits.ClientLCMGL FROM Produits "
 
Set qryDef = dbs.CreateQueryDef(strQueryName, strSQL)
 
End Sub

[Goupo]

Merci toumack,

Mais mon travail est livré depuis belle lurette! Je ne suis même plus dans l'entreprise qui l'utilise.

Enfin, ça pourra peut-être servir à quelqu'un d'autre... Ou à moi-même dans un avenir plus ou moins lointain.

@ plus!