Problème requête et vba

**Chris_Dupasquier** · 18/03/2010, 11h40

Bonjour à tous, j'ai un problème lors de l'execution de mon code, on me refile une erreur 3075 et je ne comprends pas l'erreur de syntaxe.

Merci d'avance à ceux qui pourront m'aider

Code :

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

1
2
3
4
5
6
7
8
 
Dim SQl as String
SQL = "SELECT Tble_Liste_Ingredients.Nom_Ingrédients" & _
"FROM Tble_Liste_Ingredients" & _
"ORDER BY Tble_Liste_Ingredients.Nom_Ingrédients;"
 
 
DoCmd.RunSQL SQL

**nico84** · 18/03/2010, 12h07

Bonjour,
Y'a pas d'espace entre les 3 lignes

Par ailleurs il vaut mieux utiliser

Code :

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

CurrentDb.Execute SQL, dbFailOnError

Qui a une meilleure gestion des erreurs

**Jean-Philippe André** · 18/03/2010, 12h50

Salut,
attention, ici il s'agit d'une requete selection, donc on utilisera plutot OpenRecordset.

Un peu de lecture :
http://warin.developpez.com/access/dao/
http://vb.developpez.com/bidou/recordset-ado/

**Chris_Dupasquier** · 18/03/2010, 12h54

Bonjour,

Merci de votre prompte réponse, j'ai supprimé les espaces mais je pense que ma syntaxe n'est toujours pas au top.

Code :

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

1
2
3
4
 
 
SQL = "SELECT Tble_Liste_Ingredients.Nom_Ingrédients  FROM Tble_Liste_Ingredients ORDER BY Tble_Liste_Ingredients.Nom_Ingrédients;"
CurrentDb.Execute SQL, dbFailOnError

Il s'agit d'une erreur de guillemets???

Merci d'avance

**nico84** · 18/03/2010, 13h00

JP a raison, ma syntaxe est pour DELETE, UPDATE ou INSERT

Exemple d'utilisation :

Code :

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

1
2
3
4
5
6
7
8
Dim rst As DAO.Recordset, sql as string
SQL = "SELECT Nom_Ingrédients  FROM Tble_Liste_Ingredients ORDER BY 1;"
Set rst = CurrentDb.OpenRecordset(sql)
while not rst.eof
  msgbox rst!nom_ingrédients
  rst.movenext
wend
rst.close