Requete sql via vba

Salut tout le monde,
voilà, je souhaite faire une simple requete Selection via VBA sous Access. Le code a l'ai naturel mais, ça plante chez moi :oops:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub Commande0_Click()   Dim db As DAO.Database Dim SQL As String   Set db = CurrentDb     SQL = "Select * From TableA" DoCmd.RunSQL SQL   End Sub

---

Où est l'erreur SVP ?

RunSQL exécute une requête. Un select ne s'exécute pas.

Pour récuperer des données en VBA, il faut utiliser les recordsets. Par exemple avec DAO :

http://warin.developpez.com/access/dao ;)

En fait, je m'y prends peut-être mal...
J'ai un formulaire avec 1 champs qui contient le nom de ma table Access.
En cliquant sur un bouton, je souhaite afficher le contenu de la table (j'ai pris la requete selection car c'est la plus simple à écrire).

Le résultat de la "requete" sera exporté vers une feuille Excel.

J'ai trouvé ça mais ça marche toujours pas :s

Code:

---

1 2 3 4

Dim oRst As DAO.Recordset Dim oDb As DAO.Database Set oDb = CurrentDb Set oRst = oDb.OpenRecordset("SELECT * FROM Table", dbOpenDynaset)

---

Merci

Bonjour,
A cette heure, je n'ai toujours pas trouvé :oops: .
Quelqu'un saurait comment faire SVP ?

Merci bien

Hello,

merci de chercher dans la FAQ :
1- Créer la requête depuis ton SQL
http://access.developpez.com/faq/?re...er+requete+VBA

2- Ouvrir la requête
DoCmd.OpenQuery ...

Salut,
J'ai pas mal avancé sur ce petit problème (Pas évident quand on touche pas à Sql).

Voici mon code si cela peut en aider certain :roll:

Code:

---

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

'On vérifie si la requete existe déjà (Si oui, on la supprime) Dim qry As QueryDef   For Each qry In CurrentDb.QueryDefs If qry.Name = "MyReq" Then 'MsgBox "La requêtes existe déjà ! Elle va être supprimée !" CurrentDb.QueryDefs.Delete (qry.Name) End If Next qry   'Création de la requête SQL Dim ReqSQL As String ReqSQL = "Select * From Table1"   CurrentDb.CreateQueryDef "MyReq", ReqSQL   'Ouverture/Exécution de la requête SQL DoCmd.OpenQuery "MyReq"   'Fermeture de la requête SQL 'DoCmd.Close acQuery, "MyReq"   'Exportation vers Excel DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "MyReq", "c:\fichier.xls"

---

Reste un petit problème à régler :
Je souhaite que le nom de la table soit "dynamique". Autrement dit par l'intermédiaire d'un champs de Texte renseigné manuellement par l'utilisateur, la requête s'exécute sur la table en question.

Il doit s'agir d'un paramètrage mais je vois pas comment faire. J'ai essayé de m'inspirer de :

Code:

---

1 2 3

Parameters [Entrez une valeur numérique :] integer; Select * From LATABLE Where MONCHAMP = [Entrez une valeur numérique :];

---

Si vous pouviez m'aider encore :oops:

Ça y est, j'ai réussi à l'aide d'un ancien post de cafeine :mouarf:
:fleche: http://http://www.developpez.net/forums/showthread.php?t=208632&highlight=table+access+param%E8tre

Le "code" est donc le suivant :

Code:

---

1 2 3 4 5 6 7

Dim strSQL As String Dim strNomTable As String   strNomTable = Me.Texte1 strSQL = "SELECT * FROM [" & strNomTable & "]"   CurrentDb.CreateQueryDef "testReq", strSQL

---

Voilà,
Merci bien tout le monde.
Je passe en résolu :lol: