affichage requete SQL via vba

Bonjour,

Je souhaiterai à partir d'un clic sur un bouton exécuter un code vba qui construira une requête "select" sql.
Voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub Commande76_Click() On Error GoTo Err_Commande76_Click Dim SQL As String Dim rst As DAO.Recordset   SQL = "SELECT * FROM Identifiant;" Set rst = CurrentDb.OpenRecordset(SQL)     Exit_Commande76_Click: Exit Sub   Err_Commande76_Click: MsgBox Err.Description Resume Exit_Commande76_Click   End Sub

---

J'aimerai que cette réquête s'affiche en tableau "tout fait", comme les requêtes réalisées avec l'assistant d'access.

Merci de me guider.

Bonne journée.
Jarod.

Bonjour, là vous ouvrez juste un recordset en mémoire. Il ne s'agit en rien d'un objet Access. Pour créer une requête Access, créez un objet Querydef.

http://warin.developpez.com/access/d...=partie_4#L4.7

Merci pour cette explication.
J'ai réussi.

Voici mon code :

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 25 26 27 28 29 30

Private Sub Commande19_Click() On Error GoTo Err_Commande19_Click   Dim oDb As DAO.Database Dim strCodeSql As String Dim stDocName As String 'Instance l'objet database Set oDb = CurrentDb   'Stocke le code SQL dans une variable strCodeSql = "SELECT * FROM Identifiant"   'Crée la requête oDb.CreateQueryDef "filtre_expo", strCodeSql   stDocName = "filtre_expo" DoCmd.OpenQuery stDocName, acNormal, acEdit   Finally: oDb.Close Set oDb = Nothing Exit_Commande19_Click: Exit Sub   Err_Commande19_Click: MsgBox Err.Description Resume Exit_Commande19_Click   End Sub

---

Une question cependant :Si j'execute à nouveau ce code, access m'indique que l'objet "filtre_expo" existe déjà. Comment faire ?

Cordialement.

Jarod

Il faut supprimer l'objet avant ou modifier le SQL au lieu de le recréer.

Mais là, j'ai un peu de mal à comprendre l'intéret d'utiliser VBA dans votre cas

Oui, dans ce cas simple pas besoin d'utilisation de vba, mais la requête sql finale est beaucoup plus compliqué (recherche multicritère sur plusieurs tables)...

Merci de vos conseils.

Jarod

Salut,

Ne Peux-tu pas utiliser un formulaire en mode feuille de donnée en affectant ton sql à sa propriété recordsource sur ouverture de ce formulaire ?

Regarde aussi du côté de la méthode OpenForm et de son argument WhereCondition...