SQL dans vba en access

Bonjour,
j'ai fait un tour du forum pour avoir un réponse. Je cherche à exécuter des requete sql avec du code VBA sous access 2003
si j'ai bien compris un code possible serais

Code:

---

1 2 3 4 5 6 7 8 9

Dim db As Database Dim sql As String   Set db = CurrentDb   sql = "SELECT [Importation JB].Numéro FROM [Importation JB] WHERE ((([Importation JB].Numéro)=1));"   DoCmd.RunSQL sql

---

pourtant j'ai un message d'erreur comme quoi l'instruction runsql nécessite un argument consistant à une requete sql.
la requete doit etre juste vu qu'elle a été créée à partir d'une requete Access classique
Je suis un peu voir beaucoup perdu que dois je faire. Ya t il une histoire de complément de référence,...
Merci

RunSQL ne s'applique pas aux requêtes de sélection, interresse toi aux recordsets ;)

Voici qui devrai résoudre ton problème

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Sub SQLTEST() Dim strg_rsql As String ' string de la requête SQL Dim dbas As Database ' déclaration de l'objet database Dim recs As Recordset ' déclaration de l'objet recordset   Set dbas = CurrentDb ' affectation de l'objet database à la db courante   strg_rsql = "SELECT * FROM table1"   Set recs = dbas.OpenRecordset(strg_rsql) 'ouverture du recordset If Not recs.EOF Then ' vérification que le recordset n'est pas vide recs.MoveFirst ' positionnement au début du recordset While Not recs_eof ' tant que pas dernier record   ' ici le code qui doit exploiter le recordset courant   recs.MoveNext ' lire le record suivant Wend End If   Set recs = Nothing ' supprimer l'objet recordset Set dbas = Nothing ' supprimer l'objet database End Sub

---

la commande DoCmd.RunSql est plutôt indiquée pour des requête d'ajout, de modification ou de suppression d'enregistrement