ç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
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
j'essaye de faire la même chose cependant pour la variable de type database il me dit que c'est un type définie pas l'utilisateur donc je suis déjà bloqué la dessus et de plus je ne comprend pas pour mettre un if rst.RecordCount <> 0 Then
je vais essayer de me renseigner sur le recordcount on verra ensuite mais j'ai besoin d'aide pour le database svp
Tu ne précises pas ce que tu veux faire avec le résultat de ton SQL. Veux-u créer et remplir une nouvelle table ? Veux-tu parcourir les enregistrements résultant de l'SQL ?
Vous n’avez pas trouvé la réponse que vous recherchez ?
juste un problème d'incompatibilité de type entre dbs qui est un database ou un dao.database et le rst qui est un recordset
l'erreur se passe sur la linge :
set rst = dbs.openrecordset(mysql)