comment exécuter du SQL en VBA

J'ai de regardé sur la FAQ et sur l'aide d'access mais j'ai pas trouver se que je voulais (plutot l'aide ne m'a pas ouvert les pages que j'aurai souhaité :? )

Bon je sais que l'on peut exécuter du SQL mais pas n'importe quoi et pas avec n'importe quel fonction

D'après se que j'ai compris docmd.runSQL permet du sql genre insertion, delete

Mais pour faire des sommes ou juste une selection pour visualiser un résultat on UTILISE quoi ??? :calim2:

ps: pour faire une sélection toute simple je sais que je peux utilisé des requetes via access mais je veux pas ;)

openrecordset

Tu trouveras ton bonheur ici:

http://access.developpez.com/faq/?page=SQL#Recordset

je l'avait déjà lu :oops: mais vu mon niveau en vba ....

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub DAOOpenRecordset () Dim db As DAO.Database, rst As DAO.Recordset, fld As DAO.Field Dim sSQL As String ' Ouverture de la base de données Set db = DBEngine.OpenDatabase (".\Comptoir.mdb") sSQL = "Select * From CLIENTS Where Région= 'WA'" ' Ouverture du recordset Set rst = db.OpenRecordset (sSQL, dbOpenForwardOnly, dbReadOnly) ' Fermeture du Recordset rst.Close End Sub

---

Est t'on obliger d'utilser : Set db = DBEngine.OpenDatabase (".\Comptoir.mdb")
si ma base est déjà ouvert (je travaille dessus)
Car je vois qu'on réutilise db.XXXX par la suite :cry:

bjr,

utilise :

Code:

---

Set db = CurrentDB

---

suite a vos instructions j'ai fait un test mais qui ne marche évidement pas :mouarf:

Code:

---

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

' Me.txtFiltreTot.Value = DCount("IdDonateur", "tableDonateur")   Dim db As DAO.Database, rst As DAO.Recordset, fld As DAO.Field Dim sSQL As String ' Ouverture de la base de données Set db = CurrentDb sSQL = "Select count(*) From tableDonateur" ' Ouverture du recordset Set rst = db.OpenRecordset(sSQL) Me.txtFiltreTot.Value = rst ' Fermeture du Recordset rst.Close

---

la première ligne en commentaire fonctionne, la suite bin j'essai de reproduire cette ligne

Alors il n'y a pas d'erreur signalé mais rien ne s'affiche à l'emplacement prévu, je suppose qu'il ne faut pas utiliser la fonction de cette manière ... :oops:

En tout cas déjà merci pour votre aide déjà fournit :D

il faudrait préciser le champ à afficher...

tout sur DAO --> http://warin.developpez.com/access/dao/

C génial !!! apparement ca fonctionne !! :bravo: MERCI MERCI

Faut utiliser Fields pour arriver à lire la valeur et ca marche :D