Creer et exécuter requete selection sql vba

Fermé
papinina Messages postés 16 Date d'inscription lundi 30 juin 2008 Statut Membre Dernière intervention 2 septembre 2008 - 18 juil. 2008 à 12:16
DarkAurora Messages postés 417 Date d'inscription lundi 26 novembre 2007 Statut Membre Dernière intervention 21 janvier 2013 - 26 mai 2009 à 10:34
Bonjour,

ça fait un petit moment que je galère pour trouver un moyen d'exécuter une requete de sélection sql en vba access!
j'ai cherché sur le net, et je sais que la méthode Runsql n'est valable que pour les requêtes d'action. J'ai aussi compris qu'il fallait utiliser un recordset pour arriver à mes fins. J'ai essayé toute sorte de codes trouvés sur le net sans succès. Quelqu'un aurait une idée parce que la je sèche et j'en ai surtout un peu marre!! merci d'avance!!
je suis sous access 2000

11 réponses

Dim dbs As Database, rst As Recordset, mysql As String, x As Integer
x = Me.Liste9.Column(1)
Set dbs = CurrentDb
mysql = "SELECT Founisseur FROM Fournisseurs WHERE (((Fournisseurs.Four)= " & x & "));"
Set rst = dbs.OpenRecordset(mysql)
If rst.RecordCount <> 0 Then
et tu enchaines
6